VB.Net сгенерировал HTML-таблицу в буфер обмена

У меня есть код, который генерирует таблицу в формате HTML, и пытаюсь положить в буфер обмена.

Моя проблема в том, что иногда пропускается конец данных или форматирование из вставленных данных.

Если я напишу htmlStructureStr переменная в окне отладки, прежде чем положить в буфер обмена, выглядит хорошо, все данные в строке.

Я предполагаю, что есть что-то с байонетом, но я не могу найти решение.

Это моя функция (входная переменная tableContent является строкой таблицы HTML.):

Public Function TableStringToClipboard(ByVal tableContent As String) As Boolean
        Dim htmlStructure As New StringBuilder

#Region "--raw structure of the clipboard data"
        htmlStructure.AppendLine("Version:1.0")
        htmlStructure.AppendLine("StartHTML:0000000001")
        htmlStructure.AppendLine("EndHTML:0000000004")
        htmlStructure.AppendLine("StartFragment:0000000002")
        htmlStructure.AppendLine("EndFragment:0000000003")
        htmlStructure.AppendLine("<html>")
        htmlStructure.AppendLine("<head>")
        htmlStructure.AppendLine("<style>#styleCss#</style>")
        htmlStructure.AppendLine("</head>")
        htmlStructure.AppendLine("<body>")

        htmlStructure.AppendLine("<table cellspacing=0>")
        htmlStructure.AppendLine("<!--StartFragment-->")
        htmlStructure.AppendLine("#tableHtml#")
        htmlStructure.AppendLine("<!--EndFragment-->")
        htmlStructure.AppendLine("</table>")

        htmlStructure.AppendLine("</body>")
        htmlStructure.AppendLine("</html>")
#End Region

#Region "--CSS format definition"

        Dim styleCss As String = ""

            styleCss = " 
            table {border-collapse: collapse;} 
            tr {color:black;
                font-size:11.0pt;
                font-weight: normal;
                font-style:normal;
                text-decoration:none;
                font-family:Calibri, sans-serif;}
            col {mso-width-source:auto;}
            br {mso-data-placement:same-cell;}
            .head
                {padding:2px;
                color:black;
                font-size:11.0pt;
                font-weight:900;
                font-style:normal;
                text-decoration:none;
                font-family:Calibri, sans-serif;

                text-align:left;
                border:.5pt solid #000000;
                white-space:nowrap;
                vertical-align:middle;
                background-color: PowderBlue;
        }
            td
                {padding:2px;
                text-align:general;
                border:.5pt solid #000000;
                white-space:nowrap;
                vertical-align:middle;}"

        htmlStructure.Replace("#styleCss#", styleCss)
#End Region

htmlStructure.Replace("#tableHtml#", tableContent.ToString)

#Region "----ByteCounting"

        Dim byteCounter As System.Text.ASCIIEncoding = System.Text.Encoding.ASCII

        Dim value As Integer
        Dim htmlStructureStr As String = htmlStructure.ToString

        value = byteCounter.GetByteCount(Left(htmlStructureStr, htmlStructureStr.IndexOf("<html")))
        htmlStructureStr = htmlStructureStr.Replace("0000000001", value.ToString("D10"))

        value = byteCounter.GetByteCount(Left(htmlStructureStr, htmlStructureStr.IndexOf("<!--StartFragment-->")))
        htmlStructureStr = htmlStructureStr.Replace("0000000002", value.ToString("D10"))

        value = byteCounter.GetByteCount(Left(htmlStructureStr, htmlStructureStr.IndexOf("<!--EndFragment-->")))
        htmlStructureStr = htmlStructureStr.Replace("0000000003", value.ToString("D10"))

        value = byteCounter.GetByteCount(Left(htmlStructureStr, htmlStructureStr.IndexOf("</html>")))
        htmlStructureStr = htmlStructureStr.Replace("0000000004", value.ToString("D10"))
#End Region

        '----put data to clipboard

        My.Computer.Clipboard.SetText(htmlStructureStr, TextDataFormat.Html)

        Return True

    End Function

1 ответ

Решение

MSDN говорит, что

Единственный набор символов, поддерживаемый буфером обмена, - это Unicode в кодировке UTF-8. Поскольку первые символы UTF-8 и ASCII совпадают, описание всегда ASCII, но байты контекста (начиная с StartHTML) могут использовать любые другие символы, закодированные в UTF-8.

Используйте кодировку UTF8, как показано ниже

Dim byteCounter As System.Text.UTF8Encoding = System.Text.Encoding.UTF8
Другие вопросы по тегам