サーバーで発生するエラーログを解析するソフトを頼まれました。 例えば次のようにして読み込んでみると数行読んだだけで終わってしまいます。 多分データに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
バイナリモードでバイト配列に読み落としたら？
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
ま、あとはゴリゴリ。
ガッ様 ありがとうございました。
とにかく文字としてPCに撮りこんで画面に現れましたのであとはゴリゴリと1文字づつ解析しながら必要なデータを取得してみます。