Hvordan fjerner man tags fra en streng?

Det skulle have være større-end og mindre-end tegn :-)

Hejsa,

Denne function bruger jeg i min filecrawler
Den fjerner alle HTML-tags i bodyTxt

vh Søren Peter
http://zap.to/soerenpeterdk
       
Function clearBody(bodyTxt)
clearBody=\"\"
chekBody = True
bodyTxt=Trim(bodyTxt)
\'fjerner alle html tags
      Do While chekBody = True
  startBody = Instr(1,bodyTxt,\"<\")
  if not Instr(startBody+1,bodyTxt,\">\")then
    bodyTxt=bodyTxt & \">\"
end if
          slutBody =Instr(startBody+1,bodyTxt,\">\")
If startBody > 1 Then
  bodyTxt = Mid(bodyTxt,slutBody,Len(bodyTxt)) & Left(bodyTxt,startBody -1)

  Else
  chekBody = False
  End If
Loop
bodyTxt = replace(bodyTxt,\">\",\"\")
clearBody = bodyTxt

End Function

Du skal lige have dette med:-)

Din funktion virker ikke. Til gengæld gav den mig inspiration til at få lavet én der virker, så du får point\'ene alligevel :-)

Her er den funktion, der skal til


function removeTags(s)
    dim check, start
    check = true
    s = trim(s)
    \' fjerner alle html tags
  do while check
      start = Instr(1, s , \"<\")
        if start >= 1 then
            if Instr(start+1, s, \">\") = 0 then
            s = s & \">\"
            end if
            slut = Instr(start+1, s, \">\")
          response.write(\"#slut\"&slut&\"#\"&vbCrLf)

          s = left(s, start-1) & right(s, len(s)-slut)
      else
          check = false
      end If
    loop
    removeTags = s
end function

Stryg lige den der linie med \"response.write\" - det var bare en test :)

Den virker ellers fint i mit script!!!

Det ligner den samme