syqh2010

回复 6# apang

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

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

apang

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

syqh2010

回复 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
但不会写。

pcl_test

回复 3# syqh2010
嗯，提问者的表达都很差，而且很不严谨，批处理的编写是要依据一定的规则的，如果问题描述不够清楚和严谨，那么就会有出入，像你列出的条件，是要找出同时满足前两个要求的txt文件吗？还是分别列出来？还有第三行的意思，要是前面有空行，一个空行算一行吗？如果C是唯一的，那么就不需要再画蛇添足的说明在第三行，因为第三行的意思会有歧义

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

syqh2010

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

pcl_test

回复 1# syqh2010

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