水木子 发表于 2011-5-21 22:47:47

回复 15# xiaozui
#include <INet.au3>
$sUrl = _INetGetSource('http://home.51.com/simayizhuo/loveinfo')
$aSre = StringRegExp($sUrl, '[^><]+(?=<\/strong)', 3)
If IsArray($aSre) Then MsgBox(0, '', $aSre)

3mile 发表于 2011-5-21 22:54:21

#include <Ie.au3>
#Include <Array.au3>
$IE_Visit_loveinfo = _IECreate("http://home.51.com/simayizhuo/loveinfo",0,1,1)
$sText = _IEDocReadHTML($IE_Visit_loveinfo)
$aSre = StringRegExp($sText, "(?i)strong.*?>(.*?)(?=\<\/strong)", 3)
If IsArray($aSre) Then MsgBox(0, '', $aSre)

bsdos 发表于 2011-5-25 14:49:07

好的，顶顶

子非鱼 发表于 2011-5-27 06:17:43

回复 1# xiaozui


    高手都来了~

xdcysten 发表于 2011-5-27 12:39:27

俺这等只能看看的份，学习了
页: 1 [2]
查看完整版本: 求一个正则的写法