输出格式为什么不是自己想象中的那样?(已解决)

yiruirui

#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!

yiruirui

没人吗?好可怜的我

yiruirui

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 $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行开始就不行吗?
还是因为数字跟字体所占用的宽度,高度不同有关系呢?这个问题莫非我是第一个发现的?那我就成名人了啊!!!