VB初心者友の会 - はじめたばかりの人専用Q&A掲示板過去ログ

> ですが、ファイルがEOFに達していないのに、
> EOF関数がTrueを返す事があります。
  そんなことがあるのですか？
  であれば大変です、これまでにたくさん使ってきましたから。

> 原因と対策を知っている方がいましたら、教えて頂けないでしょうか？
  EOFに達していないということを、どのようにして確認されましたか？
  Line Input で取得する1行というのは、改行までを1行といいますが、
  1行ごとに改行が入っていますか？

> > ですが、ファイルがEOFに達していないのに、
> > EOF関数がTrueを返す事があります。
>   そんなことがあるのですか？
>   であれば大変です、これまでにたくさん使ってきましたから。
>   Line Input で取得する1行というのは、改行までを1行といいますが、
>   1行ごとに改行が入っていますか？

改行は入っています。

> > 原因と対策を知っている方がいましたら、教えて頂けないでしょうか？
>   EOFに達していないということを、どのようにして確認されましたか？

そのファイルは(10M以上のテキストファイル)は40000行以上あるのですが、
処理に掛かる時間がやたら早かったので、
不思議に思い、LONG型の変数をカウンタとして用意して
Line Inputで1行取得するたびにインクリメントしてみました。
そうすると、カウンタが424のところでEOFの戻り値がTrueを返しました。

別のファイル(これも10M以上)で試してみたところ、
処理完了後、カウンタは行数と同じ値を返しました。

【原因】
いろいろと調べてみたところ、
EOFがTrueを返した行に"1A"(EOF)がありました。
Openステートメントで開いて時点で、
この"1A"までしか取得していなかったのだと思います。

このファイルはファイル内にいくつも"1A"がありました。
日本語が化けて"1A"ができたみたいです。

【対策は…？】
ファイル内に"1A"が存在する以上、
それ以降のデータは取得できないのでしょうか？
今度は、Binaryモードで開いて試してみます。

ありゃ、自己解決してしまいましたね。　遅かったか〜。

VB自身でシーケンシャルアクセスして作成したファイルならば、&h1A の EOF コードは入らないの
ですが、市販のエディタの中には、ファイル末に EOF を付加してくれるものもあるのです。 DOS
の頃は EOF コードは有効だったのですけどねぇ。

つまり、こういうエディタで保存した事のあるファイルに Append している場合等には、VB では
EOF コードまでしか見れないのです。　バイナリアクセスなら大丈夫ですが、１行ずつ読むという
訳には行かないので、読み方を工夫するか、一旦 EOF コードを削除してしまいましょう。

例えば、一旦ファイルをブロック読み（ある程度大きいサイズです）しながら、EOF コードを探し、
見つかったら置換してしまうのです。　ブロック読みするロジックが面倒ならば、もの凄く遅く
なりますが、１バイトずつ読込んで判断する事です。

> つまり、こういうエディタで保存した事のあるファイルに Append している場合等には、VB では
> EOF コードまでしか見れないのです。　バイナリアクセスなら大丈夫ですが、１行ずつ読むという
> 訳には行かないので、読み方を工夫するか、一旦 EOF コードを削除してしまいましょう。

BinaryモードでOpenして、Line Inputで1行ずつ読みこめました。
でも、かなり遅かったです。(8分くらいかかった。(爆))

> 例えば、一旦ファイルをブロック読み（ある程度大きいサイズです）しながら、EOF コードを探し、
> 見つかったら置換してしまうのです。　ブロック読みするロジックが面倒ならば、もの凄く遅く
> なりますが、１バイトずつ読込んで判断する事です。

なるほど。φ(..)メモメモ
どうもありがとうございました。