@echo off
setlocal enabledelayedexpansion
set m=100000
%1 (for /f "tokens=2 delims==" %%a in ('%0 rem^|sort') do ((set /p=%%a <nul)&(set /a n+=1,i=n %% 50)&(if !i! equ 0 (echo=))))>1.txt&pause&exit
for /l %%k in (100,1,199) do (
        set str=%%k
        for /l %%l in (1,1,500) do (
                set /a m+=1
                echo !random!!m:~-6!=!str:~-2!
        )
)
复制代码

60 38 38 05 40 38 33 38 12 12 12 64 60 33 60 60 33 12 33 40 33 33 33 40 60 40 12 12 40 33 33 33 33 64 33 64 64 64 40 40 40 64 40 40 40 64 64 64 64 64 
复制代码

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
复制代码

35 70 39 96 45 26 79 86 40 72 92 46 31 68 95 71 65 73 58 90 29 89 10 82 50 42 94 84 01 34 17 93 06 32 74 07 44 76 37 08 55 47 53 22 23 88 13 16 66 19
55 02 23 30 70 56 53 42 25 33 48 29 79 09 66 98 24 80 11 94 93 13 61 73 40 43 68 67 51 76 26 37 19 59 35 75 95 96 90 63 22 64 69 97 41 15 54 77 86 83
复制代码

@echo off
>2.txt echo 35 70 39 96 45 26 79 86 40 72 92 46 31 68 95 71 65 73 58 90 29 89 10 82 50 42 94 84 01 34 17 93 06 32 74 07 44 76 37 08 55 47 53 22 23 88 13 16 66 19
>>2.txt echo 55 02 23 30 70 56 53 42 25 33 48 29 79 09 66 98 24 80 11 94 93 13 61 73 40 43 68 67 51 76 26 37 19 59 35 75 95 96 90 63 22 64 69 97 41 15 54 77 86 83
setlocal enabledelayedexpansion
for /f "delims=" %%a in (2.txt) do (
        for %%b in (%%a) do (
                set /a #%%b+=1
        )
)
for /f "delims=" %%a in (2.txt) do (
        for %%b in (%%a) do (
                if !#%%b! equ 2 (
                        if not defined ##%%b (
                                set str1=%%b !str1!
                                set str2=%%b !str2!
                                set /a m+=1
                                set ##%%b=1
                        )
                ) else (
                        set /a n+=1
                        set _!random!_!n!=%%b
                )
        )
)
for /f "tokens=2 delims==" %%a in ('set _') do (
        if !m! lss 50 (
                set str1=%%a !str1!
                set /a m+=1
        ) else (
                set str2=%%a !str2!
        )
)
call :1 "!str1!"
call :1 "!str2!"
pause & exit

        :1
        setlocal
        for %%a in (%~1) do (
                set /a k+=1
                set @!random!_!k!=%%a
        )
        for /f "tokens=2 delims==" %%a in ('set @') do (
                set newstr=%%a !newstr!
        )
        echo !newstr!
        endlocal
复制代码

$arr1=100..199 -replace '^1'
1..500|%{
    $arr=$arr1|Get-Random -Count 100
    $arr[0..49] -join ' '
    $arr[50..99] -join ' '
} > 结果.txt
复制代码

@echo off
setlocal enabledelayedexpansion
(for /l %%i in (1,1,1000) do (
        for /l %%j in (0,1,99) do (
        set num=0%%j
        if !@%%j! equ 0 (
            set _!random!_%%j=!num:~-2!
        ) else (
            if !#%%j! neq 500 set _a!random!_%%j=!num:~-2!
        )
    )
    set n=0
    for /f "tokens=1-3 delims==_" %%a in ('set _') do (
        set /a n+=1
        if !n! leq 50 (
            set str=!str! %%c
            set /a #%%b+=1
        )
        set /a @%%b=1000-%%i-500+#%%b
        set _%%a_%%b=
    )
    echo,!str!
    set str=
))>1.txt
pause
复制代码

if %%i leq 100 (
    echo,!str!>>2.txt
) else (
    echo,!str!
)
复制代码

echo,!random!:!str!
复制代码

sort 1.txt>2.txt
(for /f "tokens=1*" %%i in (2.txt) do echo,%%j)>1.txt
del 2.txt
复制代码