Top / プログラミングテクニック / 24.バイナリファイルの出力

ファイルのバイナリ出力を行うときは注意が必要です。

なぜならば、For Binary で開いたファイルは切り詰められないので 仮に100バイトのファイルが存在していたとき、20バイト上書きすると 後半の80バイトが残ってしまいます。

いったん For Output で Open して Close して0バイトに切り詰めるか
削除してから出力する必要があります。

   Sub BinaryOut(ByVal FileName As String, Buffer() As Byte)
       Dim intFno As Integer
       
       intFno = FreeFile()
       ' 0バイトに切り詰める
       Open FileName For Output As #intFno
       Close #intFno
       
       ' バイナリ出力
       Open FileName For Binary As #intFno
       Put #intFno, , Buffer
       Close #intFno
   
   End Sub



トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   最終更新のRSS
Last-modified: 2010-05-01 (土) 01:33:54 (2733d)