php 循环抓取网页内容(动易科技公司BBS采集多为3P代码为多（3）)

　　php 循环抓取网页内容(动易科技公司BBS采集多为3P代码为多（3）)

　　爬取网页内容，通常人们认为他们从互联网上窃取数据，然后将采集

到的数据挂在自己的互联网上。事实上，您也可以将采集

到的数据作为公司的参考，或者将采集

到的数据与您公司的业务进行比较等。

　　目前网页采集

多为3P代码（3P即ASP、PHP、JSP）。东易科技公司BBS最常用的新闻采集系统，网上流传的新浪新闻采集系统都是ASP程序使用的，但理论上速度不是很好。如果尝试使用其他软件的多线程集合是否会更快？答案是肯定的。可以用DELPHI、VC、VB、JB，但是PB好像比较难做。下面用DELPHI来解释网页数据的采集。

　　一、 简单的新闻采集

　　新闻采集

是最简单的，只要您确定标题、副主题、作者、来源、日期、新闻正文和分页符即可。采集前必须获取网页内容，所以在DELPHI中添加idHTTP控件（在indy Clients面板中），然后使用idHTTP1.GET方法获取网页内容。声明如下：

　　函数获取（AURL：字符串）：字符串；超载;

　　AURL 参数是一个字符串类型，它指定一个 URL 地址字符串。函数return也是字符串类型，返回网页的HTML源文件。例如，我们可以这样调用：

　　tmpStr:= idHTTP1.Get('');

　　调用成功后，网易首页代码存放在tmpstr变量中。

　　接下来说一下数据拦截。在这里，我定义了这样一个函数：

　　函数 TForm1.GetStr(StrSource,StrBegin,StrEnd:string):string;

　　无功

　　in_star，in_end：整数；

　　开始

　　in_star:=AnsiPos(strbegin,strsource)+length(strbegin);

　　in_end:=AnsiPos(strend,strsource);

　　结果：=复制（strsource，in_sta，in_end-in_star）；

　　结尾;

　　StrSource：字符串类型，表示HTML源文件。

　　StrBegin：字符串类型，表示拦截开始的标志。

　　StrEnd：字符串，表示截取结束的标志。

　　该函数将字符串 StrSource 中的一段文本从 StrSource 返回到 StrBegin。

　　例如：

　　strtmp:=TForm1.GetStr('A123BCD','A','BC');

　　运行后strtmp的值为：'123'。

　　关于函数中使用的AnsiPos和copy，都是系统定义的。您可以在delphi的帮助文件中找到相关说明。我这里也简单说一下：

　　函数 AnsiPos(const Substr, S: string): 整数

　　返回 Substr 在 S 中第一次出现的位置。

　　函数复制（strsource，in_sta，in_end-in_star）：字符串；

　　返回字符串strsource 中从in_sta（整数数据）到in_end-in_star（整数数据）的字符串。

　　有了上面的功能，我们就可以通过设置各种标签来截取我们想要的文章内容。在程序中，比较麻烦的是我们需要设置很多标记。要定位某个内容，您必须设置其开始和结束标记。例如，要获取网页上的文章标题，必须提前查看网页代码，查看文章标题前后的一些特征码，通过这些特征码截取文章的标题。

　　下面我们来实际演示一下，假设要采集

的文章地址是

　　代码是：

　　文章标题

　　作者

　　出处

　　这是文章的正文。

　　第一步，我们使用 StrSource:= idHTTP1.Get(''); 将网页代码保存在 strsource 变量中。

　　然后定义 strTitle、strAuthor、strCopyFrom、strContent：

　　strTitle:= GetStr(StrSource,'

　　','

　　'):

　　strAuthor:= GetStr(StrSource,'

　　','

　　'):

　　strCopyFrom:= GetStr(StrSource,'

　　','

　　'):

　　strContent:= GetStr(StrSource,'

　　,'

　　'):

　　这样就可以将文章的标题、副标题、作者、来源、日期、内容、分页分别存储在上述变量中​​。

　　第二步是循环打开下一页，获取内容，并添加到strContent变量中。

　　StrSource:= idHTTP1.Get('new_ne.asp');

　　strContent:= strContent +GetStr(StrSource,'

　　,'

　　'):

　　然后判断是否有下一页，如果有，则获取下一页的内容。

　　这样就完成了一个简单的拦截过程。从上面的程序代码可以看出，我们使用的拦截方式是找到被拦截内容的head和tail。如果有多个头和尾怎么办？好像没有办法，只能找到第一个，所以找之前应该验证一下，截取的内容前后只有一个地方。