Board logo

标题: 【练习-011】批处理按要求将字符串分段输出 [打印本页]

作者: batman    时间: 2008-8-9 22:51     标题: 【练习-011】批处理按要求将字符串分段输出

一、要求用批处理随机输出200个字符到1.txt中的一行,内容类同如下:
  1. xh45q3ma+remgofm54sevhrna4g5r8pl9cjardezqjwj3m8itamh0a4itzd6jz8cmrfmibmhr0wmccyb8qnp2qh4rvlwff6yr2ez4eo063u6viy7ppw+nzxaxe8vrm190eei_0dwx5e2kxbds-ae6e96c9_i9glw8mz+uf6uienx9od8bktfnjlwlqu-e1rcj33_+4bz
复制代码
二、要求用批处理将1.txt中的内容按10个字符为一段输出如下面两种形式:
在一行内输出:
  1. xh45q3ma+r emgofm54se vhrna4g5r8 pl9cjardez qjwj3m8ita mh0a4itzd6 jz8cmrfmib mhr
  2. 0wmccyb 8qnp2qh4rv lwff6yr2ez 4eo063u6vi y7ppw+nzxa xe8vrm190e ei_0dwx5e2 kxbds-
  3. ae6e 96c9_i9glw 8mz+uf6uie nx9od8bktf njlwlqu-e1 rcj33_+4bz
复制代码
分行输出:
  1. xh45q3ma+r
  2. emgofm54se
  3. vhrna4g5r8
  4. pl9cjardez
  5. qjwj3m8ita
  6. mh0a4itzd6
  7. jz8cmrfmib
  8. mhr0wmccyb
  9. 8qnp2qh4rv
  10. lwff6yr2ez
  11. 4eo063u6vi
  12. y7ppw+nzxa
  13. xe8vrm190e
  14. ei_0dwx5e2
  15. kxbds-ae6e
  16. 96c9_i9glw
  17. 8mz+uf6uie
  18. nx9od8bktf
  19. njlwlqu-e1
  20. rcj33_+4bz
复制代码
----------------------------------------------------------------------------------------------------------------------------------------------------
要求:代码高效、通用、简洁、不产生临时文件
ps:请老手们将本题留给新手完成

[ 本帖最后由 batman 于 2008-8-9 22:54 编辑 ]
作者: youxi01    时间: 2008-8-10 00:35

还有个细节问题:
产生的随机字符在什么范围内(主要包括哪些字符)?
作者: more    时间: 2008-8-10 11:25

来赚一点儿积分,哈哈
@echo off
Setlocal Enabledelayedexpansion
set "str=abcdefghijklmnopqrstuvwxyz1234567890+-_"
for /l %%a in (1 1 200) do (
   set /a "m=!random!%%39"
   call set "var1=%%var1%%%%str:~!m!,1%%"
)
set "var=%var1%"
for /l %%a in (1 1 20) do (
   set "var2=!var:~,10!"
   set /p =!var2! <NUL
   set "var=!var:~10!"
)
echo.&echo.&set "var=%var1%"
for /l %%a in (1 1 20) do (
   set "var2=!var:~,10!"
   echo.!var2!
   set "var=!var:~10!"
)
pause>nul

[ 本帖最后由 more 于 2008-8-10 11:27 编辑 ]
作者: batman    时间: 2008-8-10 11:29

原帖由 youxi01 于 2008-8-10 00:35 发表
还有个细节问题:
产生的随机字符在什么范围内(主要包括哪些字符)?

只要是字符就可以,当然可以不考虑特殊字符问题了。
作者: shqf    时间: 2008-8-10 12:52

  1. @echo off
  2. set /p str=<1.txt
  3. set /p select=1.一行内分节显示 2.分行显示(请选择1-2):
  4. if %select% equ 2 goto fh
  5. :fj
  6. set /p=%str:~,10% <nul
  7. if not "%str:~10%"=="" (set str=%str:~10%&goto fj)
  8. pause>nul&goto end
  9. :fh
  10. echo %str:~,10%
  11. if not "%str:~10%"=="" (set str=%str:~10%&goto fh)
  12. pause>nul
