Stringmanipulation – Parsen – Textmanipulation
Veröffentlicht am 30.12.2003
Parsingfunktionen
Die Funktion ReverseInStr sucht das LETZTE Vorkommen von strSearchString in strSourceString und liefert die gefundene Position als Integer-Wert zurück.
Falls kein Vorkommen gefunden wird, ist der Funktionswert 0.
Diese Funktion bildet Grundlage für die Parsingfunktionen zu den Beispielen
Parsingfunktion – Dateiendung lesen
Parsingfunktion – Pfadangabe
Parsingfunktion – Dateiname
Public Function ReverseInStr(strSourceString As String, strSearchString As String) As Integer Dim intPos As Integer
Dim intPosSaved As Integer
Dim strDummy As String
Dim bolStart As Boolean
strDummy = " " & strSourceString
intStartPos = 1
If strDummy = "" Or strSearchString = "" Then MsgBox ("Der zu durchsuchende Text UND der Suchstring muß angegeben werden")
ReverseInStr = 0
Exit Function
End If
intPosSaved = 1
ntPos = InStr(intPosSaved, strDummy, strSearchString)
If intPos = 0 Then
bolStart = True
End If
Do While intPosSaved <> 0
If intPosSaved >= 1 Then
If bolStart = True Then
ReverseInStr = 0
Exit Function
Else
If intPos = 0 Then
ReverseInStr = intPosSaved - 1
Exit Function
End If
intPosSaved = intPos
End If
intPos = InStr(intPosSaved + 1, strDummy, strSearchString)
bolStart = False
End If
Loop
End Function