Comment afficher un symbole de marque déposée (®) en utilisant VB.NET?

Question

J'ai pris sur l'appui d'une demande à l'entreprise où je travaille. Tout d'un coup, le client veut être en mesure d'entrer une marque déposée dans un champ de nom. Le symbole, en utilisant ALT + 0174, est en cours d'enregistrement correctement, mais l'application n'est pas encoder correctement. Essentiellement ce que je fais:

    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

La sortie que je reçois de ce code est la suivante:

             John         Smith ??         11111     

Tout va bien, à l'exception du « ?? » après « Smith » devrait être « ® ». Quelle est la meilleure façon, le cas échéant, pour afficher correctement le symbole?

Answer 1

  

Dim strReturn As String = System.Text.ASCIIEncoding.ASCII.GetString (b)

Vous encodé XML en UTF-8, ne lisent pas de retour en ASCII. Vous perdrez tous les caractères spéciaux qui ne peuvent être encodées. Correction:

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