VB如何获取下面代码中指定链接地址

发布网友发布时间：2022-05-05 08:49

共5个回答

热心网友时间：2023-10-25 20:30

Private Sub Command1_Click()
    Dim S As String, S1 As String, i As Long, j As Long
    Dim Tz1 As String, Tz2 As String
    Tz1 = "class=""SubL20""></b>"
    Tz2 = " class=""lf"">"
    S = "<div class="txt_tou">...."‘请在这里修改为上述网页代码，以便下面分析
    i = InStr(1, S, Tz1, vbTextCompare)
    Do While i > 0
        j = InStr(i + Len(Tz1), S, Tz2, vbTextCompare)
        S1 = Mid(S, i, j - i)
        i = InStr(1, S1, "<b title=", vbTextCompare)
        If i = 0 Then
            Tz1 = "<a href="""
            i = InStr(1, S1, Tz1, vbTextCompare)
            S1 = Mid(S1, i + Len(Tz1))
            i = InStr(S1, """")
            S1 = Left(S1, i - 1)
            MsgBox "你要找的网页链接是：" & S1
            Exit Do
        End If
        i = InStr(j + Len(Tz2), S, Tz1, vbTextCompare)
    Loop

热心网友时间：2023-10-25 20:31

Private Sub Command1_Click()
WebBrowser1.Navigate "https://www.baidu.com/s?wd=混胶机"
End Sub
Private Sub List1_Click()
Text1.Text = List1
Text2.Text = List1.ListIndex 'list1选中行行数
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
List1.Clear
Dim Document, i, s1, s2
For i = 0 To WebBrowser1.Document.links.length - 1
s1 = WebBrowser1.Document.links(i).href
s2 = WebBrowser1.Document.links(i).innertext
List1.AddItem s2 & " : " & s1
Next
End Sub

热心网友时间：2023-10-25 20:30

热心网友时间：2023-10-25 20:31

首先获得网页源代码的字符串，然后用正则匹配出所有的超链接即可。
如果只要第二个超链接，可以只取出上面的匹配结果集合中的第二项。

热心网友时间：2023-10-25 20:30

热心网友时间：2023-10-25 20:32

Dim AObj As Object
Dim NewAObj As Object
Dim temp As String

Private Sub Command1_Click()
Set AObj = WebBrowser1.Document.getElementsByTagName("a")
For Each NewAObj In AObj
temp = Trim(NewAObj.innerhtml)
If temp = "ssss" Then
text1.text = NewAObj
End If
Next
End Sub

热心网友时间：2023-10-25 20:32

你用正则匹配：

Detail\.aspx\?sid=\d+

就可以了

追问你这是吧全部链接找出来，我要找特定的！

追答先匹配DIV
然后过滤掉带有BBBBBBBB的
最后提取链接

热心网友时间：2023-10-25 20:31

首先获得网页源代码的字符串，然后用正则匹配出所有的超链接即可。
如果只要第二个超链接，可以只取出上面的匹配结果集合中的第二项。

热心网友时间：2023-10-25 20:32

你用正则匹配：

Detail\.aspx\?sid=\d+

就可以了

追问你这是吧全部链接找出来，我要找特定的！

追答先匹配DIV
然后过滤掉带有BBBBBBBB的
最后提取链接

热心网友时间：2023-10-25 20:31

首先获得网页源代码的字符串，然后用正则匹配出所有的超链接即可。
如果只要第二个超链接，可以只取出上面的匹配结果集合中的第二项。

热心网友时间：2023-10-25 20:32

你用正则匹配：

Detail\.aspx\?sid=\d+

就可以了

追问你这是吧全部链接找出来，我要找特定的！

追答先匹配DIV
然后过滤掉带有BBBBBBBB的
最后提取链接