Questa funzione permette di eliminare tutti i tag html da un testo:
Function CleanHtml(ByVal html As String) As String html = html.Replace(">", "> ") Dim doc = New HtmlAgilityPack.HtmlDocument() doc.LoadHtml(html) Dim text As String = HttpUtility.HtmlDecode(doc.DocumentNode.InnerText) Return Regex.Replace(text, "\s+", " ").Trim() End Function
Per il corretto funzionamento, occorre inserire nella cartella Bin del progetto, la dll allegata al post