Convert HTML Text to Regular Text..Please help

[krystolized]

Okay, I have the logs of AIM Conversations [ I'm making an AIM Logger], and I would like for the logs to be plain text - But the AIM Window has them as HTML, How do I take all the HTML Out And just have it plain, so its nice and plain in notepad? MUCH thanks

[Merri]

Here is a code made by me:

Dim A As Long, B As Long, Buffer As String, Temp As String
    On Error Resume Next
    Buffer = Teksti.Text
    A = InStr(Buffer, "<")
    Do While A 'remove the tags
        DoEvents
        B = A
        A = InStr(Buffer, ">")
        If A = 0 Then Exit Do
        Temp = LCase(Mid(Buffer, B, A - B + 1))
        If Temp Like "<br>" Or Temp Like "</h1>" Or Temp Like "</h2>" Or Temp Like "</h3>" Or Temp Like "</h4>" Or Temp Like "</h5>" Or Temp Like "</h6>" Or Temp Like "<hr>" Or Temp Like "<p>" Then
            Buffer = Left(Buffer, B - 1) & vbCrLf & Right(Buffer, Len(Buffer) - A)
        Else
            Buffer = Left(Buffer, B - 1) & Right(Buffer, Len(Buffer) - A)
        End If
        A = InStr(Buffer, "<")
    Loop
    A = InStr(Buffer, vbCrLf & vbCrLf)
    Do While A 'remove too many enters
        DoEvents
        Buffer = Left(Buffer, A) & Right(Buffer, Len(Buffer) - A - Len(vbCrLf))
        A = InStr(Buffer, vbCrLf & vbCrLf)
    Loop
    Teksti.Text = Buffer

As for where Teksti is a TextBox / RichTextBox You can do more validating by yourself (I'm not sure what all AIM has). Anyways, I hope this helps!

[abhijit]

Use this link!
Strip HTML tags

Cheers!
Abhijit

[krystolized]

Thanks alot