Function RegExpTest(patrn, strng)
 Dim regEx, Match, Matches   ' 建立變量。
 Set regEx = New RegExp     ' 建立正則表達式。
 regEx.Pattern = patrn     ' 設(shè)置模式。
 regEx.IgnoreCase = True     ' 設(shè)置是否區(qū)分字符大小寫。
 regEx.Global = True     ' 設(shè)置全局可用性。
 Set Matches = regEx.Execute(strng)  ' 執(zhí)行搜索。
 For Each Match in Matches   ' 遍歷匹配集合。
  RetStr = RetStr & "Match found at position "
  RetStr = RetStr & Match.FirstIndex & ". Match Value is '"
  RetStr = RetStr & Match.Value & "'." & vbCRLF
 Next
 RegExpTest = RetStr
End Function
MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))

sub window_onLoad()
  dim str,regexp
dim msgstr
str="How are you"

msgstr="替換前:"&str&"<br />"
'//創(chuàng)建RegExp對象
set regexp=new RegExp
'//設(shè)置正則表達式

regexp.Pattern="o."
'//設(shè)置是否替換所有匹配
regexp.Global=True
document.write msgstr
'//替換操作

msgstr=regexp.Replace(str,"test")
msgstr="替換后："&msgstr
document.write msgstr
end sub

sub window_onLoad()
  dim str,regexp
dim blvar
str="This is a test"

'//創(chuàng)建RegExp對象
set regexp=new RegExp
'//設(shè)置正則表達式
regexp.Pattern=".s"

'//調(diào)用Test方法
blvar=regexp.Test(str)
if blvar then
 document.write "在"&str&"中找到了與"®exp.pattern&"相匹配的內(nèi)容"

else
 document.write "沒有找到匹配內(nèi)容"  
end if
end sub