@echo off&setlocal enabledelayedexpansion
for /f "tokens=*" %%a in (b.txt) do (
 set b=%%a
 set ab=
 set/a n+=1
 for /l %%a in (0,1,13) do (
  if "!b:~%%a,1!" equ "*" (
   set "ab=!ab!^!a:~%%a,1^!"
  ) else (
   set "ab=!ab!^!b:~%%a,1^!"
  )
  
 )
 (
 for /f "tokens=*" %%b in (a.txt) do (
  set a=%%b
  for %%c in ("!ab!") do echo;%%~c
 )
 )>b!n!.txt
)
set ab
pause
复制代码

@echo off&setlocal enabledelayedexpansion

::::::折半法获得字符长度::::::
set /p str=<b.txt&set /a min=0,max=8190
for /l %%a in (1,1,14) do (
    set /a "num=(min+max)/2"
    for %%b in (!num!) do (
        if "!str:~%%b!" equ "" (
           set /a max=num
           ) else (
           set /a min=num
        )
    )
)
if %min% equ %max% set /a num-=1&rem字符长度减1
::::::折半法获得字符长度::::::

::::::替换大循环::::::
for /f "delims=" %%a in (b.txt) do (
    set "str=%%a"&set /a n=-1,m=0,nums+=1
    cd.>b!nums!.txt
    for /l %%a in (0,1,%num%) do (
        if %%a equ 0 (
           if "!str:~,1!" equ "*" (
              set "flag="
              ) else (
              set "flag=a"
           )
        ) 
        if "!str:~%%a,1!" equ "*" (
           if not defined flag set /a m+=1&set /a _!m!_1=%%a&set "flag=a"&set "k=var"
           ) else (
           if defined flag set /a m+=1&set /a _!m!_1=%%a&set "flag="&set "k=str"
        )
        set /a _!m!_2+=1
        for /f "tokens=1,2 delims=-" %%a in ("_!m!_1-_!m!_2") do set "_!m!=!k!-!%%a!-!%%b!"
    )
    for /f "delims=" %%a in (a.txt) do (
        set "var=%%a"&set "output="
        for /l %%a in (1,1,!m!) do (
            for /f "tokens=1-3 delims=-" %%a in ("!_%%a!") do set "code=!%%a!"&set "output=!output!!code:~%%b,%%c!"<nul
        )
        echo !output!>>b!nums!.txt
    )
    for /l %%a in (1,1,!m!) do set "_%%a_2="       
)
::::::替换大循环::::::

start b1.txt&start b2.txt
复制代码