nicht angemeldet
Hallo,
Hat mir jemand grad ein Script, das zu lange Texte nach x Zeichen korrekt schneidet?!?!
Mit korrekt meine ich, dass das Script überprüft ob es bei einem Space " " (Leerschlag) schneidet und nicht mitten im Text bzw. mitten in einem Wort.
Dieses Konstrukt nimmt einen String, schneidet ihn an der 40. Stelle ab und überprüft in einer Funktion, ob das letzte Zeichen mit einem vorgegebenen Charakter übereinstimmt. Wenn nein, wird der String um eine Stelle gekürzt - und die Funktion nochmal aufgerufen.
Spiel mal mit rum ;-)
<%strMyText = "Hallo, ich habe keine Ahnung, was ich schreiben soll"
i = 40
do until cutString(strText) = true
strText = Mid(strMyText,i,1)
i = i - 1
loop
strText = trim(strText)%>
<%function cutString(strText)
strZeichen(0) = chr(32) ' sapce
strZeichen(1) = chr(33) ' !
strZeichen(2) = chr(44) ' ,
strZeichen(3) = chr(46) ' .
strZeichen(4) = chr(58) ' :
strZeichen(5) = chr(59) ' ;
strZeichen(6) = chr(63) ' ?
for i=0 to 6
if strText = str_zeichen(i) then
cutString = true
exit function
end if
next
cutString = false
end function%>
Viele Grüße aus Köln
Markus
Hi
Vielen Dank für das Script, nur leider bring ich es nicht anständig zum Laufen.
Entweder schneidet es alles oder der PC crasht (ich denk die Bedingung wird nie erfüllt oder das Script ist wirklich so extrem ressourcenfressend [PIII 800Mhz, 256RAM, win2000]).
Kannst du sonst das Script nochmals überfliegen, ich habs nicht geschafft.
Danke und tschüss
Capior
---------------------------------------------
PS: "if strText = str_zeichen(i) then" -> "if strText = strZeichen(i) then"