本帖最后由 yiruirui 于 2010-11-1 20:46 编辑 #include<IE.au3>
#include<array.au3>
#include<file.au3>
$file=FileOpen("result.txt",10)
FileClose($file)
$k=1
$line1=1
$line2=2
$line3=1
Dim $i,$j,$k,$p
$line=1
For $k=1 To 2
$oIE=_IECreate("http://www.9ask.cn/search/findindex.asp?page="&$k&"&pnameid=2",0,0,1,0)
$stext=_IEBodyReadHTML($oIE)
$aReg = StringRegExp($sText, '\D(1[358]\d{9})\D', 3)
$bReg = StringRegExp($sText,'\[上海.+?\]',3)
$cReg = StringRegExp($stext,'<STRONG>(.+?律师)</STRONG>',3)
for $j=0 to UBound($bReg)-1
_FileWriteToLine("result.txt",$line1,$bReg[$j],0)
$line1=$line1+2;
Next
for $i=0 To UBound($bReg)-1
_FileWriteToLine("result.txt",$line2,$aReg[$i],0)
$line2=$line2+2;
Next
For $p=1 To UBound($cReg)-1
$text=FileReadLine("result.txt",$line)
_FileWriteToLine("result.txt",$line3,$text&$cReg[$p],1)
$line3=$line3+2
$line=$line+2
Next
Next
这样的输出结果不是我想要的格式!
我想要的格式如下:
[上海 静安区]刘仍安律师
13341686683
[上海 浦东新区]宫克律师
18917010683
格式:
地区 律师名字
手机号
所以特意来此求高手相助! |