タイトル : Re^7: COMP-3の変換につて 投稿日 : 2017/09/27(Wed) 12:18 投稿者 : Naruse
魔界の仮面弁士様 勉強させていただきました。 感謝しております。ありがとうございました。 > > その結果、100バイトずつバイナリーで読んだ後、 > > ちなみに ADODB は、バイナリーファイルの読み込みにも使えます。 > > Dim stm As ADODB.Stream > Dim bin() As Byte > > 'ファイルを読み込む > Set stm = New ADODB.Stream > stm.Open > stm.LoadFromFile "C:\TEMP\TEST1.TXT" > > 'バイナリモードでアクセスする > stm.Type = adTypeBinary > > '現在の位置から 100 バイト分を読み込む > bin = stm.Read(100) > > '先頭から 300 バイト目の位置に移動し、そこから 8 バイトを読み込む > stm.Position = 300 > bin = stm.Read(8) > > '閉じる > stm.Close > Set stm = Nothing |