[其他] 批处理如何随机获取8位的字符串？

qingshancun

定义26个字母的变量  如何随机获取他们？ 8位…
如ssdgjgdv  nvggdjfv  aaaaaaaa
可以重复 …

sxw

@rem = '
@echo off
color d
mode con cols=125 lines=25
echo.&echo.&echo.&echo.
C:\strawberry\perl\bin\perl.exe -S a.bat
ping 127.0.0.1 >nul
goto end_perl
:end_perl
exit
@rem ';

@a=(a..z,A..Z);
@result=@a[map {int(rand(26))} 1..8];
print "@result\n";
复制代码

Demon

@echo off
setlocal enabledelayedexpansion
set #=abcdefghijklmnopqrstuvwxyz
for /l %%i in (1 1 8) do (
    set /a _ = !random! %% 26
    for %%_ in (!_!) do set $=!$!!#:~%%_,1!
)
echo %$%
pause
复制代码

qingshancun

楼上两位大神的… 貌似都不可以，求解答！

qingshancun

回复 2# sxw


    运行结果：a不是内部或者外部命令，也不知可运行的程序或批处理文件
                      result 也是同上的问题
                 无法初始化设备 PRN
问题出在那里？求解答…   谢谢

qingshancun

Demon 发表于 2013-5-5 22:04

    运行结果：运行符不存在…  最后直接显示！$！！#:~！_！，1！
问题出在那里了？求解答…

Demon

运行结果：运行符不存在…  最后直接显示！$！！#:~！_！，1！
问题出在那里了？求解答…
qingshancun 发表于 2013-5-6 22:13

你的是什么系统？

sxw

回复 5# qingshancun


    需要装perl.exe

qingshancun

回复 7# Demon


    还和系统有关系么？  win7

qingshancun

回复 8# sxw


    还要安装那个啊…   不是纯bat么？

sxw

回复 10# qingshancun


    我这个不纯。下载个草莓perl就好了http://strawberry-perl.googlecod ... -5.16.3.1-32bit.msi

qingshancun

回复 8# sxw


    不是纯bat么？

sxw

回复 12# qingshancun


    这个需要第三方工具Perl.exe，如果你不着急，可以有别人解决了。。。。。

qingshancun

回复 7# Demon


    在么？？？    请问是什么问题啊 ？

batman

三楼的代码应该是没有问题的，不知道楼主系统是不是精简版的？