ＪｉｓからＳｈｉｆｔ-ＪＩＳに変換するには？ (ID:117572)

名前

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

本文 > 例えばＶＢ４では Stm.Open の引数が必須になっていますが VB4にてADOを使った事はありませんが…Optionalな引数が 必須項目になってしまうのですか? それは初耳です。φ(.. ) 今回の場合、参照設定せずに、 Dim Stm As Object Set Stm = CreateObject("ADODB.Stream") Stm.Type = 2 Stm.Charset = "iso-2022-jp" Stm.Open Stm.LoadFromFile "C:\JIS.TXT" Dim B() As Byte Stm.Position = 0 Stm.Type = 1 B = Stm.Read() だとどうでしょうか? 試していないので、保証はできませんけれども。 > Source,Mode,Options,UserName,PassWord 無理に全ての引数を渡すなら、こうなるのかな…? (未確認) Stm.Open Array(, 1)(0), 0, adOpenStreamUnspecified, Empty, Empty