Function RegExpTest(patrn, strng)
 Dim regEx, Match, Matches   ' 建立变量。
 Set regEx = New RegExp     ' 建立正则表达式。
 regEx.Pattern = patrn     ' 设置模式。
 regEx.IgnoreCase = True     ' 设置是否区分字符大小写。
 regEx.Global = True     ' 设置全局可用性。
 Set Matches = regEx.Execute(strng)  ' 执行搜索。
 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 />"
'//创建RegExp对象
set regexp=new RegExp
'//设置正则表达式

regexp.Pattern="o."
'//设置是否替换所有匹配
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"

'//创建RegExp对象
set regexp=new RegExp
'//设置正则表达式
regexp.Pattern=".s"

'//调用Test方法
blvar=regexp.Test(str)
if blvar then
 document.write "在"&str&"中找到了与"®exp.pattern&"相匹配的内容"

else
 document.write "没有找到匹配内容"  
end if
end sub