''On Error Resume Next
Dim strDir, arrKey, strDt,str1,str2,str3,str4,str5
strDir = "D:\test"
arrKey = Array("LensSpeed=1200")
''strDt = "2015/3/7 7:15:00"
''strDt = now()

Do while true
	str1=now()     ''计时
		call Main()
		WScript.Sleep 5000
	str2=now()-str1   ''用时
	str3=Hour(formatdatetime(str2,0))    ''时
	str4=Minute(formatdatetime(str2,0))  ''分
	str5=Second(formatdatetime(str2,0))  ''秒

	strDt=DateAdd("h", "-" & str3 , now())
	strDt=DateAdd("n", "-" & str4 , strDt)
	strDt=DateAdd("s", "-" & str5 , strDt)
Loop

Sub Main()
    Dim fso, f, d, txt, objFile, s
    s = ""
    Set fso = CreateObject("Scripting.FileSystemObject")
    For Each f in fso.GetFolder(strDir).Files
        If LCase(Right(f, 2)) = ".l" or LCase(Right(f, 2)) = ".r" Then
            d = f.DateLastModified
            If CDate(d) > CDate(strDt) Then
                Set objFile = fso.OpentextFile(f, 1)
                txt = objFile.ReadAll
		''txt = Replace(txt,vbCrLf,Chr(10))
                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
复制代码

@echo off
setlocal enabledelayedexpansion
::设置文件夹路径
cd /d "D:\test\"
for %%a in (*.txt) do (
::导出文件列表
set "file=%%~dpnxa"
set "file=!file:\=\\!"
for /f "tokens=1* delims=." %%e in ('wmic datafile where name^="!file!" get LastModified ^|find "+"') do set "fdt=%%e"
>temp.vbs echo,if !fdt! ^>= 20150301080000 then
>>temp.vbs echo,WSH.Echo "true"
>>temp.vbs echo,else
>>temp.vbs echo,WSH.Echo "false"
>>temp.vbs echo,end if
for /f %%b in ('cscript /nologo temp.vbs') do set "t=%%b"
del temp.vbs /f /q >nul
if "!t!" equ "true" >>"%~dp0a.txt" echo,%%~a

::修改:LC值
for /f "tokens=1* delims=:" %%b in ('findstr /n ":LC" "%%a"') do set n=%%b
set m=1
for /f "tokens=1* delims=:" %%c in ('findstr /n .* "%%a"') do (
if !m! == !n! (
>>$ echo,:LC  ABC
) else (
>>$ echo,%%d
)
set /a m+=1
)
move $ "%%a"
)
pause
复制代码

@echo off
setlocal enabledelayedexpansion
::设置文件夹路径
cd /d "D:\test\"
for %%a in (*.txt) do (
set "file=%%~dpnxa"
set "file=!file:\=\\!"
for /f "tokens=1* delims=." %%e in ('wmic datafile where name^="!file!" get LastModified ^|find "+"') do set "fdt=%%e"
>temp.vbs echo,if !fdt! ^>= 20150301080000 then
>>temp.vbs echo,WSH.Echo "true"
>>temp.vbs echo,else
>>temp.vbs echo,WSH.Echo "false"
>>temp.vbs echo,end if
for /f %%b in ('cscript /nologo temp.vbs') do set "t=%%b"
del temp.vbs /f /q >nul
if "!t!" equ "true" (
findstr /c:":LC  ABC" "%%a" >nul && >>"%~dp0a.txt" echo,%%~a
)
)
pause
复制代码

@echo off
set "fPath=D:\Test\"
set "dt=20150301080000"
set "keyWord=:LC  ABC"

pushd "%fPath%"
set "ph=%fPath:~2%"
set "w=wmic DataFile where "Drive='%fPath:~,2%' and Path='%ph:\=\\%' and Extension='txt'" get LastModified^,Name"

(for /f "tokens=1*" %%a in ('%w% ^| findstr /b [0-9]') do (
        if "%%~na" gtr "%dt%" (
                for /f "delims=" %%c in ("%%b") do echo,%%~nxc
        )
))>$

findstr /i /r /e /m /c:"%keyWord%" /f:$ > "%~dp0a.txt"
del $
pause
复制代码

@echo off
set "fPath=D:\Test\"
set "dt=20150301080000"

::在下面填入keyword，用双引号包括
for %a in (
"LC  ABC"
"xyz:   1.5"
"mat   mr5"
) do echo,%a>>keyword

pushd "%fPath%"
set "ph=%fPath:~2%"
set "w=wmic DataFile where "Drive='%fPath:~,2%' and Path='%ph:\=\\%' and Extension='txt'" get LastModified^,Name"

(for /f "tokens=1*" %%a in ('%w% ^| findstr /b [0-9]') do (
        if "%%~na" gtr "%dt%" (
                for /f "delims=" %%c in ("%%b") do echo,%%~nxc
        )
))>$

findstr /i /m /G:keyWord /f:$ > "%~dp0a.txt"
del $
del keyword
pause
复制代码

''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
复制代码