8wDlpd.png
8wDFp9.png
8wDEOx.png
8wDMfH.png
8wDKte.png

图片 URL 提取问题

Hugo 1月前

25 0

我有一个网站,可以从中提取数据,但由于 URL 格式不正确,因此我在提取图像时遇到了问题。需要建议以正确的格式提取 URL...

我有一个可以从中提取数据的网站,但由于 URL 格式不正确,我在提取图像时遇到了问题。需要建议以正确的格式提取 URL。我的工作代码如下,但输出 URL 不正确。页面 URL 是 \'https://tjmaxx.tjx.com/store/jump/product/Waterproof-Hiking-Boots/1000935805?rrec=true&cs=PDP\'

我的以下代码是提取图像,但网址不正确

Dim imgs As String
imgs = d.FindElementByXPath("/html/body/div[4]/div/div/div[2]/section/div[1]/div[1]/  div").Attribute("innerHTML")
If imgs = "" Then
imgs = d.FindElementByXPath("/html/body/div[2]/div/div/div[2]/section/div[1]/div[1]/div").Attribute("innerHTML")
End If
'MsgBox (imgs)
img = CountChrInString(imgs, "img src")
'MsgBox (img)
For i = 1 To img
img1 = d.FindElementByXPath("/html/body/div[4]/div/div/div[2]/section/div[1]/div[1]/div/ul/li[" & i & "]/a/img").Attribute("src")
If img1 = "" Then
img1 = d.FindElementByXPath("/html/body/div[2]/div/div/div[2]/section/div[1]/div[1]/div/ul/li[" & i & "]/a/img").Attribute("src")
End If
If imgall = "" Then
imgall = img1
Else
imgall = imgall & "," & img1
End If
Next
帖子版权声明 1、本帖标题:图片 URL 提取问题
    本站网址:http://xjnalaquan.com/
2、本网站的资源部分来源于网络,如有侵权,请联系站长进行删除处理。
3、会员发帖仅代表会员个人观点,并不代表本站赞同其观点和对其真实性负责。
4、本站一律禁止以任何方式发布或转载任何违法的相关信息,访客发现请向站长举报
5、站长邮箱:yeweds@126.com 除非注明,本帖由Hugo在本站《vba》版块原创发布, 转载请注明出处!
最新回复 (0)
  • 这与您之前评论中的链接相同。这什么也没告诉我。链接打开了一个页面。您说代码提取图像。到底是什么问题?

返回
作者最近主题: