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 - 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