是不是要做成这样呢？
根据
2楼 链接，学习后，再变通得来的。
@echo off&setlocal enabledelayedexpansion
set in=寒夜孤星
set /p in=输入字符串
set m=0
set svr=abcdefghijklmnopqrstuvwxyz
:rep
if "!in:~%m%,1!" neq "" (set s0=!s0! !in:~%m%,1! &set/a m+=1&goto :rep)
set n=0
for %%a in (!s0!) do (
for %%b in (!n!) do (
set /a n+=1
set "coe1=!coe1!for %%!svr:~%%b,1! in (^!s%%b^!) do (set s!n!=^!s%%b:%%!svr:~%%b,1!=^!^&"
set "coe2=!coe2!%%!svr:~%%b,1!"
set "coe3=!coe3!)"
set doe1%%b=!coe1:~,-16!
set doe2%%b=!coe2!
set doe3%%b=!coe3!
)
)
set n=0
:loop
set coe1=!doe1%n%!
set coe2=!doe2%n%!
set coe3=!doe3%n%!
::动态代码
%coe1%
echo %coe2%
%coe3%
::动态代码
set/a n+=1
pause
if !n! neq !m! goto loop
Last edited by netbenton on 2009-7-5 at 01:27 ]
