[文本处理] [已解决]批处理如何提取制定文字后面的第一个数字？

@echo off
for /f "delims=" %%i in (a.txt) do (
   set sun=%%i
   setlocal enabledelayedexpansion
   set str=!sun:*历史=!
   if not "!str!"=="!sun!" (
      for /f "tokens=1 delims= " %%j in ("!str!") do set str=a%%j
      set str=!str: =!a
      for /l %%j in (0 1 9) do set str=!str:%%j= %%j !
      for /f "tokens=1* delims= " %%a in ("!str!") do set str=%%b
      set str=!str: =!
      for /l %%j in (0 1 9) do set str=!str:%%j= %%j !
      for %%a in (!str!) do (
         set var=!var!!num!
	     set num=%%a
      )
      echo !var!
   )
   endlocal
)
pause
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in (a.txt) do (
    set a=%%a&set b= %%a
    for /l %%b in (0 1 9) do set a=!a:%%b= !
    set a=!a:历史 = !
    for %%b in (!a!) do set b=!b:%%b=!
    set b=!b:史 =史!
    for /l %%b in (0 1 9) do set b=!b:%%b历=%%b 历!
    for %%b in (!b!) do (
        set c=%%b
        if "!c:~0,2!"=="历史" echo;!c:~2!
    )
)
pause
复制代码