Mega Code Archive

 
Categories / VB.Net / Internationalization
 

Encodes a set of characters from the specified String into the specified byte array

Imports System Imports System.Text Imports Microsoft.VisualBasic.Strings Class UTF8EncodingExample     Public Shared Sub Main()         Dim bytes() As Byte         Dim chars() As Char = {ChrW(35), ChrW(37), ChrW(928), ChrW(931)}         Dim utf8 As New UTF8Encoding()         Dim byteCount As Integer = utf8.GetByteCount(chars, 1, 2)         bytes = New Byte(byteCount - 1) {}         Dim bytesEncodedCount As Integer = utf8.GetBytes(chars, 1, 2, bytes, 0)         Dim b As Byte         For Each b In  bytes             Console.Write("[{0}]", b)         Next b     End Sub  End Class