用VB 写程序 在 WebBrowser中打开某个网页 如何查找匹配字符 ?高手来 10
本人用VB写了段代码,在WebBrowser中打开某个网页倒序查找某个匹配字符,目前已经实现了,但查找到的时候,不是匹配的,而是词组中只要有这个字符,也查出来了,我想要它...
本人用VB写了段代码,在 WebBrowser中打开某个网页 倒序查找某个匹配字符,目前已经实现了,但查找到的时候,不是匹配的,而是词组中只要有这个字符,也查出来了,我想要它查到匹配字符,如:查找"2 " 那么百度中有" 2012年 " 这个也就查找出来了,请问如如何写匹配查找"2",下面的怎么改?
If web1.ReadyState = READYSTATE_COMPLETE Then
Set vTag = web1.Document.getElementsByTagName("a")
vCount = vTag.Length
For i = 0 To vCount - 1
If InStr(1, LCase(web1.Document.All.tags("a")(i)), LCase(Text2.Text)) > 0 Then
web1.Navigate web1.Document.All.tags("a")(i)' 查找
fl = 1 '说明查找到了
Exit Sub
End If 展开
If web1.ReadyState = READYSTATE_COMPLETE Then
Set vTag = web1.Document.getElementsByTagName("a")
vCount = vTag.Length
For i = 0 To vCount - 1
If InStr(1, LCase(web1.Document.All.tags("a")(i)), LCase(Text2.Text)) > 0 Then
web1.Navigate web1.Document.All.tags("a")(i)' 查找
fl = 1 '说明查找到了
Exit Sub
End If 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询