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
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
首先获得网页源代码的字符串,然后用正则匹配出所有的超链接即可。
如果只要第二个超链接,可以只取出上面的匹配结果集合中的第二项。
热心网友
时间: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: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
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: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:31
首先获得网页源代码的字符串,然后用正则匹配出所有的超链接即可。
如果只要第二个超链接,可以只取出上面的匹配结果集合中的第二项。
热心网友
时间: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
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的
最后提取链接