中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

中国DOS联盟论坛
现在时间是 2026-08-08 17:12
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » [求助]如何对文本中的每个字符加1? 查看 1,631 回复 15
16 发表于 2008-05-19 20:56 ·  中国 江苏 常州 溧阳市 电信
银牌会员
★★★
积分 2,404
发帖 946
注册 2005-09-08 13:44
20年会员
UID 42345
状态 离线
来晚了 我也发个

@echo off&setlocal enabledelayedexpansion
set var=abcdefghijklmnopqrstuvwxyz01234567890
for /l %%i in (0 1 35) do call:lp %%i
set z=a
for /f "delims=" %%i in (a.txt) do set str=%%i&set str2=&call:lp1
pause&exit
:lp1
set str1=!str:~,1!
if "!str1!"==" " set "str2=!str2! "
set str2=!str2!!%str1%!&set str=!str:~1!
if not defined str echo !str2!&goto :eof
goto lp1
:lp
set/a n=%1+1
set !var:~%1,1!=!var:~%n%,1!
简单!简单!再简单!
论坛跳转: