输出格式为什么不是自己想象中的那样?(已解决)
本帖最后由 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\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! 没人吗?好可怜的我{:face (229):} 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\d{9})\D', 3)
$bReg = StringRegExp($sText,'\[上海.+?\]',3)
$cReg = StringRegExp($stext,'<STRONG>(.+?律师)</STRONG>',3)
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行开始就不行吗?
还是因为数字跟字体所占用的宽度,高度不同有关系呢?这个问题莫非我是第一个发现的?那我就成名人了啊!!!
页:
[1]