[文本处理] [已解决]批处理如何从文本文件中提取6位数字

@echo off&setlocal enabledelayedexpansion
for /l %%a in (0 1 9) do set #%%a=a
for /f "delims=" %%i in (a.txt) do (
   set "str=%%i"
   set "str=!str:,=!"
   set "str=!str:;=!"
   set "str=!str: =!"
   set n=0&set "var="
   for /l %%a in (0 1 9) do set str=!str:%%a= %%a !
   for %%a in (!str!) do (
      if defined #%%a (set var=!var!%%a&set /a n+=1) else set var=&set n=0
      if !n! equ 6 echo !var!&set var=&set n=0
))
pause
复制代码

@echo off & setlocal enabledelayedexpansion
for /f "tokens=*" %%a in (a.txt) do (
  set str=#%%a
  set str=!str:"=!
  set var=!str!
  for /l %%a in (0 1 9) do set var=!var:%%a=" "!
  for %%a in ("!var:""=!") do (
    set str=1!str:*%%~a=!
    set /a n=str
    if !n! geq 1000000 if !n! lss 10000000 echo !n:~1!
  )
)
pause
复制代码

@echo off
for /f "delims=" %%a in ('sed "s/[^0-9]/,/g" a.txt') do (
for %%b in (,%%a,) do echo %%b>>b.txt
)
start b.txt
复制代码

@echo off&setlocal enabledelayedexpansion  
for /l %%a in (0 1 9) do set #%%a=a    //定义变量#0--#9
for /f "delims=" %%i in (a.txt) do (
   set "str=%%i"
   set "str=!str:,=!"                                //去掉每一句中的,号
   set "str=!str:;=!"                               //去掉每一句中的;号
   set "str=!str: =!"                               //去掉每一句中的空格
   set n=0&set "var="
   for /l %%a in (0 1 9) do set str=!str:%%a= %%a !        //给文本中的每一个数字两旁加上空格
   for %%a in (!str!) do (
      if defined #%%a (set var=!var!%%a&set /a n+=1) else set var=&set n=0       //查看是否定义过#%%a，也就是看是否是数字，是数字就赋值给var；
      if !n! equ 6 echo !var!&set var=&set n=0                //当n为6时，显示var中的值。
))
pause
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (a.txt) do (
   set "str=%%i"
   set "str=!str:股份= !"			 &rem 所有“股份”变格
   set "sts=!str!"				 &rem 复制一份数据
   for /l %%a in (0 1 9) do set "str=!str:%%a= !"&rem 其中一份所有数据变空格
   for %%a in (!str!) do set "sts=!sts:%%a= !"	 &rem 另外一份数据外的窜变空格
   for %%a in (!sts!) do (
	set var=%%a
	set "var=!var:~,5!!var:~-1,1!"		 &rem 则另外一份数据得到的就全为数据了
	if "!var!" equ "%%a" echo !var!		 &rem 只有为6位数的才提取
))
pause
复制代码