OpenOffice.org BASIC Guide.pdf - OpenOffice.org wiki

Strings 49
The SearchString parameter specifies the string to be searched for within MyString. The
function returns a number that contains the position at which the SearchString first
appears within MyString. If you want to find other matches for the string, the function also
provides the opportunity to specify an optional start position from which OpenOffice.org
Basic begins the search. In this case, the syntax of the function is:
ResultString = InStr(StartPosition, MyString, SearchString)
In the previous examples, InStr ignores uppercase and lowercase characters. To change the
search so that InStr is case sensitive, add the parameter 0, as shown in the following
example:
ResultString = InStr(MyString, SearchString, 0)
Using the previous functions for editing strings, programmers can search for and replace
one string in another string:
Function Replace(Source As String, Search As String, NewPart As String)
Dim Result As String
Dim StartPos As Long
Dim CurrentPos As Long
Result = ""
StartPos = 1
CurrentPos = 1
If Search = "" Then
Result = Source
Else
Do While CurrentPos 0
CurrentPos = InStr(StartPos, Source, Search)
If CurrentPos 0 Then
Result = Result + Mid(Source, StartPos, _
CurrentPos - StartPos)
Result = Result + NewPart
StartPos = CurrentPos + Len(Search)
Else
Result = Result + Mid(Source, StartPos, Len(Source))
End If ' Position 0
Loop
End If
Replace = Result
End Function