本帖最后由 yiruirui 于 2010-11-23 17:59 编辑 #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,$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
MsgBox(0,$i+1,$aReg[$i])
_FileWriteToLine("result.txt",$line2,$aReg[$i],0)
$line2=$line2+2;
Next
next
我把此网页中的内容[上海 **区]的放在第一行,第三行,....奇数行,
把手机号码放到了2,4,...偶数行,
代码中并没发现什么问题 ,但是结果确意料之外完全没有按照我的格式输出,乱七八糟的,大虾们帮小弟看看那里有问题?3Q! |