Permalink
Cannot retrieve contributors at this time
Fetching contributors…
| ' Visual Basic .NET Document | |
| Option Strict On | |
| ' <Snippet9> | |
| Imports System.Text | |
| Module Example | |
| Public Sub Main() | |
| Dim strings() As String = { "This is the first sentence. ", | |
| "This is the second sentence. ", | |
| "This is the third sentence. " } | |
| Dim asciiEncoding As Encoding = Encoding.ASCII | |
| ' Array to hold encoded bytes. | |
| Dim bytes() As Byte | |
| ' Array to hold decoded characters. | |
| Dim chars(50) As Char | |
| ' Create index for current position of character array. | |
| Dim index As Integer | |
| For Each stringValue In strings | |
| Console.WriteLine("String to Encode: {0}", stringValue) | |
| ' Encode the string to a byte array. | |
| bytes = asciiEncoding.GetBytes(stringValue) | |
| ' Display the encoded bytes. | |
| Console.Write("Encoded bytes: ") | |
| For ctr As Integer = 0 To bytes.Length - 1 | |
| Console.Write(" {0}{1:X2}", If(ctr Mod 20 = 0, vbCrLf, ""), | |
| bytes(ctr)) | |
| Next | |
| Console.WriteLine() | |
| ' Decode the bytes to a single character array. | |
| Dim count As Integer = asciiEncoding.GetCharCount(bytes) | |
| If count + index >= chars.Length Then | |
| Array.Resize(chars, chars.Length + 50) | |
| End If | |
| Dim written As Integer = asciiEncoding.GetChars(bytes, 0, | |
| bytes.Length, | |
| chars, index) | |
| index = index + written | |
| Console.WriteLine() | |
| Next | |
| ' Instantiate a single string containing the characters. | |
| Dim decodedString As New String(chars, 0, index - 1) | |
| Console.WriteLine("Decoded string: ") | |
| Console.WriteLine(decodedString) | |
| End Sub | |
| End Module | |
| ' The example displays the following output: | |
| ' String to Encode: This is the first sentence. | |
| ' Encoded bytes: | |
| ' 54 68 69 73 20 69 73 20 74 68 65 20 66 69 72 73 74 20 73 65 | |
| ' 6E 74 65 6E 63 65 2E 20 | |
| ' | |
| ' String to Encode: This is the second sentence. | |
| ' Encoded bytes: | |
| ' 54 68 69 73 20 69 73 20 74 68 65 20 73 65 63 6F 6E 64 20 73 | |
| ' 65 6E 74 65 6E 63 65 2E 20 | |
| ' | |
| ' String to Encode: This is the third sentence. | |
| ' Encoded bytes: | |
| ' 54 68 69 73 20 69 73 20 74 68 65 20 74 68 69 72 64 20 73 65 | |
| ' 6E 74 65 6E 63 65 2E 20 | |
| ' | |
| ' Decoded string: | |
| ' This is the first sentence. This is the second sentence. This is the third sentence. | |
| ' </Snippet9> | |