vb中我想采用正则表达式提取网页中的姓名等内容,看了百度的内容和CSDN相关贴子后还是没有解决,请高手们帮忙!谢谢!
1.网页中固定的代码如下,只是姓名处不同,就是要提取这个姓名:
<a href="#" id="lnkCVTop_1" title="1">
吴绍兰
</a><span id="spStatusPicTop_1">
2.我的代码如下:出错了
tempstr = WebRez.Document.body.innerHtml 'webrez是个webbrowser控件,它连接至某个简历网页
Set re = New RegExp
re.Global = True
re.IgnoreCase = True
re.Pattern = "title=\1>" & "[^a-z|^0-9]{2-6}<a>"
If re.Test(tempstr) Then
Set mhs = re.Execute(tempstr)
For Each mh In mhs
MsgBox mh.Value
Next
End If
出问题在if语句处,查立即窗口,?tempstr就是网页的源代码
?re.test(tempstr)结果是false,我想它为true请高手们帮忙修改下正则表达式,刚学,不太明白,谢谢
1.网页中固定的代码如下,只是姓名处不同,就是要提取这个姓名:
<a href="#" id="lnkCVTop_1" title="1">
吴绍兰
</a><span id="spStatusPicTop_1">
2.我的代码如下:出错了
tempstr = WebRez.Document.body.innerHtml 'webrez是个webbrowser控件,它连接至某个简历网页
Set re = New RegExp
re.Global = True
re.IgnoreCase = True
re.Pattern = "title=\1>" & "[^a-z|^0-9]{2-6}<a>"
If re.Test(tempstr) Then
Set mhs = re.Execute(tempstr)
For Each mh In mhs
MsgBox mh.Value
Next
End If
出问题在if语句处,查立即窗口,?tempstr就是网页的源代码
?re.test(tempstr)结果是false,我想它为true请高手们帮忙修改下正则表达式,刚学,不太明白,谢谢
解决方案 »
- VB 按钮如何用TGA文件作背景?
- 100分问题 ListView显示Picture的图象问题
- 函数int的功能是什么?为什么int(88200*0.06*100)结果是5291999 而不是5292000???
- 如何100%有效获得网卡的MAC地址!
- 操作系统自动删除打印文档,是不是哪里设置有问题呢?需要怎么解决呀?急急急急急急急急
- vb高手来啊
- 在线等待,如何将数据库中的图片字段(sqlserver 中的 ole 字段)显示到data report
- 怎么返回调用函数的结果值呢?
- Image图像的问题:选中部分的图像缩放应如何处理?
- 怎样在程序中封装一个值?
- 对象变量或WITH变量未设置。
- 请问用vb如何关闭80及25、110等上网或收发邮件之端口.
tempstr = WebRez.Document.body.innerText
看看tempstr是什么内容,或许不用正则就可以........