Try this:
Code:
Private Function Tagless(ByVal Text As String) As String
Dim i As Integer
Dim bInTag As Boolean
Dim strTmpStr As String
bInTag = False
For i = 1 to Len(Text)
If Not bInTag Then
If Mid(Text, i, 1) <> "<" Then
strTmpStr = strTmpStr & Mid(Text, i, 1)
Else
bInTag = True
End If
Else
If Mid(Text, i, 1) = ">" Then
bInTag = False
End If
End If
Next
TagLess = strTmpStr
End Function
Private Sub Form_Load()
Dim strHTML As String
strHTML = "<HTML>" & _
"<HEAD>" & _
"<TITLE>Test Page</TITLE>" & _
"</HEAD>" & _
"<BODY>" & _
"Hello World!" & _
"</BODY>" & _
"</HTML>"
MsgBox Tagless(strHTML)
End Sub
Should give you a Messagebox with "Test PageHello World!" in it.
Reply With Quote
