求一个正则的写法

水木子 · 发表于 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[0])

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[0])

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

好的，顶顶

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

回复 1# xiaozui

高手都来了~

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

俺这等只能看看的份，学习了

		自动登录	找回密码
密码			加入

[AU3基础] 求一个正则的写法

评分

评分