提取页面信息出问题了

afan

$sHTML = _IEDocReadHTML ($oIE)
_IELoadWait ($oIE)
$1 = StringRegExp($sHTML, 'tdc2>(.*)</TD>', 3)
If @error <> 0 Then
        MsgBox(0, "提示", "没有匹配项目 ")
        Exit
Else
        $2 = StringRegExpReplace($1[1], ' ', ' ')
        $3 = StringRegExp($1[4], '\d{6}', 3)
        MsgBox(0, "提示", "手机号码段：" & $1[0] & @CRLF & _
                        "卡号归属地：" & $2 & @CRLF & _
                        "卡类型：" & $1[2] & @CRLF & _
                        "区号：" & $1[3] & @CRLF & _
                        "邮编：" & $3[0])
EndIf

36158130

哎
最后还是要靠自己

afan

16#没看到?

omegabomb

_INetGetSource ( $s_URL )不需要加载网页，速度较快

36158130

自己查出来了
是网页字母大小写配备错误：
用记事本调出来的源码和MSG查看的源码有些字母的大小写会改变
所以导致MSG配备错误。
现在好了：
$1 = StringRegExp($sHTML,'&nbsp;(.*)</TD>',3)
                                $2 = StringRegExp($sHTML,">(.*)&nbsp",3)
                                $3 = StringRegExp($sHTML,">(.*)</TD>",3)
                                $4 = stringRegExp($sHTML,">(.*)<A",3)
If @Error = 0 then MsgBox(0, "提示", "您的手机号码是:" &user &_
归属地:" &$2[1]& " "& $1[1]&_
卡号类型:"&$3[8]&_
"区号:"&$3[10]&_
"邮编:"&$4[1])