VB6 Open〜Close で行数を取得するには？

解決

---

VB6の一般的なファイル処理の Open〜Close を使って、
ファイルの行数を取得するにはどうすればいいでしょうか？
FSOをつかえば簡単らしいですが、参照設定をしたくないので。。

編集 削除

---

ただよみこんでDo Loop間でカウントすればいいのでは？

編集 削除

---

ファイルの行数だけを読み込むのに

Do Until EOF(intFileNo)
    i = i + 1
Loop

で、ただカウントをとっても無限ループ入るのですが、なにか処理を書かなくてはいけないのでしょうか？なにかやり方がまちがっているのでしょうか？

編集 削除

---

> ただカウントをとっても無限ループ入るのですが、
> なにか処理を書かなくてはいけないのでしょうか？
書かなくてはいけないです。ずっとファイルの位置が変わらないですから。
Line Input # ステートメントでも調べ見てください。

編集 削除

---

EOFでなにを調べているのかが分かれば何が足りないか分かるでしょう。
>読み込んで
の処理はどこ？

編集 削除

---

＞Do Until EOF(intFileNo)
＞    i = i + 1
＞Loop

【Line Input】で、一行のデータを取得することで
次の行へ、という意味もあるようです。
今、同じソースにて試したところ、無限ループしましたが
【Line Input】を入れることで回避できました。
以下にソースを記述します。

dim sDATA as string

do until eof(iFileNo)
  Line Input #iFileNo,sDATA
  i = i + 1
Loop

以上です。

編集 削除

---

参照設定をしなくともCreateObjectを使えばできますよ。

既にご存知で、それがメンドクサイと思ってらっしゃるなら
すみません。|=x=;

編集 削除

---

Line Input
の処理を書かないとだめなんですね。
ありがとうございました。

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。