✔ Substrings in Arrays

[nimenn]

Moin, moin

Ich habe einen sehr langen Text,
in welchem ein bestimmte Sequenz
häufiger vorkommt. Mich interestieren
die nächsten 8 Zeichen nach der Sequenz.

Diese sollen dann mit Strichpunkten getrennt
ausgegeben werden.

Dafür habe ich mir folgendes Skript geschrieben,
was aber leider nicht funktioniert.

Herzlichen Dank für eure Mühe
Ciao
nimenn


<%
Dim gsplit, gteil, gausgabe, x

Function test(x)
gteil[x] = Left (gteil[x], 8)
End Function


gsplit = Request.Form("ggenerator")
gteil = Split (gsplit, "Result%3fu%3d", -1)
for x = 0 to ubound(gteil)
call test(x)
next

gausgabe = Join (gteil,";")
%>

 

[nimenn]

So funktionierts, jetzt habe ich noch ein Problem, daß mein Eingabetext zu groß ist und einen Stackoverflow produziert. Mit Textschnipseln gehts:

<%
Dim gsplit, gteil, gausgabe, x
gsplit = Request.Form("ggenerator")
gteil = Split (gsplit, "Result%3fu%3d", -1)
for x = 0 to ubound(gteil)
gteil(x) = Left (gteil(x),8)
next
gausgabe = Join (gteil,";")
%>