• Home
 · 
• Files/File Controls/Input/Output
 · 
• Converts HTML to text by removing < and > and the text between < and >.

Converts HTML to text by removing < and > and the text between < and >.

Converts HTML to text by removing "<" and ">" and the text between "<" and ">".

Rate Converts HTML to text by removing < and > and the text between < and >.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'Dan Bruton, [email protected]

Private Sub Command1_Click()
 Open App.Path & "/filename.html" For Input As 1
 Open App.Path & "/filename.txt" For Output As #2
 WDATA = True
 Do
 DoEvents
    ASDF = Input(1, 1)
    If ASDF = "<" Then WDATA = False
    If ASDF = ">" Then
      WDATA = True
    End If
    If WDATA = True And ASDF <> ">" Then
     Print #2, ASDF;
     Text1.Text = Text1.Text + ASDF
    End If
 Loop Until EOF(1)
 Close 1
 Close #2
End Sub