抓取网页萃取网页内容的代码

dim sUrl
 sUrl="http://travel.state.gov/visa/frvi_bulletincurrent.html"
 Function streamtochar(StrStream)
 set stream=CreateObject("ADODB.Stream")
 stream.type=1
 stream.Mode=3
 stream.Open
 stream.Write Strstream
 stream.Position= 0
 stream.Type= 2
 stream.Charset="gb2312"
 streamtochar= stream.ReadText
 stream.Close
 set stream=nothing
 End Function
 i = i + 1
 function getContentByUrl(url)
 set XmlHttp = CreateObject("MSXML2.XMLHTTP")
 XmlHttp.open "GET",url,false
 XmlHttp.send
 getContentByUrl = streamtochar(oXmlHttp.responseBody)
 set XmlHttp=nothing
 end function

 function getRealContent(url)
 sContent = getContentByUrl(url)
 getRealContent=sContent
 end function

html= getContentByUrl(surl)
 url_start=inStr(html," " )


 Date_start=inStr(html,"Washington, D.C. ")+57
 Date_end=inStr(html," A. STATUTORY")-14
 Date_T=Mid(html,Date_start,Date_end-Date_start)

 url_end=inStr(html," ") url=Mid(html,url_start,url_end-url_start) url=replace(url,"“)
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值