UC知道vb怎么样提取源码的中文部分显示
来源：百度知道 编辑：UC知道 时间：2024/06/22 10:10:50
用文本框还是其它控件，我想只要输出的时候，控制只显示中文就可以，具体怎么操作，请写出代码，要详细的，
例如；提取出的网页源码（在文本框中显示）：<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
</head>
<card id="main" title="乐讯欢迎您"><p>输入ID和密码不能为空,请确认后重新登陆输入!<br/>
如1小时内输3次错误密码,需1小时后才能用ID号手动登陆.但可用手机号码登录;<a href="http://221.130.191.179/login/zz.aspx?cd=0&lxt=">自动登录</a>方式登录,或<a href="http://lexun.com/logingetpw
例如；提取出的网页源码（在文本框中显示）：<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
</head>
<card id="main" title="乐讯欢迎您"><p>输入ID和密码不能为空,请确认后重新登陆输入!<br/>
如1小时内输3次错误密码,需1小时后才能用ID号手动登陆.但可用手机号码登录;<a href="http://221.130.191.179/login/zz.aspx?cd=0&lxt=">自动登录</a>方式登录,或<a href="http://lexun.com/logingetpw
for i=1 to len(所有文本)
Target=mid(所有文本,i,1)
If LenB(StrConv(Target, vbFromUnicode)) = 2 or target=vbcr or target=vblf Then '只有这个字符是中文条件才成立，或者为换行符也做
text1.text=text1.text & Target
end if
next i
老弟,不知道你是否接触过正则表达式呢?
希望你有时间去看一下,可能10分钟就自已搞定了!
正则表达式
呵
如果每遇到一个问题都要立刻寻求所谓的"最高效"的方法，那工程就没法继续了。运用我们所会的东西立刻解决问题会对整个的学路历程增加自信和成就感。当然，之后，你得记住正则表达式，抽个时间好好看看，但之前你可以用很多别的方法（并不会很繁琐）先解决。
………………今天听你说看一时不懂正则表达式，建议之言
我用webbrowser做出了你需要的东西，如下图：
关不掉的鸽子VB源码
vb 取网站的图片显示在客户端上，请付源码
笔记本电脑无法显示部分中文
求自动关闭程序的VB源码！
求中文日期的asp源码
求VB方面的外文翻译,要大篇幅 (中文部分要3000字左右)
如何提取MP3里的部分音乐
如何提取图片中想要的部分
VB下载+VB源码下载
什么是VB源码