EOFを含むデータファイルの読み込み

解決

VBタイヘン 2004-10-23 19:41:37 No: 86211

サーバーで発生するエラーログを解析するソフトを頼まれました。例えば次のようにして読み込んでみると数行読んだだけで終わってしまいます。多分データにEOFが入っているために起こる現象がと思いますがこれはどのようにしたら全部読めるようになるのか教えてください。

Open "Log_Error.txt" For Input As #1
Open "Log_Error_out.txt" For Output As #2

Do While Not EOF(1)

    Line Input #1, X
    Print #2, X

Loop

Close #1
Close #2

ガッ 2004-10-23 21:05:45 No: 86212

バイナリモードでバイト配列に読み落としたら？
Dim buf() as byte
Open "Log_Error.txt" For binary As #1
  if lof(1) then
    redim buf(1 to lof(1))
    get #1,,buf
    debug.? strconv(buf,vbunicode)
  end if
Close #1

ま、あとはゴリゴリ。

VBタイヘン 2004-10-24 00:01:39 No: 86213

ガッ様ありがとうございました。
とにかく文字としてPCに撮りこんで画面に現れましたのであとはゴリゴリと1文字づつ解析しながら必要なデータを取得してみます。