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

Weiterführende Links:

Unsere Dienstleistungen

Als starker Partner an Ihrer Seite unterstützen wir Sie in folgenden Breichen:

Access-Programmierung

Benötigen Sie Unterstützung bei der Programmierung von Access-Anwendungen? Wir bieten die gesamte Bandbreite von der Access-Programmierung auf Stundenbasis bis zur Durchführung eines Software-Projektes als Auftragsarbeit an. Kontaktieren Sie uns für ein kostenloses Erstgespräch.

JETZT KONTAKTIEREN

Software-Beratung

Haben Sie ein Software-Projekt und Sie wissen nicht, ob Access die richtige Plattform ist? Wir haben über 20 Jahre Erfahrung beim Erstellen von Windows-, Web und mobilen Anwendungen. Kontaktieren Sie uns für eine kostenlose Erstberatung.

JETZT KONTAKTIEREN