[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[文件操作] [已解决]批处理如何获取指定条件的文本列表?

本帖最后由 syqh2010 于 2015-3-8 04:20 编辑

问题已解决,多谢apang等多位高手的无私帮助。
附上代码:
  1. ''On Error Resume Next
  2. Dim strDir, arrKey, strDt,str1,str2,str3,str4,str5
  3. strDir = "D:\test"
  4. arrKey = Array("LensSpeed=1200")
  5. ''strDt = "2015/3/7 7:15:00"
  6. ''strDt = now()
  7. Do while true
  8. str1=now()     ''计时
  9. call Main()
  10. WScript.Sleep 5000
  11. str2=now()-str1   ''用时
  12. str3=Hour(formatdatetime(str2,0))    ''时
  13. str4=Minute(formatdatetime(str2,0))  ''分
  14. str5=Second(formatdatetime(str2,0))  ''秒
  15. strDt=DateAdd("h", "-" & str3 , now())
  16. strDt=DateAdd("n", "-" & str4 , strDt)
  17. strDt=DateAdd("s", "-" & str5 , strDt)
  18. Loop
  19. Sub Main()
  20.     Dim fso, f, d, txt, objFile, s
  21.     s = ""
  22.     Set fso = CreateObject("Scripting.FileSystemObject")
  23.     For Each f in fso.GetFolder(strDir).Files
  24.         If LCase(Right(f, 2)) = ".l" or LCase(Right(f, 2)) = ".r" Then
  25.             d = f.DateLastModified
  26.             If CDate(d) > CDate(strDt) Then
  27.                 Set objFile = fso.OpentextFile(f, 1)
  28.                 txt = objFile.ReadAll
  29. ''txt = Replace(txt,vbCrLf,Chr(10))
  30.                 If TestKeyWord(txt) Then s = s & f.Name & vbCrLf
  31.                 objFile.Close
  32.             End If
  33.         End If
  34.     Next
  35.     fso.OpenTextFile("a.txt", 2, true).Write s
  36.     ''CreateObject("WScript.Shell").Run "cmd /c ""ch.bat""",,true  ''调用bat
  37.     Set fso = Nothing
  38. End Sub
  39. Function TestKeyWord(ByVal txt)
  40.     Dim i
  41.     TestKeyWord = True
  42.     txt = vbCrLf & txt & vbCrLf
  43.     For i = 0 to UBound(arrKey)
  44.         If InStr(txt, vbCrLf & arrKey(i) & vbCrLf) = 0 Then
  45.             TestKeyWord = False : Exit For
  46.         End If
  47.     Next
  48. End Function
复制代码
一句话
找出文本中含有关键字,且修改时间大于TTT的文本列表。
一文件夹(类似中转站),里面的txt文件会实时更新(新的进来,旧的删除,或修改日期变化),文本数量较多,少则几百,多则上千。
txt文件名如11.txt,12.txt......
txt文件内容相似,如:
第1行
第2行
C  ABC
..
第200行

其中第3行格式相同,均为(:LC+2个空格+字符) 字符最少2个,最多5个(如A1、BC5、G456、、、等)
:LC在文本中是唯一的
若直接找文本,就找:LC  ABC
若按行查找, 就找第3行是否为:LC  ABC(注,空行也算一行)

请问如何找出:
1):LC后字符=ABC
2)文本修改时间>=2015/3/1 8:00
的文件名写入另一文本a.txt
【1)2)同时满足】
3)a.txt与程序在同一目录,需处理的文件夹在另一目录

a.txt内容如:
11.txt
12.txt
..
不知能否实现,希望各位能帮忙,谢谢!

本帖最后由 pcl_test 于 2015-3-3 14:21 编辑

回复 1# syqh2010
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. ::设置文件夹路径
  4. cd /d "D:\test\"
  5. for %%a in (*.txt) do (
  6. ::导出文件列表
  7. set "file=%%~dpnxa"
  8. set "file=!file:\=\\!"
  9. for /f "tokens=1* delims=." %%e in ('wmic datafile where name^="!file!" get LastModified ^|find "+"') do set "fdt=%%e"
  10. >temp.vbs echo,if !fdt! ^>= 20150301080000 then
  11. >>temp.vbs echo,WSH.Echo "true"
  12. >>temp.vbs echo,else
  13. >>temp.vbs echo,WSH.Echo "false"
  14. >>temp.vbs echo,end if
  15. for /f %%b in ('cscript /nologo temp.vbs') do set "t=%%b"
  16. del temp.vbs /f /q >nul
  17. if "!t!" equ "true" >>"%~dp0a.txt" echo,%%~a
  18. ::修改:LC值
  19. for /f "tokens=1* delims=:" %%b in ('findstr /n ":LC" "%%a"') do set n=%%b
  20. set m=1
  21. for /f "tokens=1* delims=:" %%c in ('findstr /n .* "%%a"') do (
  22. if !m! == !n! (
  23. >>$ echo,:LC  ABC
  24. ) else (
  25. >>$ echo,%%d
  26. )
  27. set /a m+=1
  28. )
  29. move $ "%%a"
  30. )
  31. pause
复制代码

TOP

谢谢你,我稍后试试。
我描述可能有歧义,是找出ABC,不是修改成ABC。

TOP

本帖最后由 pcl_test 于 2015-3-3 18:47 编辑

