VBスクリプトでテキストファイルの行数カウント

VBスクリプトでテキストファイルの行数をカウントする
サンプルソースを探しています。
どなたかご存知の方、教えて下さい。

No.2 ベストアンサー 回答者： temtecomai2 回答日時： 2006/12/01 03:45

#1 さんの回答も同様なのですが、ズバリなサンプルを探さずに、少しご自分で解いてみてはどうでしょうか？

覚えると簡単ですよ。

VBScript なら他に、
1) FileSystemObject オブジェクトを生成。
2) (1) の OpenTextFile メソッドでテキストファイルを TextStream として開く。
3) (2) で生成された TextStream オブジェクトの ReadAll メソッドでファイルの中身を一気に読み込む。
4) (3) で読み込んだ中身を、改行コードを区切り文字として VBScript の Split 関数で配列を生成。
5) VBScript の UBound 関数を使い、(4) で生成された配列の添え字の最大値を取得する。
6) (4) で生成された配列の添え字は 0 から始まっているので、(5) の結果に 1 を足す。

てなやり方でも取得できますね。

ReadAll メソッド
http://msdn.microsoft.com/library/ja/default.asp …
Split 関数
http://msdn.microsoft.com/library/ja/default.asp …
UBound 関数
http://msdn.microsoft.com/library/ja/default.asp …

No.1 回答者： STICKY2006 回答日時： 2006/11/29 11:22

こんちは。

http://www.geocities.jp/masatoshi_kudoh/kihonwsh …
上記参照で。

上記のファイル読み込み１あたりのソース使って、カウント用の変数追加してやればできるかと思います。