huh?

again:


Function RemoveTags(tekst)

If FindChar(tekst, 1, \"<\") <> \"NO\" Then
Do While FindChar(tekst, 1, \"<\") <> \"NO\" And FindChar(tekst, 1, \">\") <> \"NO\"
Tag = Mid(tekst, FindChar(tekst, 1, \"<\"), FindChar(tekst, 1, \">\") - FindChar(tekst, 1, \"<\") + 1)

tekst = Replace(tekst, Tag, \"\")
Loop
RemoveTags = tekst
End If
MsgBox FindChar(tekst, 1, \"<\")
End Function

Function FindChar(Text, Startat, find) As String
FindChar = \"NO\"
For x = 1 To Len(Text)
currchar = Mid(Text, x, 1)
If currchar = find Then
FindChar = x
Exit Function
End If
Next
End Function

ved godt at koden r giga rodet...og r ting med der ikke behøver..men whateva......

ehm ... hvad er det du prøver på ? at fjerne alle HTML tags fra en streng ?

<%
    Function RemoveHTML(strString)
        Index = 1
       
        Do
            Index = InStr(Index, strString, \"<\")
            If Index = 0 Then Exit Do
           
            EndIndex = InStr(Index, strString, \">\")
           
            strTag = LCase(Mid(strString, Index, (EndIndex - Index) + 1))
            strLeft = Left(strString, Index - 1)
            strRight = Right(strString, Len(strString) - EndIndex)
           
            strString = strLeft & strRight
           
            Index = Index + 1
        Loop
       
        RemoveHTML = strString
    End Function
%>

virker ikke.........

Det gør det da vel nok .... hvad er det der ikke virker da ?

den fjerner sq ikke alt!

fik det sq aldrig til at du.....er et flere megabyte landt dok den skal løbe igennem....og i en del tilfælde stopper den efter at have fjernet bare et par stykker........men hvis du er på icq mens jeg er på arbejde kan ejg lige vise dig det..og hvis du så kan lave en func der dur til det kan vi oprette emd spm og svar herinde igen!