Remove HTML tags from a string, note, this won't handle html encoding.
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
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,656
Downloads 1,651
CodeID
DB ID
DevinGarlit
4
Revisions
v1.0
Sunday
July
15
2018