VBSの質問です

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

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2013/12/20 16:29:44
  • 終了:2013/12/27 16:30:04

回答(1件)

id:a-kuma3 No.1

a-kuma3回答回数4596ベストアンサー獲得回数19352013/12/20 17:00:57

ポイント200pt

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

'   ファイルの行数を取得する関数
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
id:takanii

ありがとうございます!

2013/12/20 17:04:31

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません