用VB将Html转换为文本文件(2)

Text3.SelLength = InStr(1, LCase(Text3.Text), "$#@62;") - Text3.SelStart
Text3.SelText = ""
Loop
Form1.Caption = "正在转换"$#@60;"为"$#@60;"..."
"转换"$#@60;"为"$#@60;"
Do While InStr(1, LCase(Text3.Text), "$#@60;") $#@60;$#@62; 0

Text3.SelStart = InStr(1, LCase(Text3.Text), "$#@60;") - 1
Text3.SelLength = 4
Text3.SelText = "$#@60;"

Loop
Form1.Caption = "正在转换"$#@62;"为"$#@62;"..."
"转换"$#@62;"为"$#@62;"
Do While InStr(1, LCase(Text3.Text), "$#@62;") $#@60;$#@62; 0

Text3.SelStart = InStr(1, LCase(Text3.Text), "$#@62;") - 1
Text3.SelLength = 4
Text3.SelText = "$#@62;"

Loop
Form1.Caption = "正在转换"&"为"&"..."
"转换"&"为"&"
Do While InStr(1, LCase(Text3.Text), "&") $#@60;$#@62; 0

Text3.SelStart = InStr(1, LCase(Text3.Text), "&") - 1
Text3.SelLength = 5
Text3.SelText = "&"

Loop
Form1.Caption = "正在转换" "为空格符..."
"转换" "为" "
Do While InStr(1, LCase(Text3.Text), " ") $#@60;$#@62; 0

Text3.SelStart = InStr(1, LCase(Text3.Text), " ") - 1
Text3.SelLength = 6
Text3.SelText = " "

Loop
Form1.Caption = "正在转换"""为引号..."
"转换"""为引号
Do While InStr(1, LCase(Text3.Text), """) $#@60;$#@62; 0

Text3.SelStart = InStr(1, LCase(Text3.Text), """) - 1
Text3.SelLength = 6
Text3.SelText = """"

Loop
"去掉前后空格符
Text2.Text = Trim$(Text3.Text)
Form1.Caption = "转换成功！"
Form1.MousePointer = 0
Exit Sub
err:

Form1.Caption = "转换错误"
Form1.MousePointer = 0
MsgBox "转换时出错，请检查你的源文件！"
Exit Sub

End Sub

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有