Zeile in Worte splitten
Übersicht
BlitzBasic Codearchiv
antome!!! gesperrt !!!Betreff: Zeile in Worte splitten |
 Sa, Jan 21, 2006 16:42Antworten mit Zitat 
|
|
|---|---|---|
|
Eine einfache Funktion um eine Zeile in einzelne Worte aufzusplitten
kann man aber auch mit Blitzarrays erstellen und dann das Blitzarray übergeben, wäre noch besser. Könnt ihr aber selber ändern 
Delimiterzeichen damit einsetzen DieSplitZeile$ = Replace$(DieSplitZeile$,"="," ") Ja, geht auch besser indem man die Delimieterzeichen als String übergibt und in einer Schleife ausliest. Könnt ihr aber auch selbst ändern. 
Code: [AUSKLAPPEN] DIM Worte$(100) ;je nach bedarf ändern Function SplitWords$(DieSplitZeile$) For countworte = 0 to 100 Worte$(countworte) = "" Next DieSplitZeile$ = Replace$(DieSplitZeile$,CHR$(34)," ") DieSplitZeile$ = Replace$(DieSplitZeile$,"="," ") ;DieSplitZeile$ = Replace$(DieSplitZeile$,"<"," ") ;DieSplitZeile$ = Replace$(DieSplitZeile$,"/>"," ") ;DieSplitZeile$ = Replace$(DieSplitZeile$,">"," ") For countworte = 0 To 100 If DieSplitZeile$ <> "" DieSplitZeile$=Trim$ (DieSplitZeile$) If DieSplitZeile$ = "" Then Goto auscountworte Wpos=Instr(DieSplitZeile$," ") If Wpos <> 0 Worte$(countworte) = Mid$ (DieSplitZeile$,1, Wpos-1) DieSplitZeile$=Mid$ (DieSplitZeile$, Wpos, -1) EndIf Else Goto auscountworte EndIf Next .auscountworte End Function |
||
| antome | ||
Übersicht
BlitzBasic Codearchiv
Powered by phpBB © 2001 - 2006, phpBB Group