バイト配列の値を文字列に変換するには？ (ID:112671)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 いや、とりあえずのぐだぐだなコードですので… 魔界の仮面弁士さんにフォローをお願いしたく…すみません。 ちょっとだけマシ(…だと思う)コードです。 Dim strString As String = "1１２３漢r字４５６７８９０" Dim BytesA() As Byte Dim BytesWK() As Byte Dim sjisEnc As System.text.Encoding Dim d As System.text.Decoder = System.Text.Encoding.UTF8.GetDecoder() Dim chars(Len(strString)) As Char Dim str As String Dim i, n As Integer n = 6 sjisEnc = sjisEnc.GetEncoding("Shift_JIS") BytesA = sjisEnc.GetBytes(strString) ReDim BytesWK(n) For i = 0 To n BytesWK(i) = BytesA(i) Next i Dim charLen As Integer = d.GetChars(BytesWK, 0, BytesWK.Length, chars, 0) str = sjisEnc.GetString(BytesWK)