投稿日	： 2006/12/12(Tue) 11:12
投稿者	： GOD
Ｅメール	：
ＵＲＬ	：
タイトル	： Re: ファイルの終端にEOFを書く

↓でどう？
'各レコードの終端に区切り(CR+LF、16進表記「0D0A」)を付加し
'ファイルの終端に(EOF、16進表記「1A」)を付加したいのですが
'うまくいきません。
'Print命令で自動的に各レコードの終端には改行(Chr(13) & Chr(10))
'が付加されるのですが、ファイルの終端はEOF(Chr(26))は書かれるの
'ですが改行されてしまいます、どうすれば改行されずにEOFを書けるか
'分かりません宜しくお願いします。
Private Sub Command1_Click()
    Dim dat(3) As String
    MyFile = "A:\data"
    MyFileNo = FreeFile
    Open MyFile For Output As #MyFileNo
    dat(0) = "あああああ"
    dat(1) = "いいいいい"
    dat(2) = "ううううう"
    dat(3) = Chr(26)
    Print #MyFileNo, dat(0)
    Print #MyFileNo, dat(1)
    Print #MyFileNo, dat(2)
    Print #MyFileNo, dat(3);
    Close #MyFileNo
End Sub

★ - ファイルの終端にEOFを書く - ワンダー 12/12-11:00No.7877
• Re: ファイルの終端にEOFを書く - GOD 12/12-11:12 No.7878
  • Re^2: ファイルの終端にEOFを書く - ワンダー 12/12-14:16 No.7881
    • Re^3: ファイルの終端にEOFを書く - ダンボ 12/12-15:56 No.7882
      • Re^4: ファイルの終端にEOFを書く - ワンダー 12/12-16:30 No.7883