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,";")
%>
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,";")
%>