• Home
 · 
• String Manipulation
 · 
• Parses out html tags from a string.

Parses out html tags from a string.

Parses out html tags from a string.

API Declarations


'you need a rich text box named rtb1



Rate Parses out html tags from a string.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'strurl is the desired string to be parsed

For intloop = 1 To Len(strurl)
    If Mid(strurl, intloop, 1) = ">" Then 'continue until "<"
        For intloop2 = intloop To Len(strurl)
            If Mid(strurl, intloop2, 1) = "<" Then
                If intloop + 1 = intloop2 - 1 Then
                    Exit For
                Else
                    rtb1.Text = rtb1.Text & Mid(strurl, intloop + 1, (intloop2 - intloop) - 1) 'write to rtb1
                    Exit For
                End If
            End If
        Next
    End If
Next
End Sub