急...求一个vbs正则表达式,在线等...

shaxue
沙雪
等级:
可用分等级：中农
总技术分：46
总技术分排名：131329
揭贴率：81.41%

发表于：2008-08-21 16:58:50 楼主

得到页面源代码..,里面有如下语句:
.............
<script>
var goSwidth = 60;
var goSheight = 60;
var goSflashfile = 'http://cn.yimg.com/i/wea/v1/ico/w32.swf';
var imgSrc = 'http://cn.yimg.com/i/wea/w32.gif'
var goLink = '';
</script>
..............
我想得到 http://cn.yimg.com/i/wea/v1/ico/w32.swf 这一串,如何使用正则?
set reg=new Regexp
reg.Multiline=True
reg.Global=Flase
reg.IgnoreCase=true
reg.Pattern="本帖所求的正则表达式"
Set matches = reg.execute(wstr)'wstr为得到的页面代码
For Each match1 in matches
response.write(match1.Value)
Next

问题点数：20 回复次数：3 修改删除举报引用回复

wcwtitxu
痞子
等级:
可用分等级：富农
总技术分：6191
总技术分排名：3462

发表于：2008-08-21 20:14:131楼得分:0

VBScript code


    Set reg = New RegExp 
    reg.Multiline  = True 
    reg.Global     = Flase 
    reg.IgnoreCase = True 
    reg.Pattern = "var goSflashfile = '([^']+)'" 
    Set matches = reg.Execute(s)'wstr为得到的页面代码 
    For Each match1 In matches 
            MsgBox match1.SubMatches(0)
    Next

修改删除举报引用回复

dgm8
dgm8
等级:
可用分等级：掌柜
总技术分：6034
总技术分排名：3520

发表于：2008-08-30 14:10:172楼得分:0

Set reg = New RegExp
reg.Multiline = True
reg.Global = Flase
reg.IgnoreCase = True
reg.Pattern = "[^']+\.swf"
Set matches = reg.Execute(s)
MsgBox Matches(0)

修改删除举报引用回复