nicht angemeldet
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
Hi
Sorry, aber das Ganze geht immer noch nicht. Jetzt erhalt ich zwar keine Fehlermeldung mehr, aber es schreibt auch nichts..der string ist einfach leer.
do until cutString(strText) = true
diese zeile stört mich.....weiss nicht, strText ist ja noch gar nicht definiert...wenn ich strText durch strMyText ersetze, hängt der aber pc wieder..
sorry, aber ich weiss nicht weiter...
kannst mir nochmals helfen :-)
danke und tschüss
capior