抓取网页萃取网页内容的代码 选择自 liujien 的 Blog

原创 2005年02月27日 21:04:00
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," " )  url_end=inStr(html," ")
 url=Mid(html,url_start,url_end-url_start)
 url=replace(url,"“)
 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)
版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

抓取网页内容的程序或代码(两层或更多,delphi)

抓取网页内容,通常大家以为到网上偷数据,然后把到收集到的数据挂到自己网上去。其实也可以将采集到的数据做为公司的参考,或把收集的数据跟自己公司的业务做对比等。 目前网页采集多为3P代码为多(3P即AS...

C# 获取网页内容代码

  • 2011-12-27 11:10
  • 178KB
  • 下载

网页内容实现太长实现返回顶部的代码

1、 返回顶部 var backTop = function(btnId){ var btn = document.getElementById(btnId); var d = docum...

php 抓取网页内容与图片

例子1: <?php include_once("curl.php");/*这个文件要自己配置好*/ header("content-type:text/html;charset=utf8"...

[Python]网络爬虫(二):利用urllib2通过指定的URL抓取网页内容

版本号:Python2.7.5,Python3改动较大,各位另寻教程。 所谓网页抓取,就是把URL地址中指定的网络资源从网络流中读取出来,保存到本地。  类似于使用程序模拟IE浏览器的功能,把...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)