vb html转换为文本,用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 SubEnd Sub

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com

特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有