Korrektes (Ab)schneiden

[Markus Mühlich]

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