复制代码

作者: batman    时间: 2008-8-10 13:51

pause>nul&goto end
这句会出错的,应该改成pause>nul&goto :eof或pause>nul&exit
作者: shqf    时间: 2008-8-10 14:48

哦,你的写法规范。不过我这样也不出错呀:goto后面的标签没有定义的话,转至文件尾。
作者: pusofalse    时间: 2008-8-10 15:03     标题: 回复 7楼 的帖子

不是转至文件尾部吧,而是找不到标签而出错,会自动退出,虽然都是退出。
作者: batman    时间: 2008-8-11 22:58

原帖由 shqf 于 2008-8-10 12:52 发表
@echo off
set /p str=nul

我认为此贴不能加分,原因如下:
一、书写不规范,不能加分。
二、第一问被略过,不能加分。
三、有错不改,不能加分。
作者: batman    时间: 2008-8-11 22:59

在本人未给出答案前,各位新人都可来一试下身手,本人将视情况一一评述和加分。
作者: null    时间: 2008-8-11 23:28

为什么我在看到类似问题的时候会感觉无从下手呢?
作者: pusofalse    时间: 2008-8-11 23:35     标题: 回复 11楼 的帖子

勇于迈出第一步,解答出此题,你会觉得自己的批处理水平已经上升了一个台阶。
然后,你会越来越喜爱批处理。
set var=123456789
set s=!var:~%n%,1!
这里少了一句给n赋值的语句,%n%为一个小于9的随机数,为何是小于9,因为大于或等于9之后,%var:~9,1%是个空值了。
然后呢,请自己完成。^_^
作者: terse    时间: 2008-8-12 00:57

我也要分
那里错了 原码都改没了
  1. @echo off&Setlocal Enabledelayedexpansion
  2.      set "str=abcdefghijklmnopqrstuvwxyz1234567890+-_"
  3.      for /l %%i in (1 1 200) do set /a "m=!random!%%39" & call set /p=%%str:~!m!,1%%<nul>>1.txt
  4.      set/p str=<1.txt
  5.      for /l %%i in (1 1 20) do call set /p=%%str:~!n!,10%% <nul&call set "%%i=%%str:~!n!,10%%"&set/a n+=10
  6.      echo.
  7.      for /l %%i in (1 1 20) do echo.!%%i!
  8.      pause>nul
复制代码
第一次上的码没了 不知道错在那里
  1. @echo off&Setlocal Enabledelayedexpansion
  2.      set "var=abcdefghijklmnopqrstuvwxyz1234567890+-_"
  3.      for /l %%i in (1 1 200) do set /a "m=!random!%%39"&call set str=!str!%%var:~!m!,1%%
  4.      >1.txt echo %str%
  5.      for /l %%i in (1 1 20) do set /p=!str:~,10! <nul&set "%%i=!str:~,10!"&set "str=!str:~10!"
  6.      echo.
  7.      for /l %%i in (1 1 20) do echo.!%%i!
  8.      pause>nul
复制代码

[ 本帖最后由 terse 于 2008-8-12 14:49 编辑 ]
作者: batman    时间: 2008-8-12 09:48

原帖由 terse 于 2008-8-12 00:57 发表
我也要分
@echo off&Setlocal Enabledelayedexpansion
     set "var=abcdefghijklmnopqrstuvwxyz1234567890+-_"
     for /l %%i in (1 1 2000) do set /a "m=!random!%%39"&call set str=!str!%%var:~!m!,1%%
...

代码有多处错误,请修改后再拿分。
作者: terse    时间: 2008-8-12 09:59

原帖由 batman 于 2008-8-12 09:48 发表

代码有多处错误,请修改后再拿分。

多处错误?望兄指正。
作者: pusofalse    时间: 2008-8-12 10:03

  1. @echo off&setlocal enabledelayedexpansion
  2. set var=abcdefghijklmnopqrstuvwxyz0123456789+-_
  3. for /l %%a in (1 1 200) do (
  4.    set/a n=!random!%%39
  5.    call,set a=!a!%%var:~!n!,1%%
  6. )
  7. echo %a%&pause>nul&echo.
  8. :lp
  9. for /l %%i in (0 10 190) do if not defined b (set/p=!a:~%%i,10! <nul) else echo !a:~%%i,10!
  10. if not defined b set b=b&pause>nul&echo.&echo.&goto lp
  11. pause
