>
> Ok.. Schauen wir mal...
> Ungetestet...
Und schon zu fr�h abgeschickt...
>
> Function Text_format(txt,breite)
> Dim ar, zeile, text
> ar = split(txt," ")
> for each wort in ar
> if len(zeile)+len(wort)<=breite then
> zeile = zeile & " " & wort
> else
> text = text & mid(zeile,2) & vbCrLf
zeile = " " & wort
> end if
> next
> if zeile<>"" then text = text & mid(zeile,2)
> Text_format = text
> End function
Claudius
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
