Tæl bestemt ord og erstat

<%
    sSrc = \"det spiller det her ja det gør\"
    sFind = \"det\"
    arrSrc = Split(sSrc, \" \")
       
    sNr = 1
   
    For i = 0 To UBound(arrSrc)
        If arrSrc(i) = \"det\" Then
            sFinal = sFinal & \" \" & sNr
            sNr = sNr + 1
        Else
            sFinal = sFinal & \" \" & arrSrc(i)
        End If
    Next i
   
   
    response.write sFinal

%>

/nuno

hov - lidt for meget vb - har fjernet et i efter Next

<%
    sSrc = \"det spiller det her ja det gør\"
    sFind = \"det\"
    arrSrc = Split(sSrc, \" \")
       
    sNr = 1
   
    For i = 0 To UBound(arrSrc)
        If arrSrc(i) = \"det\" Then
            sFinal = sFinal & \" \" & sNr
            sNr = sNr + 1
        Else
            sFinal = sFinal & \" \" & arrSrc(i)
        End If
    Next
   
   
    response.write sFinal

%>

/nuno   

Jepper det kan jeg se, og det virker oj som det skal, takker og god weekend ;o)

hov forkert kanp

np - og ilm :)

jo tak