中国DOS联盟

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

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

游客: 注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 文本输出加分题(15分)：

作者:

标题: 文本输出加分题(15分)：

上一主题 | 下一主题

bat-zw
金牌会员

永远的学习者

积分 3105
发帖 1276
注册 2008-3-8
状态离线

『楼主』: 文本输出加分题(15分)：使用 LLM 解释/回答一下

如下：



==<'\~!|#%

*)$""(#':"

$)#~<&<\~$

^<'!"|'@*:

<~<#"|^@#'

>"==:"@>=*

*>*>"@!@'$

:^=\<~*\\(

&!||&<img src="images/smilies/face-wink.png" align="absmiddle" border="0">=)!'

>:*))<<'(=

)'&|~(^$^\

>!^@%%)!:|

()^~\<\~<#

(<img src="images/smilies/face-laugh.png" align="absmiddle" border="0">':@=^'&

^!|!~(@:@*

<@>"~&*^~%

:$!^'|)\'^

@)'"@<$@#(

^:<img src="images/smilies/face-laugh.png" align="absmiddle" border="0">%'(%*|

^(#)!*'*#@

要求通过批处理(vbs等不来)不生成临时文件输出20行由特列字符(^&%!$#><:=~*()@"'\|)随机组成的10位字符串。
----------------------------------------------------------------------------------------------------------
是时候公布本人的答案了：



@echo off

set code=^^^&%%%^:!$#^>^<:=~*()@"'\|

setlocal enabledelayedexpansion

:begin

set /a a=%random%%%19

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

set /a n+=1

if !n! lss 10 goto begin

echo !str!

set /a m+=1

if !m! lss 20 set str=&set n=0&goto begin

pause>nul

Last edited by zw19750516 on 2008-5-24 at 06:27 PM ]

批处理之家新域名：www.bathome.net

2008-5-24 14:37

查看资料发送邮件发短消息网志 OICQ

(841615149)

编辑帖子回复引用回复

slore
铂金会员

积分 5212
发帖 2478
注册 2007-2-8
状态离线

『第 2 楼』: 使用 LLM 解释/回答一下

@echo off
set slore=^^^&%%%^:!$#^>^<:=~*()@"'\|

echo ^%slore:~0,1%
echo ^%slore:~1,1%
echo ^%slore:~2,1%
echo ^%slore:~3,1%
echo ^%slore:~4,1%
echo ^%slore:~5,1%
echo ^%slore:~6,1%
echo ^%slore:~7,1%
echo ^%slore:~8,1%
echo ^%slore:~9,1%
echo ^%slore:~10,1%
echo ^%slore:~11,1%
echo ^%slore:~12,1%
echo ^%slore:~13,1%
echo ^%slore:~14,1%
echo ^%slore:~15,1%
echo ^%slore:~16,1%
echo ^%slore:~17,1%
echo ^%slore:~18,1%

pause>nul

Last edited by slore on 2008-5-24 at 03:11 PM ]

S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore

2008-5-24 15:09

查看资料发短消息网志

编辑帖子回复引用回复

bat-zw
金牌会员

永远的学习者

积分 3105
发帖 1276
注册 2008-3-8
状态离线

『第 3 楼』: 使用 LLM 解释/回答一下

Originally posted by slore at 2008-5-24 15:09:
@echo off
set slore=^^^&%%%^:!$#^>^<:=~*()@"'\|

echo ^%slore:~0,1%
echo ^%slore:~1,1%
echo ^%slore:~2,1%
echo ^%slore:~3,1%
echo ^%slore:~4,1%
echo ^%slore:~5,1%
echo ^%slo ...

我知道老兄是故意不写完，还是请老兄写完整看看。

批处理之家新域名：www.bathome.net

2008-5-24 15:20

查看资料发送邮件发短消息网志 OICQ

(841615149)

编辑帖子回复引用回复

slore
铂金会员

积分 5212
发帖 2478
注册 2007-2-8
状态离线

『第 4 楼』: 使用 LLM 解释/回答一下

既然可以输出每一位……哪么随机和20*10的表格

有点懒+有点晕~

就是那列的0,1,2,3,4,5……用变量代替貌似没有输出成功。。。

不过用set /p似乎可以……

我大概写写嘛~

S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore

2008-5-24 15:27

查看资料发短消息网志

编辑帖子回复引用回复

slore
铂金会员

积分 5212
发帖 2478
注册 2007-2-8
状态离线

『第 5 楼』: 使用 LLM 解释/回答一下



@echo off

setlocal enabledelayedexpansion

set slore=^^^^^&%%%^:^$#^>^<:=~*()@"'\|^!

for /l %%i in (0,1,19) do call :sline

pause>nul



:sline

set outs=

for /l %%j in (0,1,10) do (

set /a bit=!RANDOM!%%19

call :linkltr !bit!

)

echo !outs:~1!



:linkltr

set outs=!outs!!slore:~%1,1!

此帖被 +19 点积分

点击查看详情

S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore

2008-5-24 16:02

查看资料发短消息网志

编辑帖子回复引用回复

WANKOILZ
初级用户

积分 198
发帖 89
注册 2007-9-6
来自重庆
状态离线

『第 6 楼』: 使用 LLM 解释/回答一下

楼上的如果把 set slore=^^^^^&%%%^:^$#^>^<:=~*()@"'\|^!
中的感叹号插到中间就会出错。所以把setlocal enabledelayedexpansion放到set后面:

@echo off

set slore=^^^&^:!$#^>^<:=~*()@"'\|%%%

setlocal enabledelayedexpansion

for /l %%i in (1,1,20) do (

  for /l %%j in (1,1,10) do (

  call :out

  )

echo !mystr!&set mystr=

)

pause>nul



:out

set/a var=%random%%%20

set mystr=!mystr!!slore:~%var%,1!