Imports System.Text.RegularExpressions
Function StripHTML(Content As String) As String
Dim Match As String = "<(?:[^>=]|='[^']*'|=""[^""]*""|=[^'""][^\s>]*)*>"
StripHTML = Regex.Replace(Content, Match, "", RegexOptions.IgnoreCase Or RegexOptions.IgnorePatternWhitespace Or RegexOptions.Multiline Or RegexOptions.Singleline)
End Function
No comments:
Post a Comment