[已解决]正则表达式提取网页源码数据

51ak

这个很好，我休息了。

suifengyao

学习``````

liufenglg

StringRegExp($str, '您查询的手机号码段</TD>(?s)(.[^>]*)>(.[^<]*)(.*)' & _

                        '卡号归属地</TD>(?s)(.[^>]*)>(.[^<]*)(.*)' & _

                        '卡&nbsp;类&nbsp;型</TD>(?s)(.[^>]*)>(.[^<]*)(.*)' & _

                        '区 号</TD>(?s)(.[^>]*)>(.[^<]*)(.*)' & _

                        '邮 编</TD>(?s)(.[^>]*)>(.[^<]*)', 3)

        If Not @error Then

                $telinfo[1] = $phoNo[1]

                $telinfo[2] = StringReplace($phoNo[4],"&nbsp;"," ")

                $telinfo[3] = $phoNo[7]

                $telinfo[4] = $phoNo[10]

                $telinfo[5] = $phoNo[13]

                $telinfo[0] = 5
就这看不懂

suifengyao

谢谢，学习一下