Зачистка html-тегов в строке

Question

У меня есть программа, которую я пишу, это Предполагаемый, чтобы снять html-теги из строки. Я пытаюсь заменить все строки, начинающиеся с «<» и заканчивающиеся на «>». Это (очевидно, потому что я здесь прошу об этом) пока не работает. Вот что я пробовал:

StrippedContent = Regex.Replace(StrippedContent, "\<.*\>", "") 

Это просто возвращает то, что кажется случайной частью исходной строки. Я также пробовал

For Each StringMatch As Match In Regex.Matches(StrippedContent, "\<.*\>") 
    StrippedContent = StrippedContent.Replace(StringMatch.Value, "") 
Next 

Что сделал то же самое (возвращает то, что кажется случайной частью исходной строки). Есть лучший способ сделать это? К лучшему я имею в виду способ, который работает.

Answer 1

Описание

Это выражение будет:

• найти и заменить все теги ничего
• остерегайтесь проблематичной крайние случаи

Regex : <(?:[^>=]|='[^']*'|="[^"]*"|=[^'"][^\s>]*)*>

Заменить с: ничего

Пример

Образец текста

Примечание трудный крайний случай в мыши над функцией

these are <a onmouseover=' href="NotYourHref" ; if (6/a>3) { funRotator(href) } ; ' href=abc.aspx?filter=3&prefix=&num=11&suffix=>the droids</a> you are looking for.

Код

Imports System.Text.RegularExpressions 
Module Module1 
    Sub Main() 
    Dim sourcestring as String = "replace with your source string" 
    Dim replacementstring as String = "" 
    Dim matchpattern as String = "<(?:[^>=]|='[^']*'|=""[^""]*""|=[^'""][^\s>]*)*>" 
    Console.Writeline(regex.Replace(sourcestring,matchpattern,replacementstring,RegexOptions.IgnoreCase OR RegexOptions.IgnorePatternWhitespace OR RegexOptions.Multiline OR RegexOptions.Singleline)) 
    End Sub 
End Module 

Строка после замены

these are the droids you are looking for. 

Answer 2

Ну, это доказывает, что вы всегда должны искать Google для ответа. Вот метод, который я получил от http://www.dotnetperls.com/remove-html-tags-vbnet

Imports System.Text.RegularExpressions 

Module Module1 
    Sub Main() 
     Dim html As String = "<p>There was a <b>.NET</b> programmer " + 
      "and he stripped the <i>HTML</i> tags.</p>" 
     Dim tagless As String = StripTags(html) 
     Console.WriteLine(tagless) 
    End Sub 
    Function StripTags(ByVal html As String) As String 
     Return Regex.Replace(html, "<.*?>", "") 
    End Function 
End Module 

Answer 3

Вот простая функция, используя шаблон регулярных выражений, которые размещены Ro Yo Ми.

<Extension()> Public Function RemoveHtmlTags(value As String) As String 
    Return Regex.Replace(value, "<(?:[^>=]|='[^']*'|=""[^""]*""|=[^'""][^\s>]*)*>", "") 
End Function 

Демонстрация:

Dim html As String = "This <i>is</i> just a <b>demo</b>.".RemoveHtmlTags() 
Console.WriteLine(html)