Verfügbare Informationen zu "Stufe 2: Zeile in Worte Aufteilen. SplitLine()"
Qualität des Beitrags: Beteiligte Poster: antome Forum: Blitz3D Datenbank Forenbeschreibung: Übersichtliche von Mitgliedern erweiterbare Hilfe für Blitz3D Programmierer aus dem Unterforum: Dateien, Strings, Text Antworten: 1 Forum gestartet am: Dienstag 31.01.2006 Sprache: deutsch Link zum Originaltopic: Stufe 2: Zeile in Worte Aufteilen. SplitLine() Letzte Antwort: vor 17 Jahren, 7 Monaten, 30 Tagen, 19 Stunden, 32 Minuten
Alle Beiträge und Antworten zu "Stufe 2: Zeile in Worte Aufteilen. SplitLine()"
Re: Stufe 2: Zeile in Worte Aufteilen. SplitLine()
antome - 26.08.2006, 19:00Stufe 2: Zeile in Worte Aufteilen. SplitLine()
SplitLine( TextZeile$, Trennzeichen$ )
SplitLine zerlegt eine Textzeile in einzelne Wörter
in Trennzeichen$ werden die Zeichen angegeben welche als
Worttrennzeichen gelten und nie in einem Wort danach vorkommen.
Leerzeichen und Anführungszeichen gelten immer als Trennzeichen.
Wird kein Trennzeichen angegeben werden nur Leer- und
Anführungszeichen als Trennzeichen angesehen.
Code:Function SplitLine(DieSplitZeile$, Trennzeichen$="")
Local lt = len(Trennzeichen$)
For countworte = 0 to 100
Wort$(countworte) = ""
Next
DieSplitZeile$ = Replace$(DieSplitZeile$,CHR$(34)," ")
IF lt > 0
For delim = 1 to lt
delimiter$=MID$ (Trennzeichen$, delim,1)
DieSplitZeile$ = Replace$(DieSplitZeile$,delimiter$," ")
Next
Endif
For countworte = 0 to 100
DieSplitZeile$=Trim$ (DieSplitZeile$)+" "
IF DieSplitZeile$ = "" then EXIT
Wpos=Instr(DieSplitZeile$," ")
Wort$(countworte) = Mid$(DieSplitZeile$,1 ,Wpos-1)
DieSplitZeile$=Mid$(DieSplitZeile$, Wpos,-1)
Next
End Function
Mit diesem kleinen Beispielprogramm könnt ihr die Function testen.
Code:DIM Wort$(100)
Graphics 800,600
test$ = "Ein Satz, mit Trennzeichen! #.,? allerhand-Zeichen "
SplitLine(test$, ",.-;:_?!§$%&/()=#+'*")
For i = 0 to 100
If Wort$(i)= "" then EXIT
Print Wort$(i)
Next
WaitKey()
end
Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken
Weitere Beiträge aus dem Forum Blitz3D Datenbank
Stufe 2: Bits setzen, löschen, testen, kippen - gepostet von antome am Samstag 16.09.2006
Kurze Info - gepostet von antome am Mittwoch 14.02.2007
Ähnliche Beiträge wie "Stufe 2: Zeile in Worte Aufteilen. SplitLine()"
Zeile - Jugan (Samstag 10.02.2007)
Problem mit dx 2.0 einstellungen - spyer (Montag 07.04.2008)
Training am 11.04.07 20. 00 Uhr Halker Zeile - Udo (Donnerstag 05.04.2007)
Master S. vs. Master P. 14 zeile - fluz (Sonntag 23.01.2005)
extra zeile - D-Pierre2006 (Dienstag 19.12.2006)
Aufteilen - Frosch (Donnerstag 28.09.2006)
4er_Zeile !!REGELN!! - snik0r (Sonntag 05.03.2006)