タイトル : Re^6: COMP-3の変換につて 投稿日 : 2017/09/26(Tue) 17:39 投稿者 : 魔界の仮面弁士
> その結果、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 |