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!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

SubStr von ytwinky

Uploader:MitgliedEternal_Pain
Datum/Zeit:04.08.2007 15:38:25

/'
Autor:     ytwinky
Syntax:    SubStr (Liste[$],Trennzeichen[$],Eintrag)
Typ:       Funktion
Kategorie: Stringmanipulation

SubStr ist eine sehr praktische Funktion
zum heraustrennen von Eintraegen in "Listen-Strings"
die mit einem bestimmten Trennzeichen erstellt sind.

Beispiel:

Dim MeineListe as String="1. Hallo|2. Welt|3. FreeBASIC"
?SubStr (MeineListe,"|",1)
?SubStr (MeineListe,"|",2)
?SubStr (MeineListe,"|",3)

Ausgabe:
1. Hallo
2. Welt
3. FreeBASIC
'/

Function SubStr(byVal Liste As String, byVal Trenner As String, byVal Stelle As Integer) As String
  Dim As Integer Aktuell=0, Ooops, ltr=Len(Trenner), Vorige=1, Gefunden
  If Stelle=0 Or Liste="" Or Trenner="" Or Instr(Liste, Trenner)=0 Then Return ""
  Do
    Ooops=Gefunden
    Gefunden=Instr(Gefunden+1, Liste, Trenner)
    Aktuell-=Gefunden<>0
    If Aktuell=Stelle-1 Then Vorige=Gefunden+ltr
    If Aktuell=Stelle Then Exit Do
  Loop Until Gefunden=0
  If Stelle>Aktuell Then Return Mid(Liste, IIF(Stelle-Aktuell>1, Len(Liste)+1, Ooops+ltr)) &Chr(0)
  Return Mid(Liste, Vorige, Gefunden-Vorige)
End Function