UTF8Encoding Class

Imports System.Text
Imports Microsoft.VisualBasic.Strings

Class Example

   Public Shared Sub Demo(ByVal outputBlock As System.Windows.Controls.TextBlock)
      ' Create a UTF-8 encoding.
      Dim utf8 As New UTF8Encoding()

      ' A Unicode string with two characters outside an 8-bit code range.
      Dim unicodeString As String = _
          "This unicode string contains two characters " & _
          "with codes outside an 8-bit code range, " & _
          "Pi (" & ChrW(928) & ") and Sigma (" & ChrW(931) & ")."
      outputBlock.Text &= "Original string:" & vbCrLf
      outputBlock.Text &= unicodeString & vbCrLf

      ' Encode the string.
      Dim encodedBytes As Byte() = utf8.GetBytes(unicodeString)
      outputBlock.Text &= vbCrLf
      outputBlock.Text &= "Encoded bytes:" & vbCrLf
      Dim b As Byte
      For Each b In encodedBytes
         outputBlock.Text += String.Format("[{0}]", b)
      Next b
      outputBlock.Text &= vbCrLf

      ' Decode bytes back to string.
      ' Notice Pi and Sigma characters are still present.
      Dim decodedString As String = utf8.GetString(encodedBytes, _
                                                   0, encodedBytes.Length)
      outputBlock.Text &= vbCrLf
      outputBlock.Text &= "Decoded bytes:" & vbCrLf
      outputBlock.Text &= decodedString & vbCrLf
   End Sub
End Class

using System;
using System.Text;

class Example
{
   public static void Demo(System.Windows.Controls.TextBlock outputBlock)
   {
      // Create a UTF-8 encoding.
      UTF8Encoding utf8 = new UTF8Encoding();

      // A Unicode string with two characters outside an 8-bit code range.
      String unicodeString =
          "This unicode string contains two characters " +
          "with codes outside an 8-bit code range, " +
          "Pi (\u03a0) and Sigma (\u03a3).";
      outputBlock.Text += "Original string:" + "\n";
      outputBlock.Text += unicodeString + "\n";

      // Encode the string.
      Byte[] encodedBytes = utf8.GetBytes(unicodeString);
      outputBlock.Text += "\n";
      outputBlock.Text += "Encoded bytes:" + "\n";
      foreach (Byte b in encodedBytes)
      {
         outputBlock.Text += String.Format("[{0}]", b);
      }
      outputBlock.Text += "\n";

      // Decode bytes back to string.
      // Notice Pi and Sigma characters are still present.
      String decodedString = utf8.GetString(encodedBytes, 0, encodedBytes.Length);
      outputBlock.Text += "\n";
      outputBlock.Text += "Decoded bytes:" + "\n";
      outputBlock.Text += decodedString + "\n";
   }
}