WebBrowser 某行定位并编辑问题求助

Question

Dim vDoc, vTag
Dim i As IntegerSet vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
    If UCase(vDoc.All(i).tagName) = "INPUT" Then
        Set vTag = vDoc.All(i)
        If vTag.Action = "http://xxx/xx/pose_quote.php" Then
        vTag.Action = ""
        End If
    End If
Text1 = 0
Next i
End If
用VB6.0以上代码可以实现自动浏览,1."INPUT"这行已被我取得并且修改了Action属性,但<a href='...'...>这样的无找到定位它.2.我想定位诸如下面的这一行并取得如下这行中的字付串:三明+
+福州+*Xm,请问如何操作.
<a href='http://xxx/xx/0501030000.html' target='_blank'>三明</a> | <a href='http://xxx/xx/0304050700.html' target='_blank'>福州</a> | <a href='http://xxx/xx/0201340000.html' target='_blank'>*Xm</a> 3.WebBrowser如何获取源文件中某一行,能否修改删除此行中的如下代码,或者是用自编行替换它
<a href='http://xxx/xx/0501030000.html' target='_blank'>

Answer 1

用个小偷函数截取一下就可以了我写国asp照样搬过来的Private Function GetKey(HTML, Start, Last, i)
   On Error Resume Next
filearray = Split(HTML, Start)
filearray2 = Split(filearray(i), Last)
GetKey = filearray2(0)
End Function获取所有的html源代码
  Dim doc As IHTMLDocument2
    
   Set doc = WebBrowser1.Document
    
   Dim tmp As String   Dim ttime As Integer
  p = doc.body.innerHTML
t1 = GetKey(html1, "'_blank'>", "</a>", 1)'这个得到的值是三明
t2 = GetKey(html1, "'_blank'>", "</a>", 2)'这个得到的值是福州
t3 = GetKey(html1, "'_blank'>", "</a>", 3)'这个得到的值是*Xm对于herf这样的你不需要定位他只需要用我上面的函数把他截取出来
然后
WebBrowser1.Navigate 你要跳转的地址这样就可以至于第三个问题
不知道你的目的,如果你是要在互联网浏览的时候过滤某些字符或者是字体不让他在你的webbrower中显示出来的化,估计不行
vb的webbrower只是调用ie的内核并不能做到直接替换的效果
如果你是要仅仅是显示页面的时候你可以用这个办法折中一下,就是把网页下载到本地
然后WebBrowser1.Navigate 跳转到本地上你已经修改过的html页面上
这样大哥可以

Answer 2

p = doc.body.innerHTML
这段写错了
应该是
html1 = doc.body.innerHTML