Korrektes (Ab)schneiden

[Markus Mühlich]

Hallo,

ist vielleicht ein bißchen heiß heute - aber auf jeden Fall läuft es jetzt. http://www.netbrush.net/muehlich/index.asp

<%
Dim strZeichen(7)
strMyText= "Hallo, ich habe keine Ahnung, was ich schreiben soll"
j = 30
strText = Mid(strMyText,j,1)
do until cutString(strText) = true
strText = Mid(strMyText,j,1)
j = j - 1
loop
strMyText = left(strMyText,j)
response.write("<b>Lang:</b> Hallo, ich habe keine Ahnung, was ich schreiben soll<br><br>")
response.write("<b>Kurz: </b>" & strMyText)
function cutString(strText)
strZeichen(0) = chr(32)
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 = strZeichen(i) then
 cutString = true
 exit function
 end if
next
cutString = false
end function%>

Viele Grüße aus Köln
Markus