回复 3# syqh2010
嗯,提问者的表达都很差,而且很不严谨,批处理的编写是要依据一定的规则的,如果问题描述不够清楚和严谨,那么就会有出入,像你列出的条件,是要找出同时满足前两个要求的txt文件吗?还是分别列出来?还有第三行的意思,要是前面有空行,一个空行算一行吗?如果C是唯一的,那么就不需要再画蛇添足的说明在第三行,因为第三行的意思会有歧义
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. ::设置文件夹路径
  4. cd /d "D:\test\"
  5. for %%a in (*.txt) do (
  6. set "file=%%~dpnxa"
  7. set "file=!file:\=\\!"
  8. for /f "tokens=1* delims=." %%e in ('wmic datafile where name^="!file!" get LastModified ^|find "+"') do set "fdt=%%e"
  9. >temp.vbs echo,if !fdt! ^>= 20150301080000 then
  10. >>temp.vbs echo,WSH.Echo "true"
  11. >>temp.vbs echo,else
  12. >>temp.vbs echo,WSH.Echo "false"
  13. >>temp.vbs echo,end if
  14. for /f %%b in ('cscript /nologo temp.vbs') do set "t=%%b"
  15. del temp.vbs /f /q >nul
  16. if "!t!" equ "true" (
  17. findstr /c:":LC  ABC" "%%a" >nul && >>"%~dp0a.txt" echo,%%~a
  18. )
  19. )
  20. pause
复制代码
1

评分人数

TOP

回复 4# pcl_test

谢谢,你提的问题已在顶楼更新。
指明第3行,主要是考虑到方便自已更改,查找其它行。比如列出第2行是AA,且第5行是CC,且、、的列表。

代码可以用,是我想要的效果。只是速度稍有些慢,处理20个文本需要15秒。

我有个笨办法,
1)用find 找出含 关键字的文本,生成列表1.txt
2)用Dir筛出时间>??的文本,生成列表2.txt
3)找出1.txt,2.txt中公共部分,得到a.txt
但不会写。

TOP

  1. @echo off
  2. set "fPath=D:\Test\"
  3. set "dt=20150301080000"
  4. set "keyWord=:LC  ABC"
  5. pushd "%fPath%"
  6. set "ph=%fPath:~2%"
  7. set "w=wmic DataFile where "Drive='%fPath:~,2%' and Path='%ph:\=\\%' and Extension='txt'" get LastModified^,Name"
  8. (for /f "tokens=1*" %%a in ('%w% ^| findstr /b [0-9]') do (
  9.         if "%%~na" gtr "%dt%" (
  10.                 for /f "delims=" %%c in ("%%b") do echo,%%~nxc
  11.         )
  12. ))>$
  13. findstr /i /r /e /m /c:"%keyWord%" /f:$ > "%~dp0a.txt"
  14. del $
  15. pause
复制代码

TOP

本帖最后由 syqh2010 于 2015-3-5 05:34 编辑

回复 6# apang

谢谢你,可以用,是我想要的效果。
查找1050个文件用时约16秒,不知有没更快的办法。

另请问,如果查找的关键字不止一个,
如同时存在“LC  ABC ”、“xyz:   1.5”、“mat   mr5”,该如何修改,谢谢!

TOP

回复 7# syqh2010


    那么,你想要的最快速度有多快?总不会期望1050个文件0.1秒完成吧?

多个关键字判断不是问题,请提供1050个文件以便测试

TOP

回复 8# apang

已经很好了。
请帮忙加几个关键字,谢谢!!

TOP

如果要精确到 秒  ,只能 wmic ,效率上不去。
如果只是精确到 分 ,速度要快N倍。

TOP

修改自APANG的代码
  1. @echo off
  2. set "fPath=D:\Test\"
  3. set "dt=20150301080000"
  4. ::在下面填入keyword,用双引号包括
  5. for %a in (
  6. "LC  ABC"
  7. "xyz:   1.5"
  8. "mat   mr5"
  9. ) do echo,%a>>keyword
  10. pushd "%fPath%"
  11. set "ph=%fPath:~2%"
  12. set "w=wmic DataFile where "Drive='%fPath:~,2%' and Path='%ph:\=\\%' and Extension='txt'" get LastModified^,Name"
  13. (for /f "tokens=1*" %%a in ('%w% ^| findstr /b [0-9]') do (
  14.         if "%%~na" gtr "%dt%" (
  15.                 for /f "delims=" %%c in ("%%b") do echo,%%~nxc
  16.         )
  17. ))>$
  18. findstr /i /m /G:keyWord /f:$ > "%~dp0a.txt"
  19. del $
  20. del keyword
  21. pause
复制代码
1

评分人数

TOP

回复 10# caruko


谢谢你!
请精确到分,谢谢!

TOP

回复 12# syqh2010


    其实,没有必要精确到 某个时间,如果你想知道 那个文件更新了,只要对比一个你自己创建的文件即可。

比如,
1、刚开始的时候,创建一个 time 文件。
2、过一段时间后,用dir 根据修改时间排序,排在 time 文件之后的,就都是新文件..
3、找出这些新文件,分析之后, 更新 time 文件。

重复2,3步骤。

TOP

回复 13# caruko
谢谢你的分析,我表达不好,问题我在顶楼更新了,请帮忙看看,谢谢!

TOP

回复 13# caruko


    拓展一下,感觉可以每次运行后修改 bat 自身的修改时间,这样更绿色。。。

TOP

返回列表