hihi, erstmal danke - ich bastle grad dran rum - im moment will es noch nicht - mal sehen ob ich es "zum laufen kriege" ;-)
meld mich noch mal @torsten - auch das werd' ich mal in betracht ziehen :) > > > > 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/anme> lden/aspdecoffeehouse.as > | p > | [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
