Function HTMLfilter(fString) Dim regEx Set regEx = New RegExp regEx.Pattern = "<[^>]+>|</[^>]+>" regEx.Global = true fString = regEx.Replace(fString,"") HTMLfilter = fStringEnd Function转自csdn Read More
posted @ 2011-04-30 22:27 Lester Programming Views(202) Comments(0) Diggs(0) Edit