Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
SubStr von ytwinky
| Uploader: |  Eternal_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