-如何从一文本的最后行向前读取所有行 - 中国DOS联盟论坛

Originally posted by qwe1234567 at 2006-10-16 21:52:
如果不用随机数产生乱序数字那就这样产生固定规律的数！

qwe1234567版主此言差矣, 其实系统可供我们利用的东西很多.


@echo off
setlocal ENABLEDELAYEDEXPANSION
    set str=0123456789abcdef
:start
    set /a num+=1
    set num_=%time:~-1%
    set str_=!str:~%num_%,1!!str:~-%num_%,1!
    set var=%var%%str_%
    if %num% gtr 20 goto end
    ping 127.0 -n 1 >nul 2>nul
    goto :start

:end
    echo %var%
pause


@echo off
setlocal ENABLEDELAYEDEXPANSION
    set str=0123456789abcdef
:start
    set /a num2+=1
    set /a num1=%time:~-1% 
    set str=!str:~%num1%!!str:~0,%num1%! 
    set str=%str: =%
    set var=%var%%str:~0,1%
    if %num2% gtr 100 goto next
goto :start

:next
    echo %var%
pause

[ Last edited by pengfei on 2006-10-17 at 04:23 ]

第16楼　pengfei	发表于 2006-10-16 22:06
银牌会员　发帖 485　积分 1,218　来自湖南.娄底
Originally posted by qwe1234567 at 2006-10-16 21:52: 如果不用随机数产生乱序数字那就这样产生固定规律的数！ qwe1234567版主此言差矣, 其实系统可供我们利用的东西很多. @echo off setlocal ENABLEDELAYEDEXPANSION set str=0123456789abcdef :start set /a num+=1 set num_=%time:~-1% set str_=!str:~%num_%,1!!str:~-%num_%,1! set var=%var%%str_% if %num% gtr 20 goto end ping 127.0 -n 1 >nul 2>nul goto :start :end echo %var% pause @echo off setlocal ENABLEDELAYEDEXPANSION set str=0123456789abcdef :start set /a num2+=1 set /a num1=%time:~-1% set str=!str:~%num1%!!str:~0,%num1%! set str=%str: =% set var=%var%%str:~0,1% if %num2% gtr 100 goto next goto :start :next echo %var% pause [ Last edited by pengfei on 2006-10-17 at 04:23 ]

第17楼　不得不爱	发表于 2006-10-16 22:54
超级版主　发帖 2,044　积分 5,310　来自四川南充
这到是，不过速度却慢多了！

第18楼　wood016	发表于 2006-10-17 23:42
新手上路　发帖 3　积分 6
看了一下,不错啊

第19楼　wudixin96	发表于 2007-04-06 22:30
银牌会员　发帖 931　积分 1,928
强。学习了。比较难消化啊