どのように私はVB.NETを使用して（®）登録商標マークを表示していますか？

Question

私はのための会社のIの仕事でアプリケーションのサポートを引き継いでいます。突然のすべてが、顧客が名フィールドに登録商標を入力できるようにしたいと考えています。シンボルは、ALT + 0174を使用して、正しく保存されているが、アプリが適切にエンコードされていません。基本的に、これは私がやっているものです。

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
    Dim ms As New MemoryStream
    Dim xml_text_writer As New XmlTextWriter(ms, _
        System.Text.Encoding.UTF8)

    xml_text_writer.Formatting = Formatting.Indented
    xml_text_writer.Indentation = 4

    xml_text_writer.WriteStartDocument(True)
    xml_text_writer.WriteStartElement("Employees")

    MakeEmployee(xml_text_writer, txtFName.Text, txtLName.Text, 11111)

    xml_text_writer.WriteEndElement()
    xml_text_writer.WriteEndDocument()
    xml_text_writer.Flush()

    ms.Flush()
    ms.Position = 0
    Dim b(CInt(ms.Length) - 1) As Byte
    ms.Read(b, 0, CInt(ms.Length))
    ms.Close()

    Dim strReturn As String = System.Text.ASCIIEncoding.ASCII.GetString(b)
    If strReturn.StartsWith("???", StringComparison.CurrentCultureIgnoreCase) Then
        strReturn = strReturn.Substring(3)
    End If

    txtName.Text = strReturn

End Sub

Private Sub MakeEmployee(ByVal xml_text_writer As  _
XmlTextWriter, ByVal first_name As String, ByVal _
last_name As String, ByVal emp_id As Integer)
    xml_text_writer.WriteStartElement("Employee")

    xml_text_writer.WriteStartElement("FirstName")
    xml_text_writer.WriteString(first_name)
    xml_text_writer.WriteEndElement()

    xml_text_writer.WriteStartElement("LastName")
    xml_text_writer.WriteString(last_name)
    xml_text_writer.WriteEndElement()

    xml_text_writer.WriteStartElement("EmployeeId")
    xml_text_writer.WriteString(emp_id.ToString)
    xml_text_writer.WriteEndElement()

    xml_text_writer.WriteEndElement()
End Sub

は、私はこのコードから取得出力はこれです

             ジョン         スミス??         11111     

すべては「??」を除いて、結構です「スミスは」「®」である必要があります後。最善の方法があれば、正しくシンボルを表示するには、何ですか？

Answer 1

  

薄暗いstrReturnとして文字列= System.Text.ASCIIEncoding.ASCII.GetString（B）

あなたは、UTF-8でエンコードされたXMLをバックASCIIとしてそれを読んでいません。あなたはエンコードできないすべての特殊文字を失うことになります。修正：

Dim strReturn As String = System.Text.Encoding.UTF8.GetString(b)