RemoveHTMLTags

Remove HTML tags from a string, note, this won't handle html encoding.

CodeFunctionName
What is this?

Public

Tested

Original Work
Function RemoveHTMLTags(strString)
Dim nCharPos, sOut, bInTag, sChar
sOut = ""
bInTag = False
For nCharPos = 1 To Len(strString)
sChar = Mid(strString, nCharPos, 1)
if sChar = " <" Then
bInTag = True
End if
if Not bInTag Then sOut = sOut & sChar
if sChar = " >" Then
bInTag = False
End if
Next
RemoveHTMLTags = sOut
End Function

strString

write RemoveHTMLTags("<B>BOB</B> rules")

Views 5,579

Downloads 1,628

CodeID
DB ID