Korrektes (Ab)schneiden

[Markus Mühlich]

Hallo,

<%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

strMyText = Trim(Mid(strMyText, 1, i))
response.write(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%>

Vielen Dank für das Script, nur leider bring ich es nicht anständig zum Laufen.

Versuch es jetzt nochmal - da war eine Zeile falsch gecodet. Sorry

Gruß Markus

PS: "if strText = str_zeichen(i) then" -> "if strText = strZeichen(i) then"