XREA.COM Logo XREA.COM Ad

スクリプト投稿スレ

116unnamed.ahk:06/01/31 20:31 ID:???
;借りますね。

InputBox, Sample , サンプル数, , , , 110, , , , ,

Loop, %Sample%
{
Samples = %Samples%%A_Index%`n
}

Origine = %Sample%
RestNum = %Sample%

Sort, Samples, Random

Num = 1

Luckyman = StartSampleNum `= %Sample%`r`n`r`n

Loop
{

If RestNum < 1
{
MsgBox, Less Than 0
ClipBoard = %Luckyman%
ExitApp
}

InputBox, Pick , 抽出数, Start = %Origine% / Rest = %RestNum%, , , 110, , , , ,

If Pick =
{
ClipBoard = %Luckyman%
ExitApp
}

Loop, Parse, Samples, `n
{
If A_Index > %Pick%
{
Rest = %Rest%%A_LoopField%`n
}
Else
{
Lucky = %Lucky%%A_LoopField%`n
}
}

Sort, Lucky

Luckyman = %Luckyman%-----`r`nPick%Num% / %Pick%`r`n%Lucky%-----`r`n

MSgBox, %Luckyman%

Samples = %Rest%

Lucky =
Rest =

EnvSub, RestNum, %Pick%

EnvAdd, Num, 1

}
70KB
名前: E-mail:
ファイル:
0ch BBS 2005-10-08