[文本处理] 批处理怎样找出符合条件的文件？

娜美

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
符合条件的文件结果, 其它的不符合

1.txt
2.txt
3.txt
复制代码

娜美

这个虽然准确但是漏了一些不符合条件没有报告

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七

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

娜美

回复 3# 77七


    @77七大哥哥这么快的吗   可以哟 thanks

Five66

描述的不清不楚的
说是第2列时间在2秒时间内 ,但是看起来是第2列时间的差距 ,而且也没说清楚时间差距的比较方式 ,总不能随便找个时间差距2秒内的并且符合1..2..3..的区间吧
"比较第3列数字是1的第5列的数值 和 第3列数字是3的第5列的数值"这也没说清楚比较方式 ,总不能随便在区间里拿一行来出来比较吧

娜美

回复 5# Five66


   哥哥已经解决了哦, 3楼哥哥理解正确的

77七

楼主不必这么早结帖，3楼的代码虽然能用，但是会有更好的，不要捡了芝麻丢了西瓜...
并且1楼的数据也“消失”了，随之代码也失去意义了

娜美

回复 7# 77七

Ok, 我重新搞好了网盘连接,  这网盘连接好像有次数限制, 我重新换了另一个网盘连接,  所有文件仍然是一样的
    1楼的数据没有消失, 仍然是原样的, 是从1.txt复制出来的

大哥哥既然这样,  不妨再贴一个报告不符合条件那些文件名  , 3楼是符合条件结果

不符合条件结果

4.txt
5.txt
6.txt
7.txt
8.txt
9.txt
复制代码

娜美

描述的不清不楚的
说是第2列时间在2秒时间内 ,但是看起来是第2列时间的差距 ,而且也没说清楚时间差距的比较方式 ,总不能随便找个时间差距2秒内的并且符合1..2..3..的区间吧
Five66 发表于 2024-12-3 19:14

计算时间就是符合在定义2秒内,  时间不用比较呢, 精确到秒就行。
只要第2列时间在符合定义2秒内,   第3列又有出现"1" 和 "3"数字(在定义2秒内)。就比较这2者它们的对应第5列数值是否相同

下载文件后, 可以打开其中一个文本内容,  对着1楼条件注释和标有红色样式看可能会容易明白些

77七

回复 8# 娜美


   3楼，24行改为 >>符合.txt echo %%x
37、38行之间添加

        if not defined _"%%x" (
                >>不符合.txt echo %%x
        )
复制代码

qixiaobin0715

秒级的时间间隔，计算到小时就足够了。代码也就简单多了。
如果秒只取到整数，小数直接舍去，不按常规的四舍五入：

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

娜美

楼主不必这么早结帖，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七

回复 12# 娜美


   3楼代码，13、14行之间加一行 set "mark="

aloha20200628

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

娜美

多谢各位哥哥了