Verfasst: 19.03.2005 10:34
Ich habe mal / durch den typischen ascii zeilenumbruch code (13) ersetzt. Bei [ und ] habe ich jeweils 14 und 15 benutzt.
Code: Alles auswählen
ReadFile(0,"Text.txt")
text$ = ReadString()
lpos = 0
Dim text.s(20)
For b = 0 To 19
If lpos = 0
pos1 = FindString(text$,Chr(14),1)
pos2 = FindString(text$,Chr(13),1)
lange = pos2 - pos1 - 1
text(0) = Mid(text$,pos1 + 1,lange)
Else
pos1 = FindString(text$,Chr(13),lpos)
pos2 = FindString(text$,Chr(13),lpos + 1)
lange = pos2 - pos1 - 1
text(b) = Mid(text$,pos1 + 1,lange)
EndIf
If b = 15
pos1 = FindString(text$,Chr(13),lpos)
pos2 = FindString(text$,Chr(15),lpos)
lange = pos2 - pos1 - 1
text(19) = Mid(text$,pos1 + 1,lange)
EndIf
lpos = pos2
Next b