中国DOS联盟

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

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

游客 注册 登录 会员 网志 搜索 命令提示符 上传 统计
中国DOS联盟论坛
现在时间是 2026-06-13 19:40
欢迎新会员 ningbo0319　RSS
共 47,998 篇主题 / 350,063 篇帖子 / 今日 0 篇 / 48,210 位会员
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [已结]随机赋值问题。。。
推荐给朋友 分享到 X 分享到 微博 分享到 Telegram 分享到 QQ空间 复制链接 二维码
楼 主 [已结]随机赋值问题。。。 发表于 2008-06-27 21:40　·　 中国 山东 淄博 联通
pusofalse
银牌会员
★★★
积分 1,604
发帖 646
注册 2008-04-13 23:39
UID 115804
性别 男
状态 离线
a=z
b=q
c=e
...
...
a的值是z
b的值是q
如此。。。都是随机赋值。。。

26个字母分别对应一个不同于本身的值，但是值不能重复，即是，
如果m的值是a，那么以后出现的变量中，它们的值不能再是a。。。
这是我的代码，运行之后总有几个是空值，如何避免这种情况？

@echo off&setlocal enabledelayedexpansion

set str=a b c d e f g h i j k l m n o p q r s t u v w x y z

set var=%str: =%

for %%a in (%str%) do (

	set ran=!random!

	set/a mn=!ran!%%26

	if not defined !mn! (

	set !mn!=abcd

	call :lp %%a

)

)

echo %xy%

for %%a in (%str%) do echo %%a !%%a!

pause>nul&exit/b





:lp

set %1=!var:~%mn%,1!

set/a xy+=1


[ Last edited by pusofalse on 2008-6-28 at 04:13 AM ]
心绪平和,眼藏静谧,无比安稳的火... Purification of soul...Just a false...^_^
第 2 楼 发表于 2008-06-27 22:32　·　 中国 湖南 株洲 电信
bat-zw
金牌会员
★★★★
永远的学习者
积分 3,105
发帖 1,276
注册 2008-03-08 13:00
UID 112398
性别 男
状态 离线
兄弟是不是这样的：


@echo off&setlocal enabledelayedexpansion

set code=abcdefghijklmnopqrstuvwxyz

set codes=%code%&set n=26

:begin

set str=&set "var="

set /a r1=%random%%%%n%,r2=%random%%%%n%

set str=!code:~%r1%,1!&set var=!codes:~%r2%,1!

echo %str%=%var%

set /a n-=1

set code=!code:%str%=!&set codes=!codes:%var%=!

if defined code goto begin

pause>nul
本帖最近评分记录 （共 1 条） 点击查看详情
评分人分数时间
pusofalse +2 2008-06-27 22:41
批处理之家新域名：www.bathome.net
第 3 楼 发表于 2008-06-27 22:36　·　 中国 广东 广州 电信
moniuming
银牌会员
★★★
永远的菜鸟
积分 1,335
发帖 574
注册 2007-11-27 12:50
UID 103929
性别 男
来自 广西
状态 离线
是这样吗:
@echo off

setlocal enabledelayedexpansion

set str=a b c d e f g h i j k l m n o p q r s t u v w x y z

set var=%str: =%

for %%a in (%str%) do call :lp %%a

echo %xy%

for %%a in (%str%) do echo %%a !%%a!

pause>nul&exit/b

:lp

set/a "mn=%random%%%26"

if defined %mn% goto :lp

set "%mn%=abcd"

set "%1=!var:~%mn%,1!"

set/a "xy+=1"
本帖最近评分记录 （共 1 条） 点击查看详情
评分人分数时间
pusofalse +2 2008-06-27 22:41
第 4 楼 发表于 2008-06-27 22:36　·　 中国 湖南 株洲 电信
bat-zw
金牌会员
★★★★
永远的学习者
积分 3,105
发帖 1,276
注册 2008-03-08 13:00
UID 112398
性别 男
状态 离线
如要按顺序就修改成如下代码：


@echo off&setlocal enabledelayedexpansion

set code=abcdefghijklmnopqrstuvwxyz

