中国DOS联盟

@echo off&setlocal enabledelayedexpansion&color 3e

set /p aa=输入一行字符:
set /p bb=输入一行字符:
set n=0
set m=0


:loopa
set i=0&set j=0&set k=0&set l=0&set ii=0
for %%i in (!aa!) do (
        set /a i+=1
        set /a k=ii+2
        for %%h in (!bb!) do (
                set /a j+=1
                if "!i!"=="!j!" (if "%%i"=="%%h" (
                        call,set aa=%%aa:~,!ii!%%%%aa:~!k!%%
                        call,set bb=%%bb:~,!ii!%%%%bb:~!k!%%
                        set /a n+=1
                        goto :loopa
                                                )
                                )
                             )
set /a ii+=2
set j=0
)
echo.
echo.剔除A类型以后的值:%aa%============%bb%
echo.
echo.
echo.
echo.记录B类型数值的变化过程如下:
:loopb
set i=0&set j=0&set k=0&set l=0
for %%i in (!aa!) do (
        set /a k=i+2
        for %%h in (!bb!) do (
                set /a l=j+2
                if /i "%%i"=="%%h" (
                        call,set aa=%%aa:~,!i!%%%%aa:~!k!%%
                        call,set bb=%%bb:~,!j!%%%%bb:~!l!%%
                        set /a m+=1
                        echo.第!m!次的结果 !aa!==================!bb!
                        goto:loopb
                                )
                set /a j+=2
                        )
set /a i+=2
set /a j=0
)
echo.
echo.
echo.
echo.最终的结果统计
echo.%n%A%m%B
pause

@echo off
setlocal enabledelayedexpansion

set numa=1134
set numb=3364
set /a sameA=0,sameB=0
for /l %%a in (0,1,3) do (
   echo !numa:~%%a,1! - !numb:~%%a,1!
   if "!numa:~%%a,1!"=="!numb:~%%a,1!" (
     set /a sameA+=1,cut=%%a+1
     for %%n in (!cut!) do (
        set numa=!numa:~0,%%a!x!numa:~%%n!
        set numb=!numb:~0,%%a!x!numb:~%%n!
     )
   )
)
set /a num_n=8-sameA*2-1,x=0
set next=%numa:x=%%numb:x=%

:lp
  set /a xb=x+1
  for /l %%a in (%xb%,1,%num_n%) do (
       if "!next:~%%a,1!"=="!next:~%x%,1!" (
         set /a sameB+=1
         set next=!next:~0,%x%!x!next:~%xb%!
         set tmpstr=!next:~%%a!
         set next=!next:~0,%%a!x!tmpstr:~1!
         goto :break
       )
  )
  :break
if %x% lss %num_n% (set /a x+=1 &goto :lp)
echo %sameA%A%sameB%B
pause

@echo off
setlocal enabledelayedexpansion

set numa=1333
set numb=3111
set /a sameA=0,sameB=0
for /l %%a in (0,1,3) do (
   echo !numa:~%%a,1! - !numb:~%%a,1!
   if "!numa:~%%a,1!"=="!numb:~%%a,1!" (
     set /a sameA+=1,cut=%%a+1
     for %%n in (!cut!) do (
        set numa=!numa:~0,%%a!x!numa:~%%n!
        set numb=!numb:~0,%%a!x!numb:~%%n!
     )
   )
)
set /a num_n=8-sameA*2,x=0
set next=%numa:x=%%numb:x=%AAA

for /l %%a in (0,1,9) do (
  set tmpstr=!next:%%a=!
  set tmpstr=!tmpstr:~0,%num_n%!
  if not "!tmpstr:AA=!"=="!tmpstr!" (set /a sameB+=1)
)

echo %sameA%A%sameB%B
pause

@echo off
setlocal enabledelayedexpansion

set numa=1122
set numb=2211
set /a sameA=0,sameB=0
for /l %%a in (0,1,3) do (
   echo !numa:~%%a,1! - !numb:~%%a,1!
   if "!numa:~%%a,1!"=="!numb:~%%a,1!" (
     set /a sameA+=1,cut=%%a+1
     for %%n in (!cut!) do (
        set numa=!numa:~0,%%a!x!numa:~%%n!
        set numb=!numb:~0,%%a!x!numb:~%%n!
     )
   )
)
set /a num_n=4-sameA-1,x=0
set numa=%numa:x=%
set numb=%numb:x=%

:lp
  for /l %%a in (0,1,%num_n%) do (
      if "!numa:~%x%,1!"=="!numb:~%%a,1!" (
           set /a sameB+=1
           set tmpstr=!numb:~%%a!
           set numb=!numb:~0,%%a!x!tmpstr:~1!
           goto :break
      )
  )
  :break
if %x% lss %num_n% (set /a x+=1 &goto :lp)
echo %sameA%A%sameB%B
pause

@echo off&setlocal enabledelayedexpansion
for %%a in (1 2) do set Xing%%a=0&set/p Han%%a=输入第 %%a 行字符:
for %%a in (%Han1%) do set/a Ye1+=1&set #!Ye1!=%%a
for %%a in (%Han2%) do set/a Ye2+=1&set @!Ye2!=%%a&set "Gu1=!Gu1! !Ye2! "
for /l %%a in (1,1,%Ye1%) do if "!#%%a!"=="!@%%a!" set/a Xing1+=1&set Gu1=!Gu1:%%a =!
set Gu2=%Gu1%&call:Gu %Gu1%
echo %Xing1%A%Xing2%B&pause&exit
:Gu
for %%a in (%Gu2%) do if "!#%1!"=="!@%%a!" set/a Xing2+=1&set Gu2=!Gu2:%%a =!&goto:Ye
:Ye
shift
if not "%1"=="" goto:Gu

@echo off&setlocal enabledelayedexpansion
for %%a in (1 2) do set Xing%%a=0&set/p Han%%a=输入第 %%a 行字符:
for %%a in (%Han1%) do set/a Ye1+=1&set #!Ye1!=%%a
for %%a in (%Han2%) do set/a Ye2+=1&set @!Ye2!=%%a&set "Gu1=!Gu1! !Ye2! "
for /l %%a in (1,1,%Ye1%) do if "!#%%a!"=="!@%%a!" set/a Xing1+=1&set Gu1=!Gu1:%%a =!
for %%a in (%Gu1%) do (
set Gu2=1
for %%b in (!Gu1!) do if "!#%%a!"=="!@%%b!" set Gu1=!Gu1:%%b =!&set/a Xing2+=Gu2,Gu2=0
)
echo %Xing1%A%Xing2%B&pause&exit