求助批处理生成不重复的3位字符

newgain

求助生成不重复的1-4位字符（大小写字母、数字），并输出TXT文件；
文件可能会比较大，最好位数可调。win10系统。
感谢10元。

Nsqs

powershell -noprofile -executionpolicy bypass "1..100|%%{((97..122),(65..90),(48..57)|%%{[char[]]$_}|Get-Random -Count 4) -join ''}" > rnd.txtCOPY

生成100个随机字符,每行一组

wanghan519

awk写了个幂集，不知道对不对，可以存入文件a.awk再运行echo asdfg | awk -f a.awk试一下
只考虑了组合，没考虑排列。。。

function powerset(x, y) {
    if (length(x) > 3 || y > length($0)) {
        print x
        return
    }
    powerset(x, y + 1)
    powerset(x substr($0, y, 1), y + 1)
}
{
    powerset("", 1)
}COPY

zaqmlp

/*&cls&echo off&cd /d "%~dp0"
set "length=3"
set "count=100"
cscript -nologo -e:jscript "%~f0" "%length%" "%count%" > "out.txt"
pause
exit
*/
var len=WSH.Arguments(0).split(/[-,~]/),count=Number(WSH.Arguments(1));
var charlist=[
    ["A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z"],
    ["a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z"],
    ["0","1","2","3","4","5","6","7","8","9"]
];
 
var r1=Number(len[0]);
function getrandom(){
    if(len.length==2){r1=Math.floor(Math.random()*(Number(len[1])-Number(len[0]))+Number(len[0]));}
    var s=[];
    for(var i=1;i<=r1;i++){
        var r2=Math.floor(Math.random()*charlist.length);
        var r3=Math.floor(Math.random()*charlist[r2].length);
        s.push(charlist[r2][r3]);
    }
    return s.join("");
}
 
var dic={},n=0;
for(;;){
    var rs=getrandom();
    if(dic[rs]==undefined){
        WSH.echo(rs);
        n=n+1;dic[rs]='';
        if(n>=count){break;}
    }
}COPY

newgain

回复 4# zaqmlp

E:\DESK\输出.bat(10, 3) Microsoft JScript 编译错误: 缺少 ']'

zaqmlp

回复 5# newgain

核对代码，确保复制完整

newgain

回复 6# zaqmlp


   

zaqmlp

回复 5# newgain

不要手动选中复制，直接点击帖子自带的复制按钮
    https://pan.baidu.com/s/1SIKi0VaD3Tlo9R3HJO0vcA?pwd=4t45

newgain

回复 8# zaqmlp

只输出100多个，这个数量不全

newgain

回复 8# zaqmlp


    可以输出所有的么1~4位组合么

wanghan519

python最简单，因为有itertools，

import itertools
s = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789'
with open(r'a.txt','w') as f:
    for i in range(1, 5):
        for j in itertools.permutations(s, i):
            f.write(''.join(j)+'\n')COPY

前两天刚提过的nushell可以方便的写sql，似乎sql写递归也很方便

with recursive c as ( 
select x, 1 n from t
union all
select c.x || t.x, c.n + 1
from c join t
where c.n < 4 and c.x not like '%' || t.x || '%'
 )
select x from c;COPY

或者就像上面那样再试试awk递归怎么写，上面那是列出所有组合，没考虑全排列

qixiaobin0715

@echo off
set str1=0 1 2 3 4 5 6 7 8 9
set str2=a b c d e f g h i j k l m n o p q r s t u v w x y z
set str3=A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
set str=%str1% %str2% %str3%
(for %%i in (%str%) do (
    echo,%%i
    for %%j in (%str%) do (
        echo,%%i%%j
        for %%k in (%str%) do (
            echo,%%i%%j%%k
            for %%l in (%str%) do (
                echo,%%i%%j%%k%%l
            )
        )
    )
))>1.txt
pauseCOPY

qixiaobin0715

回复 1# newgain
12楼代码发上来有笔误，现已修改。

zaqmlp

回复 10# newgain

<# :
cls&echo off&cd /d "%~dp0"&set "current=%cd%"
path %SYSTEMROOT%\System32\WindowsPowerShell\v1.0;%path%
echo;waiting...
powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal \"%~f0\"|Out-String|Invoke-Expression"
echo;done
pause
exit
#>
$current=($env:current).trimend('\');
$outfile=$current+'\out.txt';
$fs=New-Object System.IO.FileStream($outfile, [System.IO.FileMode]::Create);
$sw=New-Object System.IO.StreamWriter($fs, [Text.Encoding]::GetEncoding('GB2312'));
$arr=New-Object -TypeName System.Collections.ArrayList;
$charlist=@(97..122)+@(65..90)+@(48..57);
for($i=1;$i -le 4;$i++){
    $brr=New-Object -TypeName System.Collections.ArrayList;
    if($arr.count -eq 0){
        for($j=0;$j -lt $charlist.length;$j++){
            $c=([char]$charlist[$j]).toString();
            $sw.WriteLine($c);
            [void]$brr.add($c);
        }
    }else{
        for($j=0;$j -lt $arr.count;$j++){
            for($k=0;$k -lt $charlist.length;$k++){
                $c=([char]$charlist[$k]).toString();
                $s=$arr[$j]+$c
                $sw.WriteLine($s);
                [void]$brr.add($s);
            }
        }
    }
    $sw.Flush();
    $arr=$brr;
}
$sw.Close();
$fs.Close();COPY

Nsqs

我大PowerShell没资格参与这问题?