投稿日 | : 2003/04/13(Sun) 01:47 |
投稿者 | : COMS |
Eメール | : |
URL | : |
タイトル | : テキストファイルの行数カウント |
対象のテキストファイルの行数をカウントするプログラムを
下記の用に作ったのですが、もっと簡単にカウントする方法はありますでしょうか?
**********
Dim Gyo AS Integer
Gyo = 0
Open fileMei For Input As #fileNum
Do Until EOF(fileNum)
Line Input #fileNum, Dummy
Gyo = Gyo + 1
Loop
Close #fileNum