|
du solltest auch keine textbox nehmen sondern eine listbox. textbox ist nur für eine zeile gedacht (d.h. der string enthält auch alle zeilenumbrüche)
Du könntest, wenn du unbedingt eine textbox brauchst, den text aus dieser nach zeilenumbrüchen durchsuchen lassen und den text nach und nach in mehrere teilstrings zerstückeln..
z.B:
u=InStr(1,a$, Chr$(13)) - findet den 1. umbruch
aa$(anz)=left$(a$,u-1) :rem aa$(1) wird linker teil von a$ vor umbruch
a$=right$(a$,u+1) :rem a$ wird rechter teil von a$ nach umbruch
anz=anz+1
u=InStr(1,a$, Chr$(13)) - findet den 2. umbruch
aa$(anz)=left$(a$,u-1) :rem aa$(2) wird linker teil von a$ vor umbruch
a$=right$(a$,u+1) :rem a$ wird rechter teil von a$ nach umbruch
anz=anz+1
Das ganze in einer schleife "while u > 0 .... wend"
usw bis u=0 ergibt
bisschen was musst du auch selber tun.
|