1、 去掉$#@60;head$#@62;部分的内容2、 去掉$#@60;script$#@62;部分的Java脚本程序 3、 转换$#@60;br为换行符 4、 转换$#@60;/p$#@62;为换行符 5、 转换和去掉其它所有的超文本标记 6、 转换“$#@60;”为“<”符号 7、 转换“$#@62;”为“>”符号8、 转换“&”为“&”符号 9、 转换“ ”为空格符号10、转换“"”为引号 11、去掉转换后开头和结尾出现的所有空格符号12、转换完成
Do While InStr(1, LCase(Text3.Text), "$#@60;/head$#@62;") <> 0 Text3.SelStart = 0Text3.SelLength = InStr(1, LCase(Text3.Text), "$#@60;/head$#@62;") + 6Text3.SelText = ""Loop
Text3.SelStart = 0Text3.SelLength = InStr(1, LCase(Text3.Text), "$#@60;/head$#@62;") + 6Text3.SelText = ""
Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长：MinTao ICP备案号：鄂ICP备11006601号-18
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
