Hallo zusammen,
ich habe das von Claudius noch ein wenig um/ausgebaut.
<%
Text="12345 67890
123456789012345678901234567890123456789012345678901234567890123456789012345
67890 12345 67890"
Function CheckWordLength(Eingabe, MaxLength)
txtA = split(Eingabe)
for i = 0 to ubound(txtA)
if len(txtA(i))>MaxLength then
t = ""
for j = 1 to len(txtA(i)) step MaxLength
if t<>"" then t = t & " "
t = t & mid(txtA(i),j,MaxLength)
next
txtA(i) = t
end if
next
CheckWordLength = join(txtA)
End Function
NeuerText = CheckWordLength(Text,40)
%>
Noch mal Danke Claudius.
Gru� J�rg
-----Urspr�ngliche Nachricht-----
Von: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Im Auftrag von J�rg L�gering
Gesendet: Freitag, 25. Juli 2003 00:20
An: [EMAIL PROTECTED]
Betreff: [Coffeehouse] AW: [Coffeehouse] RE: [Coffeehouse] Leerzeichen
einf�gen
Hallo Claudius,
Bingo, das war's, Super das funktioniert einwandfrei.
Danke.
Gru� J�rg
-----Urspr�ngliche Nachricht-----
Von: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Im Auftrag von Claudius Ceteras
Gesendet: Freitag, 25. Juli 2003 00:07
An: [EMAIL PROTECTED]
Betreff: [Coffeehouse] RE: [Coffeehouse] Leerzeichen einf�gen
Es kann sicher auch normaler text eingegeben werden !?
Und dann sollen lange worte in 40er-bl�cke geteilt werden!?
Probier mal das (ungetestet):
txt = "dein teeeeeeeeeeeeeeeext"
laenge = 40
txtA = split(txt)
for i = 0 to ubound(txtA)
if len(txtA[i])>laenge then
t = ""
for j = 1 to len(txtA[i]) step laenge
if t<>"" then t = t & "- " 'umbruch anzeigen
t = t & mid(txtA[i],j,laenge)
next
txtA[i] = t
endif
next
txt = join(txtA)
Claudius
> ich suche eine M�glichkeit wie ich bei dem folgenden Beispiel
> z.B. an Stelle
> 40 ein Leerzeichen einf�gen kann.
>
> Beispiel:
> Wenn jemand so was in ein Feld eintr�gt
> aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
>
> das ich z.B. an Stelle 40 ein Leerzeichen einf�ge
> aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa aaaaaaaaaaaaaaaaaaa
>
> wenn so was ein User bei mir eintr�gt wird meine Tabelle auseinander
> gedr�ckt und das Design ist hin.
>
> Wer kann mir da helfen?
>
_______________________________________________
Coffeehouse mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/coffeehouse
_______________________________________________
Coffeehouse mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/coffeehouse
_______________________________________________
Coffeehouse mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/coffeehouse
