标题: [文本处理] 批处理怎样找出符合条件的文件? [打印本页]
作者: 娜美 时间: 3 天前 21:16 标题: 批处理怎样找出符合条件的文件?
Hi.各位大哥哥好
在所有文本中找出符合条件的文件
主要条件
视制表符tab 为分隔符
如果第2列时间在2秒时间内
如果第3列上中下行顺序是1 2 3 序列,允许有连续多个1,或连续多个2,或连续多个3出现,但不能是其他数字出现的 ( 1到3之间只能是2, 不能是其它数字 )
时间条件最好可以自定义,例如设3秒或5秒
set /a m-n=2
下面用一句话表达出意思给大家吧,
如果第2列时间符合在设定2秒时间内,第3列上中下行序列又是1-2-3队列样式的,就比较第3列数字是1的第5列的数值 和 第3列数字是3的第5列的数值它们是否相同,如果相同,就输出该文件名,如果不符合条件,就跳过
例如, 第3列上中下行顺序是1 2 3 序列- 第3列样式上中下行顺序条件注释, ( 1到3之间只能是2, 不能是其它数字 )
- 1
- 2
- 3
- 4
- 5
- 6
- 或可以连续有多个2,或连续有多个3出现,但不能是其他数字出现的
- 1
- 1
- 2
- 2
- 3
- 3
- 4
- 4
- 5
- 6
复制代码
例1.txt
1 Mar 9, 2024 18:02:40.019514000 时间 1 0 3514ebc0031b08
2 Mar 9, 2024 18:02:40.119514000 时间 1 0 3514ebc0031b08
5 Mar 9, 2024 18:02:40.219514000 时间 1 0 3514ebc0031b08
7 Mar 9, 2024 18:02:40.322064000 时间 2 6 604b3ed20969da
9 Mar 9, 2024 18:02:40.422064000 时间 2 5 004b3ed20969da
15 Mar 9, 2024 18:02:40.522064000 时间 2 2 404b3ed20969da58969
18 Mar 9, 2024 18:02:40.622064000 时间 2 1 504b3ed20969da58969c4b1c
20 Mar 9, 2024 18:02:40.725658000 时间 3 0 3514ebc0031b08
22 Mar 9, 2024 18:02:41.825658000 时间 3 0 3514ebc0031b08
25 Mar 9, 2024 18:02:43.925658000 时间 3 0 3514ebc0031b08
50 Mar 9, 2024 18:02:43.328720000 时间 4 9 455c0031b080
不知道这样表达大家能理解不
请跳转下载文件 我还在每个文件中已注释有条件, 希望能理解出意思吧 https://wwkt.lanzoul.com/ipQeX2h4j1qf
Thanks
符合条件的文件结果, 其它的不符合复制代码
作者: 娜美 时间: 前天 10:14
这个虽然准确但是漏了一些不符合条件没有报告- chcp 65001 >nul
- set /a m=n=2
- set /a "Jan=1,Feb=2,Mar=3,Apr=4,May=5,Jun=6,Jul=7,Aug=8,Sep=9,Oct=10,Nov=11,Dec=12"
- for /f "delims=" %%x in ('dir /b /a-d *.txt') do (
- setlocal enabledelayedexpansion
- for /f "useback tokens=1-9* delims=,. " %%a in ("%%x") do (
- if %%h equ 1 (
- set t1=%%d-!%%b!-%%c %%e
- set t2=%%f
- set ss1=%%j
- set s2=
- ) else if %%h equ 2 (
- if defined ss1 (
- set s2=1
- )
- ) else if %%h equ 3 (
- if defined s2 (
- call :1 "!t1!" "%%d-!%%b!-%%c %%e"
- if "%%f" geq "!t2!" (
- set /a m=n-1
- )
- if !DiffSecs! leq !m! (
- if "!ss1!" neq "%%j" (
- if not defined _"%%x" (
- >>out.txt echo %%x
- set _"%%x"=1
- )
- )
- )
- set ss1=
- set s2=
- )
- ) else (
- set ss1=
- set s2=
- )
- )
- endlocal
- )
- pause
- exit
-
- :1
- set StartTime=%~1
- set EndTime=%~2
- set StartTime=%StartTime:-= %
- set StartTime=%StartTime::= %
- set EndTime=%EndTime:-= %
- set EndTime=%EndTime::= %
- call :DateToSecs %StartTime% StartSecs
- call :DateToSecs %EndTime% EndSecs
- set /a DiffSecs=EndSecs-StartSecs
- set DiffSecs=%DiffSecs:-=%
- goto :eof
-
- :DateToSecs %yy% %mm% %dd% %hh% %nn% %ss% secs
- setlocal ENABLEEXTENSIONS
- set yy=%1&set mm=%2&set dd=%3&set hh=%4&set nn=%5&set ss=%6
- if 1%yy% LSS 200 if 1%yy% LSS 170 (set yy=20%yy%) else (set yy=19%yy%)
- set /a dd=100%dd%%%100,mm=100%mm%%%100
- set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2
- set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633
- if 1%hh% LSS 20 set hh=0%hh%
- if {%nn:~2,1%} EQU {p} if "%hh%" NEQ "12" set hh=1%hh%&set/a hh-=88
- if {%nn:~2,1%} EQU {a} if "%hh%" EQU "12" set hh=00
- if {%nn:~2,1%} GEQ {a} set nn=%nn:~0,2%
- set /a hh=100%hh%%%100,nn=100%nn%%%100,ss=100%ss%%%100
- set /a j=j*86400+hh*3600+nn*60+ss
- endlocal&set %7=%j%&goto :EOF
复制代码
上面代码只报告了4.txt 不符合条件
但是漏了以下这些不符合条件没有报告, 还需要添加几个条件- 5.txt
- 6.txt
- 7.txt
- 8.txt
- 9.txt
复制代码
作者: 77七 时间: 前天 13:46
回复 2# 娜美
- @echo off
- chcp 65001 >nul
- set /a _cc=2
- set /a "Jan=1,Feb=2,Mar=3,Apr=4,May=5,Jun=6,Jul=7,Aug=8,Sep=9,Oct=10,Nov=11,Dec=12"
- for /f "delims=" %%x in ('dir /b /a-d *.txt') do (
- setlocal enabledelayedexpansion
- for /f "useback tokens=1-9* delims=,. " %%a in ("%%x") do (
- if not defined _"%%x" (
- set _mm=0!%%b!
- set _dd=0%%c
- if "%%h" equ "1" (
- set _tt=%%d-!_mm:~-2!-!_dd:~-2! %%e
- set _str1=%%j
- ) else if "%%h" equ "2" (
- if defined _tt (
- set mark=1
- )
- ) else if "%%h" equ "3" (
- if defined mark (
- set "_str2=%%j"
- if "!_str1!" equ "!_str2!" (
- call :1 "!_tt!" "%%d-!_mm:~-2!-!_dd:~-2! %%e"
- if !DiffSecs! leq !_cc! (
- echo %%x
- set _"%%x"=1
- )
- )
- ) else (
- set _tt=
- set mark=
- )
- ) else (
- set _tt=
- set mark=
- )
- )
- )
- endlocal
- )
- pause
- exit
-
- :1
- set StartTime=%~1
- set EndTime=%~2
- set StartTime=%StartTime:-= %
- set StartTime=%StartTime::= %
- set EndTime=%EndTime:-= %
- set EndTime=%EndTime::= %
- call :DateToSecs %StartTime% StartSecs
- call :DateToSecs %EndTime% EndSecs
- set /a DiffSecs=EndSecs-StartSecs
- set DiffSecs=%DiffSecs:-=%
- goto :eof
-
- :DateToSecs %yy% %mm% %dd% %hh% %nn% %ss% secs
- setlocal ENABLEEXTENSIONS
- set yy=%1&set mm=%2&set dd=%3&set hh=%4&set nn=%5&set ss=%6
- if 1%yy% LSS 200 if 1%yy% LSS 170 (set yy=20%yy%) else (set yy=19%yy%)
- set /a dd=100%dd%%%100,mm=100%mm%%%100
- set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2
- set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633
- if 1%hh% LSS 20 set hh=0%hh%
- if {%nn:~2,1%} EQU {p} if "%hh%" NEQ "12" set hh=1%hh%&set/a hh-=88
- if {%nn:~2,1%} EQU {a} if "%hh%" EQU "12" set hh=00
- if {%nn:~2,1%} GEQ {a} set nn=%nn:~0,2%
- set /a hh=100%hh%%%100,nn=100%nn%%%100,ss=100%ss%%%100
- set /a j=j*86400+hh*3600+nn*60+ss
- endlocal&set %7=%j%&goto :EOF
复制代码
作者: 娜美 时间: 前天 14:00
回复 3# 77七
@77七大哥哥这么快的吗 可以哟 thanks
作者: Five66 时间: 前天 19:14
描述的不清不楚的
说是第2列时间在2秒时间内 ,但是看起来是第2列时间的差距 ,而且也没说清楚时间差距的比较方式 ,总不能随便找个时间差距2秒内的并且符合1..2..3..的区间吧
"比较第3列数字是1的第5列的数值 和 第3列数字是3的第5列的数值"这也没说清楚比较方式 ,总不能随便在区间里拿一行来出来比较吧
作者: 娜美 时间: 前天 19:30
回复 5# Five66
哥哥已经解决了哦, 3楼哥哥理解正确的
作者: 77七 时间: 前天 21:49
楼主不必这么早结帖,3楼的代码虽然能用,但是会有更好的,不要捡了芝麻丢了西瓜...
并且1楼的数据也“消失”了,随之代码也失去意义了
作者: 娜美 时间: 前天 22:03
本帖最后由 娜美 于 2024-12-3 22:24 编辑
回复 7# 77七
Ok, 我重新搞好了网盘连接, 这网盘连接好像有次数限制, 我重新换了另一个网盘连接, 所有文件仍然是一样的
1楼的数据没有消失, 仍然是原样的, 是从1.txt复制出来的
大哥哥既然这样, 不妨再贴一个报告不符合条件那些文件名 , 3楼是符合条件结果
不符合条件结果- 4.txt
- 5.txt
- 6.txt
- 7.txt
- 8.txt
- 9.txt
复制代码
作者: 娜美 时间: 前天 22:32
本帖最后由 娜美 于 2024-12-3 22:43 编辑
描述的不清不楚的
说是第2列时间在2秒时间内 ,但是看起来是第2列时间的差距 ,而且也没说清楚时间差距的比较方式 ,总不能随便找个时间差距2秒内的并且符合1..2..3..的区间吧
Five66 发表于 2024-12-3 19:14
计算时间就是符合在定义2秒内, 时间不用比较呢, 精确到秒就行。
只要第2列时间在符合定义2秒内, 第3列又有出现"1" 和 "3"数字(在定义2秒内)。就比较这2者它们的对应第5列数值是否相同
下载文件后, 可以打开其中一个文本内容, 对着1楼条件注释和标有红色样式看可能会容易明白些
作者: 77七 时间: 前天 22:59
回复 8# 娜美
3楼,24行改为 >>符合.txt echo %%x
37、38行之间添加
- if not defined _"%%x" (
- >>不符合.txt echo %%x
- )
复制代码
作者: qixiaobin0715 时间: 昨天 13:02
本帖最后由 qixiaobin0715 于 2024-12-4 13:04 编辑
秒级的时间间隔,计算到小时就足够了。代码也就简单多了。
如果秒只取到整数,小数直接舍去,不按常规的四舍五入:- @echo off
- set D=2
- for /f "delims=" %%i in ('dir /b /a-d *.txt') do (
- setlocal enabledelayedexpansion
- for /f "tokens=2,3,5 delims= " %%a in ('type "%%i"') do (
- if "%%b"=="1" (
- set t=%%a
- set n=%%b
- set m=%%c
- ) else if not "!x!"=="%%b" (
- set n=!n!%%b
- if "!n!"=="123" (
- if "%%c"=="!m!" (
- for /f "tokens=4-6 delims=:. " %%x in ("!t!") do (
- if "%%x"=="00" (set HH=24) else set HH=%%x
- set /a "t1=(1!HH!-100)*60*60+(1%%y-100)*60+1%%z-100+D"
- )
- for /f "tokens=4-6 delims=:. " %%x in ("%%a") do (
- if "%%x"=="00" (set HH=24) else set HH=%%x
- set /a "t2=(1!HH!-100)*60*60+(1%%y-100)*60+1%%z-100"
- )
- if !t1! geq !t2! set FN=%%i
- )
- )
- )
- set x=%%b
- )
- if defined FN echo,!FN!
- endlocal
- )
- pause
复制代码
考虑小数:- @echo off
- set D=2
- for /f "delims=" %%i in ('dir /b /a-d *.txt') do (
- setlocal enabledelayedexpansion
- for /f "tokens=2,3,5 delims= " %%a in ('type "%%i"') do (
- if "%%b"=="1" (
- set t=%%a
- set n=%%b
- set m=%%c
- ) else if not "!x!"=="%%b" (
- set n=!n!%%b
- if "!n!"=="123" (
- if "%%c"=="!m!" (
- for /f "tokens=4-7 delims=:. " %%w in ("!t!") do (
- if "%%w"=="00" (set HH=24) else set HH=%%w
- set /a "t1=(1!HH!-100)*60*60+(1%%x-100)*60+1%%y-100+D"
- set t3=%%z
- )
- for /f "tokens=4-7 delims=:. " %%w in ("%%a") do (
- if "%%w"=="00" (set HH=24) else set HH=%%w
- set /a "t2=(1!HH!-100)*60*60+(1%%x-100)*60+1%%y-100"
- set t4=%%z
- )
- if !t1! gtr !t2! (
- set FN=%%i
- ) else if !t1! equ !t2! (
- if !t3! geq !t4! set FN=%%i
- )
- )
- )
- )
- set x=%%b
- )
- if defined FN echo,!FN!
- endlocal
- )
- pause
复制代码
作者: 娜美 时间: 昨天 15:17
本帖最后由 娜美 于 2024-12-4 15:21 编辑
楼主不必这么早结帖,3楼的代码虽然能用,但是会有更好的,不要捡了芝麻丢了西瓜... ...
77七 发表于 2024-12-3 21:49
大哥哥说的对, 果然有更好在11楼出现啦
第3列的1至3之间除了只能是2 不能有其它数字, 但也不能没有2。 像这样是不符合- 9 Nov 16, 2024 21:07:23.613688000 时间 1 0 5b50c
- 10 Nov 16, 2024 21:07:23.627698000 时间 2 0 7e400
- 20 Nov 16, 2024 21:07:23.663384000 时间 2 9 05b5
- 21 Nov 16, 2024 21:07:25.641368000 时间 1 9 5b50cd
- 22 Nov 16, 2024 21:07:25.718340000 时间 3 8 5b50cd
复制代码
作者: 77七 时间: 昨天 17:35
回复 12# 娜美
3楼代码,13、14行之间加一行 set "mark="
作者: aloha20200628 时间: 昨天 19:20
本帖最后由 aloha20200628 于 2024-12-4 19:39 编辑
回复 1# 娜美
以下批处代码(存于目标文件 *.txt 同目录运行)调用了 powershell 计算时间差,以便代码轻量化,代码第一行定义变量 td 为时间差上限=5秒,检查结果存入 “结果.lst” 文件,已用一楼提供的网盘示例文件集测试通过...- @echo off &del/q "结果.lst" 2>nul &setlocal enabledelayedexpansion &set "td=5"
- for /f "delims=" %%F in ('dir /b/a-d *.txt') do (
- call :check_3c "%%F"
- if !ok! neq 0 (
- call :check_5c "%%F" ok
- if !ok! neq 0 (call :check_2c "%%F"))
- if !ok! neq 0 (echo,%%F is qualified&echo,%%F>>"结果.lst")
- )
- pause&exit/b
-
- :check_3c
- set/a "_c=0,ok=0"
- for /f "usebackq tokens=3 delims= " %%c in ("%~1") do (
- set/a "_d=%%c-_c"
- if %%c neq 1 if !_c! gtr %%c (exit/b) else if !_d! gtr 1 (exit/b)
- set "_c=%%c")
- set "ok=1"&exit/b
- :check_5c
- for /f "usebackq tokens=1-5 delims= " %%a in ("%~1") do (
- if %%c equ 1 (set "v1=%%e") else if %%c equ 3 if /i "%%e" neq "!v1!" (set "%~2=0"&exit/b))
- set "%~2=1"&exit/b
- :check_2c
- set "ok=0" &set "tl=" &for /f "usebackq tokens=2 delims= " %%t in ("%~1") do (
- for /f "delims=" %%a in ("%%t") do (
- if defined t1 (set "t2=%%a" &if /i "!t1:~,12!" neq "!t2:~,12!" exit/b) else set "t1=%%a"
- set "_t=%%a" &set tl=!tl!,'!_t:~13,8!'))
- for /f %%v in ('powershell "$t=!tl:~1!|measure -min -max;(new-timespan -start $t.minimum -end $t.maximum).seconds" ') do if %%v gtr !td! exit/b
- set "ok=1"&exit/b
复制代码
作者: 娜美 时间: 昨天 21:13
多谢各位哥哥了
欢迎光临 批处理之家 (http://bbs.bathome.net/) |
Powered by Discuz! 7.2 |