apang

Do...Loop循环如何才能"按了停止"呢？

"需保持a.txt中内容是最新的，防重复更改" 又是个什么意思呢？

apang

要停止，在任务管理器中结束 WScript.exe 进程
或者，时间累加后的值大于当前时间即自动退出

''On Error Resume Next
Dim strDir, arrKey, strDt
strDir = "D:\Test"
arrKey = Array(":L  ABC", ":OP  1.5", "XXX")
strDt = "2015/3/1 8:05:00"

Do while DateDiff("s", strDt, Now()) > 0
    call Main()
    strDt = DateAdd("n", "10", strDt)  ''加 10 分钟
    WScript.Sleep 5000
Loop

Sub Main()
    Dim fso, f, txt, objFile, s
    s = ""
    Set fso = CreateObject("Scripting.FileSystemObject")
    For Each f in fso.GetFolder(strDir).Files
        If LCase(Right(f, 4)) = ".txt" Then
            If DateDiff("s", strDt, f.DateLastModified) > 0 Then
                Set objFile = fso.OpentextFile(f, 1)
                txt = objFile.ReadAll
                If TestKeyWord(txt) Then s = s & f.Name & vbCrLf
                objFile.Close
            End If
        End If
    Next
    fso.OpenTextFile("a.txt", 2, true).Write s
    CreateObject("WScript.Shell").Run "cmd /c ""ch.bat""",,true  ''调用bat
    Set fso = Nothing
End Sub

Function TestKeyWord(ByVal txt)
    Dim i
    TestKeyWord = True
    txt = vbCrLf & txt & vbCrLf
    For i = 0 to UBound(arrKey)
        If InStr(txt, vbCrLf & arrKey(i) & vbCrLf) = 0 Then
            TestKeyWord = False : Exit For
        End If
    Next
End Function
复制代码

syqh2010

谢谢你！
请问是保存为bat，还是vbs。
另如何在循环哪里加如调用ch.bat，谢谢！

apang

回复 18# syqh2010


    已修改。保存为Test.vbs
注意每个关键字在文本中各占一行，前后不能包含空格，区分大小写

syqh2010

回复 17# apang


   
谢谢，你的代码完全符合我的要求，也很快。
但我的描述欠考虑，时间一直叠加，最终会大于当前时间，那时问题就来了。

请帮忙改为和当前的时间判断。
strDT=now（）？？
谢谢！

apang

回复 20# syqh2010


    最后一次修改
以后提问之前请务必想清楚了再提问，像这样不仅浪费了你的时间，也浪费别人不少的时间。