+86-591-8756 2601

News

1234 Next > >> Page 1 / 4
<% Public Function TextOnly(ByVal sOut) Dim re:Set re=New RegExp re.IgnoreCase=True re.Global=True re.Pattern=".*" sOut=re.Replace(sOut,"") re.Pattern=".*" sOut=re.Replace(sOut,"") re.Pattern=".*" sOut=re.Replace(sOut,"") re.Pattern="(<(.[^>]*)>)" sOut=re.Replace(sOut,"") Set re=Nothing TextOnly=sOut End Function %>