@echo off
md tem
for /f "tokens=1* delims=:" %%i in ('findstr /be "[0-9][0-9]*" *.txt') do (
   set "lr=%%j"
   setlocal enabledelayedexpansion
   if "!lr:~4,1!"=="" (
      if not "!lr:~3,1!"=="" (
         endlocal
         >>tem\%%~ni.txt echo %%j F,0,F,00
         set /a n+=1
       )
     ) else endlocal
)
echo 新文件在 tem 文件夹中，按任意键打开。。。
echo.&echo 总行数 %n% 行
pause>nul
start tem
复制代码

@echo off
md tmp 2>nul
set num=0
for %%i in (*.txt) do (
    cd.>tmp\%%i
    for /f %%j in ('findstr /be "[0-9][0-9][0-9][0-9]" %%i') do (
        (echo %%jF,0,F,00)>>tmp\%%i
        set /a num+=1
    )
)
echo 处理后的数据放在 tmp 文件夹下
echo 处理后的所有文本文件总行数为 %num% 行
pause
复制代码

@echo off
rmdir /S /Q tem >nul
md tem >nul
for /f "tokens=1* delims=:" %%i in ('findstr /be "[0-9][0-9]*" *.txt') do (
   set "lr=%%j"
   setlocal enabledelayedexpansion
   if "!lr:~4,1!"=="" (
      if not "!lr:~3,1!"=="" (
         endlocal
         >>tem\%%~ni.txt echo %%jF,0,F,00
         set /a n+=1
       )
     ) else endlocal
)
echo 新文件在 tem 文件夹中，按任意键打开。。。
echo.&echo 总行数 %n% 行
pause>nul
start tem
复制代码

@echo off
rem 删除tem文件夹，注意备份。。。
rd /s /q tem
md tem
for /f "tokens=1* delims=:" %%i in ('findstr /be "[0-9][0-9][0-9][0-9]" *.txt') do (
   >>tem\%%i echo %%j F,0,F,00
   set /a n+=1
)
echo 新文件在 tem 文件夹中，按任意键打开。。。
echo.&echo 总行数 %n% 行
pause>nul
start tem
复制代码

@echo off&md tem 2>nul
rem 这里设置数字的数量
set /a m=4
set /a h=m+1
for %%i in (*.txt) do (
    cd.>"tem\%%i"
    for /f "usebackq delims=" %%j in ("%%i") do (
        set "lr=%%ja"
        setlocal enabledelayedexpansion
        if "!lr:~%h%,1!"=="" (
           if not "!lr:~%m%,1!"=="" (
           for /l %%L in (0 1 9) do set "lr=!lr:%%L=!"
           if "!lr!"=="a" (
              endlocal
              set /a n+=1
              >>"tem\%%i" echo %%j
            ) else endlocal
          )
        ) else endlocal
    )
)
for %%i in (tem\*.txt) do if %%~zi equ 0 del/q "%%i"
echo 新文件在 tem 文件夹中，按任意键打开。。。
echo.&echo 总行数 %n% 行
pause>nul
start tem
复制代码