- 日時： 2007/07/16 13:30
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[ファイル入出力][][] *
* キーワード：TXTファイル,CSVファイル,,,, *
***********************************************************************************
元質問：テキストファイルの行数カウント - COMS 2003/04/13-01:47 No.3560
対象のテキストファイルの行数をカウントするプログラムを下記の用に作ったのですが、もっと簡単にカウントする方法はありますでしょうか？
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
-----------------------------------------------------------------------
Re: テキストファイルの行数カウント - 花ちゃん 2003/04/13-02:11 No.3561
-----------------------------------------------------------------------
ここの FileSystemObject関係 や逆引きヘルプを見て下さい。
Dim Fso As New FileSystemObject
Dim MaxLine As Long
'テキストファイルは別途ご用意下さい。
TxtFile = App.Path & "\test.txt"
'総行数を取得
MaxLine = Fso.OpenTextFile(TxtFile, ForAppending).Line
下記を参照願います。
http://hanatyan.sakura.ne.jp/vbhlp/FSO13.htm
------------------------------------------------------------------------
過去ログを見直していたら結構この手の質問があったので掲載しておきます。
|
テキストファイルの行数カウント(VB6.0)