programing topics

[VB.net]
Dim str As String = "ABCDEFG"
'バイト配列に変換
Dim bytes() As Byte = System.Text.Encoding.GetEncoding(932).GetBytes(str)
'バイト配列から文字列へ変換
str = System.Text.Encoding.GetEncoding(50220).GetString(bytes)

Dim bytes() As Byte = System.Text.Encoding.GetEncoding(932).GetBytes(str)
で文字列をバイトの配列に変換
932は'Shift-JIS'の文字コードの番号

str = System.Text.Encoding.GetEncoding(50220).GetString(bytes)
でバイト配列を文字列に変換
50220は'JIS'の文字コード番号

[VB.net]
Dim str As String = "ABCDEFG"
'バイト配列に変換
Dim bytes() As Byte = System.Text.Encoding.GetEncoding(932).GetBytes(str)
'バイト配列から文字列へ変換
str = System.Text.Encoding.GetEncoding(50220).GetString(bytes)

[コード]
Sub Main()
   Dim FilePath As String = "C:\test.bmp"
   Dim bs() As Byte
   Using fs As New FileStream(FilePath, FileMode.Open)
      ReDim bs(fs.Length - 1)
      Dim readBytes As Long = fs.Read(bs, 0, fs.Length)
      fs.Close()
   End Using

   Dim str As String = EncodeBase64(bs)
   Dim ret As Byte() = DecodeBase64(str)
End Sub

Function EncodeBase64(ByVal bs As Byte()) As String
   Return System.Convert.ToBase64String(bs)
End Function

Function DecodeBase64(ByVal str As String) As Byte()
   Return System.Convert.FromBase64String(str)
End Function

詳しい説明はこちらへどうぞ〜〜