htmlstr = "123<img src=""asdf.gif"" border=""0"">45<b>6</b>" htmlstr2 = RegReplace(htmlstr,"<(.[^><]*)>","") |
Function RegReplace(Str,PatternStr,RepStr) Dim NewStr,regEx NewStr = Str if isnull(NewStr) then RegReplace = "" exit function end if Set regEx = New RegExp regEx.IgnoreCase = True regEx.Global = True regEx.Pattern=PatternStr NewStr = regEx.Replace(NewStr,RepStr) RegReplace = NewStr end function |