Ok.. Schauen wir mal...
Ungetestet...
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 = ""
end if
next
if zeile<>"" then text = text & mid(zeile,2)
Text_format = text
End function
Claudius
>
> Hello,
>
> ich baue gerade an nem Newsletter. Der wird automatisch verschickt,
> d.h. der Content kommt aus der Datenbank. Nun m�chte ich die Texte
> aber quasi vorformatieren, d.h. genau, dass nach X Zeichen pro
> Zeile "Schluss" sein soll.
>
> Einen einfachen String auseinander zu nehmen, das bekomme ich jetzt
> auf die Schnelle auch noch hin - aber: ich kann die W�rter ja nicht
> einfach auseinanderrei�en.
>
> Beispiel:
>
> Ich habe folgenden String, der bereits vorformatiert ist - d.h. mit
> Zeilenumbr�chen:
>
> ----------------------------
>
> Neues Reality-TV im Web
>
> Fernsehen online, Fernsehen live, Fernsehen in der Jetzt-Zeit: Sehen,
> was gerade passiert. Auf dem Kudamm in Berlin, am Ballermann in
> Mallorca, im Badezimmer einer Studentin, im B�ro eines Managers...
> Bild.T-Online und Partner Cammix bauen das gro�e Reality-TV
> im Internet
> auf. Rund 1000 Webcams liefern jetzt schon auf Klick das
> wahre Leben per
> Internet.
>
> ----------------------------
>
> Breche ich die Zeilen jetzt nach exakt 60 Zeichen um kommt folgendes
> bei raus:
>
> ----------------------------
> Neues Reality-TV im Web
>
> Fernsehen online, Fernsehen live, Fernsehen in der Jetzt-Ze
> it: Sehen, was gerade passiert. Auf dem Kudamm in Berlin, a
> m Ballermann in Mallorca, im Badezimmer einer Studentin, im
> B�ro eines Managers... Bild.T-Online und Partner Cammix ba
> uen das gro�e Reality-TV im Internet auf. Rund 1000 Webcam
> s liefern jetzt schon auf Klick das wahre Leben per Intern
> et.
> ----------------------------
>
> Wei� jemand Rat?
>
> Gru�, Thomas :-)
>
>
> | [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/aspdecoffee
house.asp
| [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
