バイナリ ファイルの入出力を制御する方法
　
　 　
  • サンプル 1 ：ファイルへの書き込み (上書き)、Put ステートメント使用
      プロシージャ名： Binary_Put_OverWrite
    このサンプルは、C:\temp フォルダの BinaryPut.txt にデータを上書きで出力します。
    BinaryPut.txt が存在しない場合は新規に作成します。
      --------------------------------------------------------------------------
  Sub Binary_Put_OverWrite()
      Dim str As String
      Dim MyRecord As String
      Dim RecordNumber As Integer

      Open "c:\temp\BinaryPut.txt" For Binary Access Write As #1

      MyRecord = "BinaryPutOverWrite_"
      For RecordNumber = 1 To 5
          str = MyRecord & RecordNumber
          Put #1, , str
      Next RecordNumber

      Close #1
  End Sub
  --------------------------------------------------------------------------
  • サンプル 2 ：ファイルへの書き込み (追加)、Put ステートメント使用
      プロシージャ名： Binary_Put_AddLast
    このサンプルは、C:\temp フォルダの BinaryPut.txt の最後にデータを追加します。
    BinaryPut.txt が存在しない場合は新規に作成します。
      --------------------------------------------------------------------------
  Sub Binary_Put_AddLast()
      Dim str As String
      Dim MyRecord As String
      Dim FileLength As Integer
      Dim RecordNumber As Integer

      Open "c:\temp\BinaryPut.txt" For Binary Access Write As #1

      MyRecord = "BinaryPutAddLast_"
      For RecordNumber = 1 To 5
          FileLength = LOF(1) + 1
          str = MyRecord & RecordNumber
          Put #1, FileLength, str
      Next RecordNumber

      Close #1
  End Sub
  --------------------------------------------------------------------------
  • サンプル 3 ：データの読み込み、Get ステートメント使用
      プロシージャ名： Binary_Get
    このサンプルは、C:\temp フォルダの BinaryPut.txt のデータを読み込み
    、読み込んだデータを MsgBox 関数で表示しています。
    (サンプル 1 で作成されたファイルを使用します。)
      --------------------------------------------------------------------------
  Sub Binary_Get()
      Dim MyDataByte As String * 10
      Dim DataLength As Integer
      Dim DataNumber As Integer
      Dim MyData() As String

      Open "c:\temp\BinaryPut.txt" For Binary Access Read As #1

      For DataNumber = 1 To 5
          ReDim Preserve MyData(DataNumber)
          Seek #1, DataNumber * Len(MyDataByte) - (Len(MyDataByte) - 1)
          Get #1, , MyDataByte
          MyData(DataNumber) = MyDataByte
      Next DataNumber

      For DataNumber = 1 To 5
          MsgBox MyData(DataNumber)
      Next DataNumber

      Close #1
  End Sub