批处理如何生成固定字符串+随机数？

bh62549

在论坛上查了很多教程，有现成bat。就是没有固定字符串+随机数。
固定=https://www.2345.com/
随机16位大写字母数字=2ICJ1S06DANS4W57
组合=https://www.2345.com/2ICJ1S06DANS4W57
经常先在网上免费生成随机网站上生成一定数量的随机，再手动复制到固定字串后面。
求个bat最好能检查去重复，生成的字符串能有换行（两组字符串中间有一空行），能一次生成60组以上，

----------------------------------------------------------------------------------------------------------------------
https://www.2345.com/FECJ1S06DANHGW51

https://www.2345.com/KRCJ1S06DANDFW52

https://www.2345.com/HTYJ1S06DANGFW53

https://www.2345.com/MCCJ1S06DANSCW54

类似这样的效果

xczxczxcz

批处理生成这种随机大写：先设定一串26个大写字母，再通过随机一串数字与某某的余数之类来截取位置的字母，再拼起来。很累的。大致过程就是介样子。

bh62549

批处理生成这种随机大写：先设定一串26个大写字母，再通过随机一串数字与某某的余数之类来截取位置的字母， ...
xczxczxcz 发表于 2019-10-24 15:24

如果是单纯数字不要字母呢？？？

Batcher

回复 3# bh62549


    你在论坛找到的哪个代码能生成符合要求的随机数，发出来，我告诉你怎么添加固定字符串。

505250350

1. 
   
2. 
   
3. @echo off & setlocal enabledelayedexpansion
   
4. 
   
5. ::固定字符串
   
6. set "s1=https://www.2345.com/"
   
7. ::随机位数
   
8. set /a ws=16
   
9. ::一次生成组数
   
10. set /a zs=120
    
11. 
    
12. set /a a=0
    
13. set /a b=0
    
14. set "s2="
    
15. set "str=ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"
    
16. del str.txt 1>nul 2>nul
    
17. 
    
18. :mm
    
19. set /a r=!random!%%36
    
20. set s2=%s2%!str:~%r%,1!
    
21. set /a a+=1
    
22. if %a% lss %ws% goto mm
    
23. (echo %s1%%s2%&echo.)>>str.txt
    
24. set "s2="
    
25. set /a a=0
    
26. set /a b+=1
    
27. if %b% lss %zs% goto mm
    
28. 
    

复制代码

codegay

nim语言版,之前写过的.稍稍改下了

1. import os, random, times
   
2. 
   
3. var t =  epochTime()
   
4. randomize()
   
5. 
   
6. let chars = ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A',
   
7. 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O',
   
8. 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z']
   
9. 
   
10. # 随机字符的长度
    
11. let strcounter = 16
    
12. 
    
13. let linecounter = 1000000
    
14. 
    
15. #输出文件
    
16. var f = open(getAppDir() / "result.txt", fmAppend)
    
17. 
    
18. for i in 1 .. linecounter:
    
19.     var str = "bathome.com我带你们打"
    
20.     for n in 1 .. strcounter:
    
21.       str.add(sample(chars))
    
22.     str.add("\r\n")
    
23.     str.add("\r\n")
    
24.     f.write(str)
    
25. f.close()
    
26. 
    
27. 
    
28. echo epochTime() - t
    

复制代码

我编译好的可执行文件72小时内可下载:
编译参数 nim c -d:danger snake.nim
https://c-t.work/s/65a89db4b96c44

xczxczxcz

来个优雅点的？

1. 
   
2. $int=(65..90)+(48..57);
   
3. for($i=1;$i -le 60;$i++){'https://www.2345.com/'+(-join (1..16|%{[char][int](Get-Random $int)}))}
   

复制代码

xczxczxcz

1. $int=(65..90)+(48..57);1..60|%{'https://www.2345.com/'+(-join (1..16|%{[char][int](Get-Random $int)}))}

复制代码

523066680

say join "", map { ('0'..'9','A'..'Z')[rand(36)] } (1..16) for (1..60);
骆驼

terse

上面加个参数

1. 1..60|%{'https://www.2345.com/'+-join($(Get-Random (48..57 + 65..90) -count 16)|%{[char]$_})}

复制代码

让它短一点

1. 1..60|%{'https://www.2345.com/'+-join([char[]](48..57 + 65..90)|Get-Random -Count 16)}

复制代码