var arr = [];
var tmp = [];
var fso = new ActiveXObject('Scripting.FileSystemObject');

for(var i=100; i<=199; i++) tmp.push( (''+i).substr(1) );

for(var i=1; i<=500; i++){
    tmp.sort(function(){return Math.random()>0.5 ? 1 : -1});
    var str = tmp.join(' ');
    str = str.replace(/^((?:\d\d ){49}\d\d) /, '$1\r\n'); 
    arr.push(str);
}

fso.OpenTextFile('1.txt', 2, true).Write(arr.join('\r\n'));

WSH.Echo('Done');
复制代码

$arr = (100..199) -replace '^1';
$out = [Collections.ArrayList]@();

for ($i=1; $i -le 500; $i++) {
    $arr = Get-Random $arr -Count $arr.Count;
    [void]$out.Add($arr[0..49] -join ' ');
    [void]$out.Add($arr[50..99] -join ' ');
}

[IO.File]::WriteAllLines('1.txt', $out);
复制代码

$out = Get-Random $out -Count $out.Count
复制代码

@echo off
%1 (for /f "tokens=2 delims==" %%a in ('%0 rem^|sort') do (echo %%a))>1.txt&pause&exit
for /l %%l in (1001,1,1500) do (
	setlocal enabledelayedexpansion
	for /l %%k in (100,1,199) do (
		set str=%%k
		set #!random!#%%k=!str:~-2!
	)
	for /f "tokens=2 delims==" %%a in ('set #') do (
		set str2=%%a !str2!
	)
	echo !random!#%%l1=!str2:~0,149!
	echo !random!#%%l2=!str2:~150,149!
	endlocal
)
复制代码

@echo off
(for /l %%i in (1,1,500) do (
    setlocal enabledelayedexpansion
    for /l %%j in (0,1,99) do (
        set /a n+=1
        if %%j lss 10 (
            set _!random!-!n!=0%%j
        ) else (
            set _!random!-!n!=%%j
        )
    )
    for /f "tokens=2 delims==" %%k in ('set _') do (
        set /a m+=1
        if !m! leq 50 (
            set str1=!str1! %%k
        ) else (
            set str2=!str2! %%k
        )
    )
    echo,!str1!
    echo,!str2!
    endlocal
))>1.txt
pause
复制代码