From b4f3b5bbe19d8361492c023e3ca0ee53fc0ab9b0 Mon Sep 17 00:00:00 2001 From: Olivier Hallot Date: Thu, 14 Sep 2017 12:34:17 -0300 Subject: tdf#112391 Fix inStrRev in example of LO-Help Change-Id: I3fad8e9ba3d30d9bf7ae42e6c753ee8677b012fd Reviewed-on: https://gerrit.libreoffice.org/42286 Reviewed-by: Olivier Hallot Tested-by: Olivier Hallot --- source/text/sbasic/shared/03120411.xhp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'source/text') diff --git a/source/text/sbasic/shared/03120411.xhp b/source/text/sbasic/shared/03120411.xhp index 0e1e7c004f..319e2f298c 100644 --- a/source/text/sbasic/shared/03120411.xhp +++ b/source/text/sbasic/shared/03120411.xhp @@ -61,9 +61,9 @@ Dim sInput As String Dim iPos As Integer sInput = "The book is on the table" - iPos = Instr(sInput,"the",10,1) ' Returns 1, search is case-insensitive + iPos = InStrRev(sInput,"the",10,1) ' Returns 1, search is case-insensitive Print iPos - iPos = Instr(sInput,"the",10,0) ' Returns 0, search is case-sensitive + iPos = InStrRev(sInput,"the",10,0) ' Returns 0, search is case-sensitive Print iPos End Sub -- cgit