板 1- 前 次 新 ﾚｽ
スクリプト投稿スレ
[116]unnamed.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
}
前 次