Mega Code Archive
Whether to provide a Unicode byte order mark and whether to throw an exception
<![CDATA[
Imports System
Imports System.Text
Imports Microsoft.VisualBasic
Class UTF8EncodingExample
Public Shared Sub Main()
Dim utf8 As New UTF8Encoding()
Dim utf8ThrowException As New UTF8Encoding(False, True)
Dim chars() As Char = {"a"c, "b"c, "c"c, ChrW(55297), ChrW(55298), "d"c}
Dim bytes As Byte() = utf8.GetBytes(chars)
ShowArray(bytes)
Try
bytes = utf8ThrowException.GetBytes(chars)
Catch e As Exception
Console.WriteLine("Exception raised. " + ControlChars.Cr + "Message: {0}", e.Message)
End Try
End Sub
Public Shared Sub ShowArray(theArray As Array)
Dim o As Object
For Each o In theArray
Console.Write("[{0}]", o)
Next o
Console.WriteLine()
End Sub
End Class
]]>