Das Gegenstück zur Visual Basic-Funktion Instr, das einen String
vom Ende her auf das Vorkommen eines anderen Strings hin durchsucht,
steht erst seit VB(A) 6 mit der Funktion InstrRev
zur Verfügung. Die hier gezeigte gleichnamige Funktion InstrRev
erfüllt die gleiche Aufgabe in früheren Versionen (VB 4
und 5).
Im ersten Parameter übergeben Sie den zu durchsuchenden String,
im zweiten Parameter den zu findenden String. Im optionalen
Parameter Start können Sie die Position angeben, ab der die
Funktion vom Ende her die Suche beginnen soll. Zurückgegeben wird
die erste ab Start gefundene Position.
Public Function InstrRev(Text As String, _
Separator As String, Optional ByVal Start As Long) As Long
Dim l As Long
Dim nStart As Long
If Start = 0 Then
nStart = Len(Text)
Else
nStart = Start
End If
For l = nStart To 1 Step -1
If Mid$(Text, l, Len(Separator)) = Separator Then
InstrRev = l
Exit For
End If
Next 'l
End Function
 |
Die Funktion InstrRev durchsucht eine String
vom Ende nach dem Vorkommen eines anderen Strings

|
|