Code-Beispiel

InStrRev (verbessert)

Lizenz:	Erster Autor:	Letzte Bearbeitung:
k. A.	Eternal_Pain	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.

Syntax: INSTRREV (String1, String2 [, Start])
Typ: Funktion
Kategorie: Stringmanipulation

Prüft rueckwaerts, ob String2 in String1 vorkommt und liefert die Position
innerhalb String1 zurück.

Declare Function InStrRev (SearchString As String, SearchMask As String, StartPos As UInteger=0) as UInteger



'-----------------------------------------------------------------------------'

Function InStrRev (SearchString As String, _

                   SearchMask As String, _

                   StartPos As UInteger=0) As UInteger



    If Len(SearchString)=0 or Len(SearchMask)>Len(SearchString) Then Return 0

    If StartPos=0 or StartPos>Len(SearchString) Then StartPos=Len(SearchString)



    Dim Buffer as String



    For l as Integer=StartPos to 1 Step-1

        If SearchString[l-1]=SearchMask[0] Then

            Buffer=Left(Right(SearchString,Len(SearchString)-(l-1)),Len(SearchMask))

            If Buffer=SearchMask Then Return l

        End If

    Next l



    Return 0

End Function

'-----------------------------------------------------------------------------'

Zusätzliche Informationen und Funktionen

Das Code-Beispiel wurde am 03.08.2007 von Eternal_Pain angelegt.
Die aktuellste Version wurde am 31.03.2008 von Eternal_Pain 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.