人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

VBSの質問です
行数の比較方法を教えて下さい
a.txtとb.txtを比較してソースの行数が同じなら1.vbsの処理を実行 違う場合は2.vbsを行う というようなプログラムを組みたいのですがどのようにすればいいのでしょうか?

●質問者: takanii
●カテゴリ:コンピュータ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● a-kuma3
●200ポイント

こんな感じになると思います。

' ファイルの行数を取得する関数
Function LineCount(fso, filename)
 Set txt = fso.OpenTextFile(filename, 8)  ' ForAppending
 LineCount = txt.Line
 txt.Close
End Function


Set objFSO = CreateObject("Scripting.FileSystemObject")

' 行数を取得
line1 = LineCount(objFSO, "a.html")
line2 = LineCount(objFSO, "b.html")


Set WshShell = WScript.CreateObject("WScript.Shell")

If line1 = line2 Then
 WshShell.Run("1.vbs")
Else
 WshShell.Run("2.vbs")
End If

takaniiさんのコメント
ありがとうございます!
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