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

質問

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

回答No.2

temtecomai2 · ベストアンサー

#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?url=/library/ja/script56/html/jsprotype.asp
Split 関数
http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/script56/html/jsprotype.asp
UBound 関数
http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/script56/html/jsprotype.asp

回答No.1

STICKY2006

こんちは。

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

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