Web 项目 ASP.NET 中 mso 类的 CSS

Question

这是我的情况：人们一直在用 Word 制作文档并将文本粘贴到 FreeTextBox 控件中。此文本随后会保存到 SQL 表中，并稍后显示在屏幕上。在此过程的桌面版本中，数据以用户创建的所有格式（表格、样式等）显示。现在，这个过程已经转移到一个 Web 应用程序中——虽然数据仍然保存并显示在屏幕上，但表格单元格边框之类的东西不再存在。我注意到 Word 在这些单元格上使用的属性以 mso-some-style-prop: some attribute;

为前缀

MSO-anything 不是有效属性。如何让 CSS 正确应用于 Web 项目中的用户控件？我一直在寻找一个没有运气的扩展，并且我试图创建一个替换这些属性的方法，但是它非常繁琐且耗时。所以，在我走这条路之前，我想与 SO 社区核实一下，看看是否有任何东西可以帮助缓解困难。提前致谢。

Microsoft 样式示例：

<TABLE style="mso-cellspacing: 1.5pt; mso-yfti-tbllook: 1184; mso-padding-    alt: 0in 0in 0in 0in" class=MsoNormalTable border=1 cellPadding=0>

Answer 1

我想与大家分享解决方案。我最终找到了这个链接：http://blog.codinghorror.com/cleaning-words-nasty-html/

它很好地完成了这项工作。我对其中一个正则表达式有疑问，但它是一个很好的起点。希望这会对某人有所帮助。

这是我用的：

Public Module Parser

    Public Function Main(text As String) As String

        Dim html As String = ""
        'Console.WriteLine("input html is " + text.Length + " chars")
        html = CleanWordHtml(text)
        html = FixEntities(text)
        Return html
    End Function

    Private Function CleanWordHtml(html As String) As String


        Dim sc As New StringCollection()
        ' get rid of unnecessary tag spans (comments and title)
        sc.Add("<!--(w|W)+?-->")
        sc.Add("<title>(w|W)+?</title>")
        ' Get rid of classes and styles
        sc.Add("s?class=w+")
        sc.Add("s+style='[^']+'")
        ' Get rid of unnecessary tags - I was unable to get this regular expression to work working
        'sc.Add("<(meta|link|/?o:|/?style|/?div|/?std|/?head|/?html|body|/?body|/?span|![)[^>]*?>")
        'sc.Add("<(meta|link|/?o:|/?style|/?div|/?std|/?head|/?html|body|/?body|/?span|![)[^>]*?>")
        ' Get rid of empty paragraph tags
        sc.Add("(<[^>]+>)+&nbsp;(</w+>)+")
        ' remove bizarre v: element attached to <img> tag
        sc.Add("s+v:w+=""[^""]+""")
        ' remove extra lines
        sc.Add("(nr){2,}")
        For Each s As String In sc
            html = Regex.Replace(html, s, "", RegexOptions.IgnoreCase)
        Next
        Return html
    End Function
    Private Function FixEntities(html As String) As String
        Dim nvc As New NameValueCollection()
        nvc.Add("""", "&ldquo;")
        nvc.Add("""", "&rdquo;")
        nvc.Add("–", "&mdash;")
        For Each key As String In nvc.Keys
            html = html.Replace(key, nvc(key))
        Next
        Return html
    End Function
End Module