IfIsNull(strContent)ThenExitFunction
Dimre
Setre=newRegExp
re.IgnoreCase=True
re.Global=True
re.Pattern="/[quote/](.[^/]]*?)/[//quote/]"
strContent=re.Replace(strContent,"")
re.Pattern="/[quote=(.[^/]]*)/](.[^/]]*?)/[//quote/]"
Setre=Nothing
DelQuote=strContent
EndFunction