主题：HTML编辑器 录入时 转多一种普通的格式出来

参考代码

Dim str As String = "<p>123456789</p><p>123456789</p><p>123456789</p>"
Dim web As new Windows.forms.Webbrowser
web.DocumentText = str
msgbox(2)
msgbox(web.document.all(0).innerText)

Dim str As String = "<p>123456789</p><p>123456789</p><p>123456789</p>"
Dim web As new Windows.forms.Webbrowser
web.DocumentText = str

Do until web.document.all.count > 0
    Application.DoEvents
Loop

Output.Show(web.document.all(0).innerText)

 new 一个 webbrowser，目的是把你html转换成Text，因为它的方法比较方便。

 你也可以自己替换的，用正则表达式，如

Dim html As String = "<p>123456789</p><p>123456789</p><p>123456789</p>"

Dim objRegEx As System.Text.RegularExpressions.Regex
Return objRegEx.Replace(HTML, "<[^>]*>", "")