バイナリ連結 (ID:91135)

名前

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

本文 バイナリの連結自体は、バイナリストリームを使った方が 簡単だと思いますよ。ReDim等が不要な分、扱いやすいですし。 具体的には、ActiveX Data Objects を参照設定しておき、 Private BinaryBuffer As ADODB.Stream Private Sub Form_Load() Set BinaryBuffer = New ADODB.Stream BinaryBuffer.Type = adTypeBinary BinaryBuffer.Open End Sub という感じで、バイナリストリームを作成しておいて、 BinaryBuffer.Write バイト配列 として、バイト配列を記録していきます。 (Writeするたび、ストリームの末尾にバイナリが追加される) そして、取り出す時にはこんな感じ。 《全データを一括して取り出す場合》 Dim Result() As Byte BinaryBuffer.Position = 0 '先頭に戻してから Result = BinaryBuffer.Read() '全データを一括読み込み 《10バイト目〜13バイト目の4バイト分を取り出す場合》 BinaryBuffer.Position = 10 Result = BinaryBuffer.Read(4) # 読み込み作業後、さらに追記が必要な場合は、 # Positionを末尾に戻しておく事を忘れずに。