Ｊｉｓ から Ｓｈｉｆｔ-ＪＩＳ (ID:111249)

名前

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

本文 訂正……。 > 'JISコードのバイナリとして取得 > Dim B() As Byte > Stm.Position = 0 > B = Stm.ReadText() 上記は、 'JISコードのバイナリとして取得 Dim B() As Byte Stm.Position = 0 Stm.Type = adTypeBinary B = Stm.Read() として下さい。m(_ _)m なお上記のサンプル(String→コード変換したバイト配列)とは逆に、 バイナリ(バイト配列)→Stringへの変換を行いたい場合には、 Set Stm = New ADODB.Stream Stm.Open Stm.Type = adTypeBinary Stm.Write B 'ストリームに、バイトデータを書き込む Stm.Position = 0 Stm.Type = adTypeText Stm.Charset = "iso-2022-jp" 'バイトデータの文字コードを指定 S = Stm.ReadText() 'String型のデータとして取り出す のようにすればOKです。