投稿日 | : 2006/12/12(Tue) 11:00 |
投稿者 | : ワンダー |
Eメール | : |
URL | : |
タイトル | : ファイルの終端に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