<p>用VB將Html轉換為文本文件</p>
<p></p>
<p>p align="center">　　如何將一個超文本文件Html文件格式轉換為Txt文本文件呢？這就是本文所要討論的內容了。我們都知道，超文本文件有很多的標記，如$#@60;Html$#@62;、$#@60;Head$#@62;、$#@60;Body$#@62;等等，在文本文件中，這些都是沒用的，我們要把它們都刪去，而且超文本文件還有很多不可見的內容，如用“$#@60;!--”、“--$#@62;”括起來的內容、Java腳本程序，這些在文本文件中也是不可用的，我們也要把它們都刪去。因此，我們可以得出這么一個結論：</p>
<p>　　一個簡單的Html轉換Txt程序的基本原理就是－－將超文本文件不可視部分去掉，將超文本文件可視部分的內容寫到文本文件中去。</p>
<p>好了，有了理論就應該有些實際的東西了。轉換的步驟可以簡單地歸納為：</p>
<p></p>
<p></p>
<p>1、 去掉$#@60;head$#@62;部分的內容</p>
<p>2、 去掉$#@60;script$#@62;部分的Java腳本程序 </p>
<p>3、 轉換$#@60;br為換行符 </p>
<p>4、 轉換$#@60;/p$#@62;為換行符 </p>
<p>5、 轉換和去掉其它所有的超文本標記 </p>
<p>6、 轉換“$#@60;”為“<”符號 </p>
<p>7、 轉換“$#@62;”為“>”符號</p>
<p>8、 轉換“&”為“&”符號 </p>
<p>9、 轉換“ ”為空格符號</p>
<p>10、轉換“"”為引號 </p>
<p>11、去掉轉換后開頭和結尾出現的所有空格符號</p>
<p>12、轉換完成 </p>
<p></p>
<p></p>
<p>轉換的步驟可用VB的函數IsStr來實現，如下面的代碼可以去掉文本框Text3中超文本文件開頭到$#@60;/Head$#@62;標記部分的內容:</p>
<p></p>
<p></p>
<p>Do While InStr(1, LCase(Text3.Text), "$#@60;/head$#@62;") <> 0</p>
<p></p>
<p></p>
<p>Text3.SelStart = 0</p>
<p>Text3.SelLength = InStr(1, LCase(Text3.Text), "$#@60;/head$#@62;") + 6</p>
<p>Text3.SelText = ""</p>
<p></p>
<p></p>
<p>Loop</p>
<p></p>
<p></p>
<p>　　詳細的程序代碼請參看程序清單或源程序。這個轉換程序設計時考慮的是轉換規范的超文本文件，當要轉換的文件不夠標準（如：有$#@60;/head$#@62;而沒有$#@60;head$#@62;與之配對）的時候，轉換就不能完成。而且，這個例子只轉換了部分的超文本標記，還有許多的標記，如表單標記“FORM”并沒有被轉換，更多、更詳盡的功能就有待你完成了。</p>
<p></p>
<p>附程序清單：</p>
<p>Option Explicit</p>
<p>Private Sub Form_Load()</p>
<p></p>
<p>CommonDialog1.CancelError = True</p>
<p>Text3.Visible = False</p>
<p>Command1.Capti = "打開"</p>
<p>Command2.Caption = "轉換==$#@62;"</p>
<p>Command3.Caption = "保存"</p>
<p></p>
<p>End Sub</p>
<p>Private Sub Command1_Click() </p>
<p>On Error Resume Next</p>
<p>Dim TextLine As String</p>
<p>CommonDialog1.Filter = "網頁|*.htm;*.html"</p>
<p>CommonDialog1.ShowOpen</p>
<p>If err $#@60;$#@62; 32755 Then</p>
<p></p>
<p>Text1 = ""</p>
<p>"打開文件</p>
<p>Open CommonDialog1.FileName For Input As #1</p>
<p>Do While Not EOF(1)</p>
<p></p>
<p>Line Input #1, TextLine</p>
<p>Text1 = Text1 & Trim(TextLine)</p>
<p></p>
<p>Loop</p>
<p>Close #1</p>
<p></p>
<p>Else</p>
<p></p>
<p>MsgBox "不能打開文件"</p>
<p></p>
<p>End If</p>
<p></p>
<p>End Sub</p>
<p>Private Sub Command3_Click()</p>
<p></p>
<p>On Error Resume Next</p>
<p>CommonDialog1.Filter = "文本文件|*.txt"</p>
<p>CommonDialog1.ShowSave</p>
<p>If err $#@60;$#@62; 32755 Then</p>
<p></p>
<p>Open CommonDialog1.FileName For Output As #1</p>
<p>Print #1, Text3</p>
<p>Close #1</p>
<p></p>
<p>Else</p>
<p></p>
<p>MsgBox "不能保存文件"</p>
<p></p>
<p>End If</p>
<p></p>
<p>End Sub</p>
<p>Private Sub Command2_Click()</p>
<p></p>
<p>Dim txtStr As String</p>
<p>On Error GoTo err</p>
<p>Form1.MousePointer = 11</p>
<p>Text3.Text = Text1.Text</p>
<p>DoEvents</p>
<p>Form1.Caption = "正在去掉$#@60;head$#@62;部分..."</p>
<p>"去掉$#@60;head$#@62;部分</p>
<p>Do While InStr(1, LCase(Text3.Text), "$#@60;/head$#@62;") $#@60;$#@62; 0</p>
<p></p>
<p>Text3.SelStart = 0</p>
<p>Text3.SelLength = InStr(1, LCase(Text3.Text), "$#@60;/head$#@62;") + 6</p>
<p>Text3.SelText = ""</p>
<p></p>
<p>Loop</p>
<p>Form1.Caption = "正在去掉$#@60;script$#@62;部分..."</p>
<p>"去掉$#@60;script$#@62;部分</p>
<p>Do While InStr(1, LCase(Text3.Text), "$#@60;/script$#@62;") $#@60;$#@62; 0</p>
<p></p>
<p>Text3.SelStart = InStr(1, LCase(Text3.Text), "$#@60;script") - 1</p>
<p>Text3.SelLength = InStr(1, LCase(Text3.Text), "$#@60;/script$#@62;") - Text3.SelStart + 9</p>
<p>Text3.SelText = ""</p>
<p></p>
<p>Loop</p>
<p>Form1.Caption = "正在轉換$#@60;br$#@62;為換行符..."</p>
<p>"轉換$#@60;br$#@62;為換行符</p>
<p>Do While InStr(1, LCase(Text3.Text), "$#@60;br$#@62;") $#@60;$#@62; 0</p>
<p></p>
<p>Text3.SelStart = InStr(1, LCase(Text3.Text), "$#@60;br$#@62;") - 1</p>
<p>Text3.SelLength = 4</p>
<p>Text3.SelText = "" + vbCrLf</p>
<p></p>
<p>Loop</p>
<p>Form1.Caption = "正在轉換$#@60;p$#@62;$#@60;/p$#@62;為換行符..."</p>
<p>"轉換$#@60;/p$#@62;為換行符</p>
<p>Do While InStr(1, LCase(Text3.Text), "$#@60;/p$#@62;") $#@60;$#@62; 0</p>
<p></p>
<p>Text3.SelStart = InStr(1, LCase(Text3.Text), "$#@60;/p$#@62;") - 1</p>
<p>Text3.SelLength = 4</p>
<p>Text3.SelText = "" + vbCrLf</p>
<p></p>
<p>Loop</p>
<p>Form1.Caption = "正在刪除Html標記..."</p>
<p>"去掉其它的Html標記</p>
<p>Do While InStr(1, LCase(Text3.Text), "$#@60;") $#@60;$#@62; 0</p>
<p></p>
<p>Text3.SelStart = InStr(1, LCase(Text3.Text), "$#@60;") - 1</p>
<p>Text3.SelLength = InStr(1, LCase(Text3.Text), "$#@62;") - Text3.SelStart</p>
<p>Text3.SelText = ""</p>
<p></p>
<p>Loop</p>
<p>Form1.Caption = "正在轉換"$#@60;"為"$#@60;"..."</p>
<p>"轉換"$#@60;"為"$#@60;"</p>
<p>Do While InStr(1, LCase(Text3.Text), "$#@60;") $#@60;$#@62; 0</p>
<p></p>
<p>Text3.SelStart = InStr(1, LCase(Text3.Text), "$#@60;") - 1</p>
<p>Text3.SelLength = 4</p>
<p>Text3.SelText = "$#@60;"</p>
<p></p>
<p>Loop</p>
<p>Form1.Caption = "正在轉換"$#@62;"為"$#@62;"..."</p>
<p>"轉換"$#@62;"為"$#@62;"</p>
<p>Do While InStr(1, LCase(Text3.Text), "$#@62;") $#@60;$#@62; 0</p>
<p></p>
<p>Text3.SelStart = InStr(1, LCase(Text3.Text), "$#@62;") - 1</p>
<p>Text3.SelLength = 4</p>
<p>Text3.SelText = "$#@62;"</p>
<p></p>
<p>Loop</p>
<p>Form1.Caption = "正在轉換"&"為"&"..."</p>
<p>"轉換"&"為"&"</p>
<p>Do While InStr(1, LCase(Text3.Text), "&") $#@60;$#@62; 0</p>
<p></p>
<p>Text3.SelStart = InStr(1, LCase(Text3.Text), "&") - 1</p>
<p>Text3.SelLength = 5</p>
<p>Text3.SelText = "&"</p>
<p></p>
<p>Loop</p>
<p>Form1.Caption = "正在轉換" "為空格符..."</p>
<p>"轉換" "為" "</p>
<p>Do While InStr(1, LCase(Text3.Text), " ") $#@60;$#@62; 0</p>
<p></p>
<p>Text3.SelStart = InStr(1, LCase(Text3.Text), " ") - 1</p>
<p>Text3.SelLength = 6</p>
<p>Text3.SelText = " "</p>
<p></p>
<p>Loop</p>
<p>Form1.Caption = "正在轉換"""為引號..."</p>
<p>"轉換"""為引號</p>
<p>Do While InStr(1, LCase(Text3.Text), """) $#@60;$#@62; 0</p>
<p></p>
<p>Text3.SelStart = InStr(1, LCase(Text3.Text), """) - 1</p>
<p>Text3.SelLength = 6</p>
<p>Text3.SelText = """"</p>
<p></p>
<p>Loop</p>
<p>"去掉前后空格符</p>
<p>Text2.Text = Trim$(Text3.Text)</p>
<p>Form1.Caption = "轉換成功！"</p>
<p>Form1.MousePointer = 0</p>
<p>Exit Sub</p>
<p></p>
<p>err:</p>
<p></p>
<p>Form1.Caption = "轉換錯誤"</p>
<p>Form1.MousePointer = 0</p>
<p>MsgBox "轉換時出錯，請檢查你的源文件！"</p>
<p>Exit Sub</p>
<p></p>
<p>End Sub</p>