O
oLiVieR CheNeSoN
Hello,
I would like to be sure that i can convert Unicode to uTF8 and vice versa.
Can you check this code ? in VB.net and tell me if it is ok
Thanks
Olivier
Private Sub ButtonUniToUTF8_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ButtonUniToUTF8.Click
Dim unicodeString As String = Me.RichTextBoxUnicode.Text
' Create two different encodings.
Dim dstEncoding As Encoding = Encoding.UTF8
Dim dstEncodingANSI As Encoding = Encoding.GetEncoding(1252)
Dim srcEncoding As Encoding = Encoding.Unicode
' Convert the string into a byte[].
Dim srcBytes As Byte() = srcEncoding.GetBytes(unicodeString)
' Perform the conversion from one encoding to the other.
Dim dstBytes As Byte() = Encoding.Convert(srcEncoding, dstEncoding,
srcBytes)
Me.RichTextBoxUTF8.Text = dstEncodingANSI.GetString(dstBytes)
End Sub
Private Sub ButtonUTF8ToUni_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ButtonUTF8ToUni.Click
Dim UTF8String As String = Me.RichTextBoxUTF8.Text
' Create two different encodings.
Dim dstEncoding As Encoding = Encoding.Unicode
Dim dstEncodingANSI As Encoding = Encoding.GetEncoding(1252)
Dim srcEncoding As Encoding = Encoding.UTF8
' Convert the string into a byte[].
Dim srcBytes As Byte() = dstEncodingANSI.GetBytes(UTF8String)
' Perform the conversion from one encoding to the other.
Dim dstBytes As Byte() = Encoding.Convert(srcEncoding, dstEncoding,
srcBytes)
Me.RichTextBoxUnicode.Text = dstEncoding.GetString(dstBytes)
End Sub
I would like to be sure that i can convert Unicode to uTF8 and vice versa.
Can you check this code ? in VB.net and tell me if it is ok
Thanks
Olivier
Private Sub ButtonUniToUTF8_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ButtonUniToUTF8.Click
Dim unicodeString As String = Me.RichTextBoxUnicode.Text
' Create two different encodings.
Dim dstEncoding As Encoding = Encoding.UTF8
Dim dstEncodingANSI As Encoding = Encoding.GetEncoding(1252)
Dim srcEncoding As Encoding = Encoding.Unicode
' Convert the string into a byte[].
Dim srcBytes As Byte() = srcEncoding.GetBytes(unicodeString)
' Perform the conversion from one encoding to the other.
Dim dstBytes As Byte() = Encoding.Convert(srcEncoding, dstEncoding,
srcBytes)
Me.RichTextBoxUTF8.Text = dstEncodingANSI.GetString(dstBytes)
End Sub
Private Sub ButtonUTF8ToUni_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ButtonUTF8ToUni.Click
Dim UTF8String As String = Me.RichTextBoxUTF8.Text
' Create two different encodings.
Dim dstEncoding As Encoding = Encoding.Unicode
Dim dstEncodingANSI As Encoding = Encoding.GetEncoding(1252)
Dim srcEncoding As Encoding = Encoding.UTF8
' Convert the string into a byte[].
Dim srcBytes As Byte() = dstEncodingANSI.GetBytes(UTF8String)
' Perform the conversion from one encoding to the other.
Dim dstBytes As Byte() = Encoding.Convert(srcEncoding, dstEncoding,
srcBytes)
Me.RichTextBoxUnicode.Text = dstEncoding.GetString(dstBytes)
End Sub