正则问题

VBScript code

Function ReplaceTest(str,patrn) 
    Dim objRegExp, Match, Matches,temp
    Set objRegExp = New Regexp
    objRegExp.IgnoreCase = True
    objRegExp.Global = True
    objRegExp.Pattern = patrn
    Set Matches = objRegExp.Execute(strHTML)
    For Each Match in Matches
        temp = Match.Value
    Next
    Set objRegExp = Nothing
    ReplaceTest = str
End Function 

ReplaceTest(Html,"{news,(.*?)}")

Match.Value 匹配全部数据
如何获取 (.*?) 里面的内容

顶起来、、、、、、、、、、、、、

VBScript code

Function ReplaceTest(str,patrn) 
    Dim objRegExp, Match, Matches,temp
    Set objRegExp = New Regexp
    objRegExp.IgnoreCase = True
    objRegExp.Global = True
    objRegExp.Pattern = patrn
    Set Matches = objRegExp.Execute(str)
    For Each Match in Matches
        temp = Match.SubMatches(0)
    Next
    Set objRegExp = Nothing
    ReplaceTest = temp
End Function