Stringmanipulation - Parsen - Textmanipulation

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

Weitere Tipps & Tricks

30.12.2003

Parsingfunktion - Dateiendung lesen

Mit Hilfe der Parsingfunktion Dateiendungen lesen.

Tipp/Trick

30.12.2003

Parsingfunktion - Dateiname

Diese Funktion ist das Gegenstück zu GetPath (strPath).

Tipp/Trick

30.12.2003

Parsingfunktion - Pfadangabe

So wird´s gemacht!

Tipp/Trick

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.

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.