Whether to provide a Unicode byte order mark and whether to throw an exception : Encoding « Internationalization I18N « VB.Net

1. VB.Net
2. Internationalization I18N
3. Encoding

Whether to provide a Unicode byte order mark and whether to throw an exception

 

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

   
  

Related examples in the same category