复制代码


[ 本帖最后由 pusofalse 于 2008-8-12 10:07 编辑 ]
作者: batman    时间: 2008-8-12 11:05

原帖由 terse 于 2008-8-12 09:59 发表

多处错误?望兄指正。

这是你第一次的代码:
作者: batman    时间: 2008-8-12 12:31

下面给出本人的解吧:
  1. @echo off
  2. rem 随机生成200个字符
  3. set "var=abcdefghijklnmopqrstuvwxyz0123456789+_/-"
  4. :begin
  5. set  /a a=%random%%%40,n+=1
  6. call,set "str=%str%%%var:~%a%,1%%"
  7. if %n% neq 200 goto begin
  8. rem 在一行内分段输出
  9. :lp
  10. set /a m+=1
  11. set /p=%str:~,10% <nul&set "_%m%=%str:~,10%"
  12. set "str=%str:~10%"
  13. if defined str goto lp
  14. rem 分行输出分段后字符
  15. echo.&echo.&for /l %%i in (1,1,%m%) do call,echo %%_%%i%%
  16. pause>nul
复制代码

[ 本帖最后由 batman 于 2008-8-12 12:40 编辑 ]
作者: terse    时间: 2008-8-12 14:44

原帖由 batman 于 2008-8-12 11:05 发表

这是你第一次的代码:
208

谢谢 第一次的代码在我的短消息里找到
不过 我这里运行没出现问题
我想知道兄指的多处错误是否就是生成数和行呢?如是的话 那是我测试没改过来的
作者: keen    时间: 2009-5-1 23:56

  1. @echo off
  2. set "str=0123456789abcdefghijklmnopqrstuvwxyz-+/_"
  3. :start
  4. set /a n=%random%%%40,m+=1
  5. call,set num=%%str:~%n%,1%%&set var=%num%%var%
  6. if %m%==201 (echo %var%>>1.txt&goto next) else (goto start)
  7. :next
  8. echo 分行输出:&set /p a=<1.txt&set b=0
  9. :lp
  10. call,set c=%%a:~%b%,10%%
  11. if "%c%"=="" goto end
  12. call,set d=%%d%%%c% &echo %c%&set /a b+=10
  13. goto :lp
  14. :end
  15. echo.&echo.&echo.&echo 一行输出:&echo %d%&pause
复制代码

[ 本帖最后由 keen 于 2009-5-3 17:53 编辑 ]
作者: inittab    时间: 2009-5-3 09:52

  1. @echo off&setlocal enabledelayedexpansion
  2. set "str=1234567890abcdefghijklmnopqrstuvwxyz@#$_+-"
  3. for /l %%i in (0,1,199) do (
  4. set/a ran=!random!%%42&call set "st=!st!%%str:~!ran!,1%%"
  5. )
  6. echo 整行输出: !st!&echo.&echo 分列输出:
  7. for /l %%j in (0,10,190) do (
  8. set /a m=%%j
  9. call set "st1=!st1!%%st:~!m!,10%% "
  10. call echo %%st:~!m!,10%%
  11. )
  12. echo.&echo 分段输出: !st1!
  13. pause
复制代码

作者: netbenton    时间: 2009-5-4 11:08

根据楼上的再精简、提速
  1. @echo off&setlocal enabledelayedexpansion
  2. set "str=1234567890abcdefghijklmnopqrstuvwxyz@#$_+-"
  3. for /l %%i in (0,1,199) do set/a ran=!random!%%42&for %%a in (!ran!) do set "st=!st!!str:~%%a,1!"
  4. echo 整行输出: !st!&echo.&echo 分列输出:
  5. for /l %%j in (0,10,190) do echo !st:~%%j,10!&set "st1=!st1!!st:~%%j,10! "
  6. echo.&echo 分段输出: !st1!
  7. pause
复制代码





欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2