Replace i streng

Jeg fandt lige en gammel funktion som jeg havde liggende. Den var oprindelig beregnet til at finde en token ([%Token%]), og dermed tage teksten mellem "[%" og "%]". Den har jeg så lige omprogrammeret til dit behov.

Den ser sådan her ud:

<%
Function FjerneDocumentWrite(tekst)
dim l_ia, l_ib, l_sLine, l_sLine2, l_sToken
l_ia = instr(, "document.write(""")
    if l_ia > 0 then
        l_sLine = left(tekst, l_ia - 1)
        l_ib = instr(l_ia,tekst, """)")
        l_sLine2 = mid(tekst, l_ia, CLng(l_ia+15+l_ib+2))
        FjerneDocumentWrite(l_sLine2)
    else
        Response.Write(tekst & VbCrLf)
    end if
end Function
%>

Så det du gør er:

<%
tekst = "document.write(""Overskrift"");"
FjerneDocumentWrite(tekst)
%>

Så skulle dit output gerne være "Overskrift".. sig til hvis den ikke virker.

Det gør det ikke. Får "Type mismatch" i linien: l_ia = instr(, "document.write(""")

Der skal stå: l_ia = instr(tekst, "document.write(""")

Får: Out of stack space: 'FjerneDocumentWrite'

i linien

FjerneDocumentWrite(l_sLine2)

Hvorfor ikke bare bruge:

tekst = "document.write(""Overskrift"");"
tekst = Replace(tekst,"document.write(""","")
tekst = Replace(tekst,""");","")


Response.write(tekst)

- hurtigt og 'grimt'

nozio >> det er rigtigt nok at du kan bruge de første 2 linier, men den tredje holder ikke hvis du har et funktionskald eller noget at som indeholder ").

nozio > det gør hvad det skal, det kode der - den tager jeg, grimt eller ej :-)

Svar venligst. Tak for hjælpen til jer begge.

ok - herligt ..