バイナリ結合

ささ 2007-12-05 01:10:16 No: 99876

下記のプログラムで、動画をバイナ結合しています。
動画のファイルサイズが大きいと、配列を作るときにエラーが出てしまいます。

Open f3 For Binary As #3

    For i = 0 To mMoviefileCount

        Open fdir & mMoveifileNm(i) For Binary As #1
            s1 = LOF(1)       'ファイルのサイズを変数sに読み込み
            ReDim b1(s1 - 1) '配列の大きさをs（ファイルサイズ）に変更
            Get #1, , b1()   '配列b（）に読み込み
        Close #1

        Put #3, , b1
    Next i
Close #3

複数のファイルをバイナリ結合するには、どうしたら良いのでしょうか？

また、2000バイト目から、1000バイトを配列に取得したいときは
どうすれば良いのでしょうか？

魔界の仮面弁士 2007-12-05 01:32:27 No: 99877

> 複数のファイルをバイナリ結合するには、どうしたら良いのでしょうか？
考え方そのものは、そのコードでよいと思いますよ。
配列サイズについては、一度に取得せず、何度かに分割してとれば良し。

> また、2000バイト目から、1000バイトを配列に取得したいときは
Get # ステートメントを使うときに、
第2引数 … 読み込みたい開始位置
第3引数 … Byte の 1 次元配列
のようにすれば OK 。
配列の要素数が 1000 個なら、1000バイト読み込まれます。