Permalink
Cannot retrieve contributors at this time
Fetching contributors…
| ' Visual Basic .NET Document | |
| Option Strict On | |
| ' <Snippet4> | |
| Imports System.Text | |
| Module Example | |
| Public Sub Main() | |
| Dim enc As Encoding = Encoding.GetEncoding("us-ascii", | |
| New EncoderExceptionFallback(), | |
| New DecoderExceptionFallback()) | |
| Dim str1 As String = String.Format("{0} {1} {2}", ChrW(&h24C8), ChrW(&h2075), ChrW(&h221E)) | |
| Console.WriteLine(str1) | |
| For Each ch In str1 | |
| Console.Write("{0} ", Convert.ToUInt16(ch).ToString("X4")) | |
| Next | |
| Console.WriteLine() | |
| Console.WriteLine() | |
| ' Encode the original string using the ASCII encoder. | |
| Dim bytes() As Byte = {} | |
| Try | |
| bytes = enc.GetBytes(str1) | |
| Console.Write("Encoded bytes: ") | |
| For Each byt In bytes | |
| Console.Write("{0:X2} ", byt) | |
| Next | |
| Console.WriteLine() | |
| Catch e As EncoderFallbackException | |
| Console.Write("Exception: ") | |
| If e.IsUnknownSurrogate() Then | |
| Console.WriteLine("Unable to encode surrogate pair 0x{0:X4} 0x{1:X3} at index {2}.", | |
| Convert.ToUInt16(e.CharUnknownHigh), | |
| Convert.ToUInt16(e.CharUnknownLow), | |
| e.Index) | |
| Else | |
| Console.WriteLine("Unable to encode 0x{0:X4} at index {1}.", | |
| Convert.ToUInt16(e.CharUnknown), | |
| e.Index) | |
| End If | |
| Exit Sub | |
| End Try | |
| Console.WriteLine() | |
| ' Decode the ASCII bytes. | |
| Try | |
| Dim str2 As String = enc.GetString(bytes) | |
| Console.WriteLine("Round-trip: {0}", str1.Equals(str2)) | |
| If Not str1.Equals(str2) Then | |
| Console.WriteLine(str2) | |
| For Each ch In str2 | |
| Console.Write("{0} ", Convert.ToUInt16(ch).ToString("X4")) | |
| Next | |
| Console.WriteLine() | |
| End If | |
| Catch e As DecoderFallbackException | |
| Console.Write("Unable to decode byte(s) ") | |
| For Each unknown As Byte In e.BytesUnknown | |
| Console.Write("0x{0:X2} ") | |
| Next | |
| Console.WriteLine("at index {0}", e.Index) | |
| End Try | |
| End Sub | |
| End Module | |
| ' The example displays the following output: | |
| ' Ⓢ ⁵ ∞ | |
| ' 24C8 0020 2075 0020 221E | |
| ' | |
| ' Exception: Unable to encode 0x24C8 at index 0. | |
| ' </Snippet4> | |