• Home
 · 
• Internet/HTML
 · 
• Removes ALL HTML tags out of a string.

Removes ALL HTML tags out of a string.

Removes ALL HTML tags out of a string.

Rate Removes ALL HTML tags out of a string.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

 Dim kS, kE

 Do While InStr(1, s, "<") > 0
 
  kS = InStr(1, s, "<")
  kE = InStr(1, s, ">")
  
  s = Left(s, kS - 1) & Right(s, Len(s) - kE)
 
 Loop

 KillHTMLTags = s

End Function