Buchempfehlung
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Umfassend, aber leicht verständlich führt dieses Buch in die Programmierung von ATMEL AVR Mikrocontrollern ein. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

Code-Beispiel

Code-Beispiele » Stringfunktionen

InStrRev (verbessert)

Lizenz:Erster Autor:Letzte Bearbeitung:
k. A.MitgliedEternal_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 MitgliedEternal_Pain angelegt.
  • Die aktuellste Version wurde am 31.03.2008 von MitgliedEternal_Pain gespeichert.
  Bearbeiten Bearbeiten  

  Versionen Versionen