set codes=%code%&set n=26

:begin

set str=&set "var="

set /a r1=%random%%%%n%

set str=!code:~,1!&set var=!codes:~%r1%,1!

echo %str%=%var%

set /a n-=1

set code=!code:~1!&set codes=!codes:%var%=!

if defined code goto begin

pause>nul
批处理之家新域名：www.bathome.net
第 5 楼 发表于 2008-06-27 22:43　·　 中国 山东 淄博 联通
pusofalse
银牌会员
★★★
积分 1,604
发帖 646
注册 2008-04-13 23:39
UID 115804
性别 男
状态 离线
谢谢楼上两位。。。真是太棒了！ ^_^
心绪平和,眼藏静谧,无比安稳的火... Purification of soul...Just a false...^_^
第 6 楼 发表于 2008-06-27 23:55　·　 中国 湖南 娄底 电信
26933062
银牌会员
★★★
积分 2,268
发帖 879
注册 2006-12-19 16:23
UID 73968
性别 男
状态 离线
26个字母分别对应一个不同于本身的值，但是值不能重复
2楼、3楼的难道不会出现 a=a e=e h=h 等等情况吗？


@echo off&setlocal enabledelayedexpansion

set str=a b c d e f g h i j k l m n o p q r s t u v w x y z

for %%a in (%str%) do (

   set var=!str:%%a=!

   for %%b in (!num!) do set var=!var:%%b=!

   call :loop %%a

)

pause

:loop

set /a max=0

for %%a in (!var!) do set /a max+=1,ttt=!random!%%max+1

for /f "tokens=%ttt%" %%i in ("!var!") do (

   echo %1=%%i

   set num=!num! %%i

)

goto :eof


[ Last edited by 26933062 on 2008-6-28 at 12:07 AM ]
致精致简！
第 7 楼 发表于 2008-06-28 10:21　·　 中国 广东 广州 电信
moniuming
银牌会员
★★★
永远的菜鸟
积分 1,335
发帖 574
注册 2007-11-27 12:50
UID 103929
性别 男
来自 广西
状态 离线
Originally posted by 26933062 at 2008-6-27 23:55:
26个字母分别对应一个不同于本身的值，但是值不能重复
2楼、3楼的难道不会出现 a=a e=e h=h 等等情况吗？


@echo off&setlocal enabledelayedexpansion

s ...

这种情况当然会出现,但楼主的意思是当a=a后,其它的25个字母的值都不能再等于a.
第 8 楼 发表于 2008-06-28 10:59　·　 中国 湖南 株洲 电信
bat-zw
金牌会员
★★★★
永远的学习者
积分 3,105
发帖 1,276
注册 2008-03-08 13:00
UID 112398
性别 男
状态 离线
Originally posted by 26933062 at 2008-6-27 23:55:
26个字母分别对应一个不同于本身的值，但是值不能重复
2楼、3楼的难道不会出现 a=a e=e h=h 等等情况吗？
@echo off&setlocal enabledelayedexpansion
s ...

确实是这样，真的还没考虑全，其实也只要加个判断和返回就可以了：


@echo off&setlocal enabledelayedexpansion

set code=abcdefghijklmnopqrstuvwxyz

set codes=%code%&set n=26

:begin

set str=&set "var="

set /a r1=%random%%%%n%

set str=!code:~,1!&set var=!codes:~%r1%,1!

if "%str%" equ "%var%" goto begin

echo %str%=%var%

set /a n-=1

set code=!code:~1!&set codes=!codes:%var%=!

if defined code goto begin

pause>nul

ps:兄弟是不是想利用这样的替换来进行代码加密啊，我看是个好办法!

[ Last edited by zw19750516 on 2008-6-28 at 11:09 AM ]
批处理之家新域名：www.bathome.net
第 9 楼 发表于 2008-09-08 14:12　·　 中国 江苏 南通 电信
seuseuseu
新手上路
★
积分 12
发帖 6
注册 2008-09-08 13:23
UID 125112
性别 男
状态 离线
顶起来
可打印版本 | 订阅主题 | 收藏主题
论坛跳转:
[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001–2023