Code-Beispiel

InstrRev - Umgedrehtes Instr

Lizenz:	Erster Autor:	Letzte Bearbeitung:
k. A.	Jojo	31.03.2008

Hinweis: Diese Funktion liegt in neuen FreeBasic-Versionen bereits bei und muss somit nicht mehr von Hand in den Quelltext eingefügt werden.

Da es in FreeBasic zur Zeit des Verfassens noch an einer InstrRev-Funktion mangelte, hatte ich kurzerhand mir selbst eine gebaut. Sie gibt, im Gegensatz zur Instr-Funktion nicht das erste, sondern das letzte Vorkommen eines bestimmten Strings in einem anderen String zurück.

Function InstrRev(Haystack As String, Needle As String) As Integer

    'Ist gar nicht drin...

    If Instr(HayStack, Needle) = 0 Then

        Return 0

        Exit Function

    End If

    Dim i As Integer

    'String von hinten durchgehen...

    For i = Len(Haystack) To 1 Step -1

        'Gefunden!

        If Mid(Haystack, i, Len(Needle)) = Needle Then

            Return i

            Exit Function

        End If

    Next

    'Nix gefunden :-(

    Return 0

End Function

Zusätzliche Informationen und Funktionen

Das Code-Beispiel wurde am 10.06.2007 von Jojo angelegt.
Die aktuellste Version wurde am 31.03.2008 von Jojo gespeichert.

Bearbeiten

Versionen

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.