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
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有