Function regReplace(str,pattern1,pattern2)
Dim reg
Set reg=new RegExp
reg.global=True
reg.ignoreCase=True
reg.pattern=pattern1
regReplace=reg.Replace(str,pattern2)
End function
Dim reg
Set reg=new RegExp
reg.global=True
reg.ignoreCase=True
reg.pattern=pattern1
regReplace=reg.Replace(str,pattern2)
End function