转换html到txt格式.txt

以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

你 可 以 在 Simtel（ http://www.simtel.net/simtel.net/msdos/html-pre.html） 找 到 一 些 命 令 行 工 具 ， 调 用 这 些 命 令 行 工 具 可 以 完 成 转 换 工 作 。 
    转 换 的 原 理 实 际 很 简 单 ， 下 面 这 段 代 码 实 际 上 就 是 清 楚 掉 TextBox中 的 所 有 Tag。 
    Private Sub ClearTags(rch As TextBox) 
    Dim txt As String 
    Dim tag_open As Integer 
    Dim tag_close As Integer 
     
     txt = rch.Text 
     tag_close = 1 
     Do 
     ' See where the next tag starts. 
     tag_open = InStr(tag_close, txt, "<") 
     If tag_open = 0 Then Exit Do 
     
     ' See where the tag ends. 
     tag_close = InStr(tag_open, txt, ">") 
     If tag_open = 0 Then tag_close = Len(txt) 
     
     ' Color the tag. 
     rch.SelStart = tag_open - 1 
     rch.SelLength = tag_close - tag_open + 1 
     rch.SelText = "" 
     Loop 
    End Sub 
<END>