投稿日 | : 2004/02/25(Wed) 17:35 |
投稿者 | : GOD |
Eメール | : |
URL | : |
タイトル | : Re^3: バイナリデータの読み書き |
不思議1:
Inputがテキストモードなのでは?
不思議2:
解決済みでいいのかな?
因みに私のところではおきませんでした。
以下、確認したコード:
'テキストファイルをバイナリモードで書込み
Dim testFile$
Dim intFileNo As Integer
Dim buf As String
testFile = "C:\無題.txt"
intFileNo = FreeFile
Open testFile For Input As #intFileNo
'バイナリデータとして読込んでUnicodeに変換して表示
buf = StrConv(InputB$(LOF(intFileNo), intFileNo), vbUnicode)
Close #intFileNo
'ファイルをバイナリモードで開く
Open testFile For Binary Access Write As #intFileNo
'テキストファイルを丸ごと書込み
Put #intFileNo, , buf
Close #intFileNo