Buchempfehlung
MySQL kurz & gut
MySQL kurz & gut
Das preiswerte Taschen- buch stellt MySQL-rele- vante Inhalte systematisch und knapp dar, sodass es sich optimal zum Nach- schlagen beim Pro- grammieren eignet. [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 - Umgedrehtes Instr

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

  Versionen Versionen