dim sR
dim iStart,iEnd,sHtm
iStart = instr(1,sA,"product.asp?id=")
sqian = mid(sA,1,iStart-1)
while iStart > 0
iEnd = instr(iStart,sA,"target")
shuzi = trim(mid(sA, iStart+15, iEnd - iStart -15))
lujing = "product/" & shuzi & ".htm "
iStart = instr(iEnd + 6,sA,"product.asp?id=")
if iStart>0 then
kongxi = mid(sA,iEnd,iStart-iEnd)
sR = sR & lujing & kongxi
else
zuihou = mid(sA,iEnd,len(sA)-iEnd)
end if
wend
sR = sqian & sR & zuihou
本文展示了一个使用VBA进行简单网页解析的例子。通过查找特定字符串定位产品链接,并记录其路径。此方法适用于从静态HTML页面中提取信息。
2361

被折叠的 条评论
为什么被折叠?



