afan 发表于 2009-8-18 11:28:22

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

36158130 发表于 2009-8-18 11:32:42

哎
最后还是要靠自己

afan 发表于 2009-8-18 11:50:27

16#没看到?

omegabomb 发表于 2009-8-18 12:17:26

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

36158130 发表于 2009-8-18 14:50:42

自己查出来了
是网页字母大小写配备错误：
用记事本调出来的源码和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&_
卡号类型:"&$3&_
"区号:"&$3&_
"邮编:"&$4)
页: 1 [2]
查看完整版本: 提取页面信息出问题了