並び替えソフト

Question

任意の番号（例えば１～５０）をシャッフルしてランダムに並べるフリーソフトはありませんか？
例えば、1～9の9個の数字の場合は、「1.2.3.4.5.6.7.8.9」のように並んでいる番号を「3.9.4.6.8.1.7.5.2」のように並び替えるソフトを探しています。

BLUEPIXY · Accepted Answer

改修してみました。
同じフォルダに
STARTNO.txt
というファイルに最初に始まる番号を入力したものを準備しておいて下さい。
1から始まる時は
1
'-------------------------------------------
'コンソールから実行する時は>cscript shuffle.vbs
'STARTNO.txtに書かれている番号から、Need人数をシャッフルする
Dim fso, tso
Dim MaxNum, Need, Off, StartNo
Dim NumList
Dim i,x
MaxNum = 27 '児童の人数
Need   = 20 '給食当番に必要な人数
Off    = 7  '抜ける人数
Set NumList = CreateObject("Scripting.Dictionary")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Set tso = fso.OpenTextFile("STARTNO.txt",1) '今回の始めの番号を読み出す
StartNo = CInt(tso.ReadLine)
tso.Close

x=StartNo
for i=0 to Need -1
NumList.Add i,x 'リストを作る
x = x + 1
if x >MaxNum then x =1
next

WScript.Echo StartNo & "から" & Need & "人"
Randomize
do until NumList.count = 0
x=Int(Need * Rnd)
if NumList.Exists(x) then
WScript.Echo NumList.Item(x)
NumList.Remove(x)
end if
loop

StartNo = (StartNo + Off) mod MaxNum
if StartNo = 0 then StartNo = MaxNum
Set tso = fso.OpenTextFile("STARTNO.txt",2) '次回の始めの番号を書き出す
tso.WriteLine(CStr(StartNo))
tso.Close

BLUEPIXY · Answer

#2補足について＞
例えば１～２７人が前から順番に７人抜ける（抜けて後ろに並ぶ）ということは、シャッフルする要素がないと思うのですが、
最初の１～２７の並びをシャッフルで決めるといういみですか？
それとも、１週間毎にシャッフルするという意味でしょうか？
後の意味だと、勤務につく間隔が他の人より短い人がでてくるような気がするのですが、
例えば、こういう動作をして欲しいというのを具体的な（どうシャッフルが関係するのか）例をあげて説明していただけませんか？
＞VBScript （私にはよくわかりませんが）が一番簡単な方法ですか？
エクセルとかを使う方法もあるかとも思いますが、
プログラム的な操作になること、
非常に限定的な要素を含むことから
フリーソフトでは、望む動作をするものが（ほとんど）ないような気がします。
なので、作らないといけないですが、
どういうソフトが動くのかという環境がわからない上では、
ＭＳの場合９８以降のＯＳが入っていれば使えると判断できるＶＢＳｃｒｉｐｔを使用することにしました。

uzzra · Answer

1～43に限定されますが、ロト６用の数値シャッフルをするフリーソフトがありました。
↓
http://www.vector.co.jp/soft/dl/win95/amuse/se316443.html

それから、パスワードを生成するツールですが、これも応用次第で使えませんか。（文字を数字に見立てて、など）
↓
http://www.vector.co.jp/soft/win95/util/se161038.html?y

BLUEPIXY · Answer

＃２＞チンプンカンプンなんです
まず、「スタートメニュー」から
「すべてのプログラム」～「アクセサリ」～「コマンドプロンプト」
を選んで下さい。
黒いウインドウが開くはずです。
一番上の方に今開いているフォルダ名が表示されているはずです。
次に、
エクスプローラからその表示されているフォルダに移動して、フォルダの中で右クリックして「新規作成」～「テキストドキュメント」で新しいテキストファイルを作って下さい。
名前が青くなっている処で（あるいは、Ｆ２キーを押して） shuffle.vbs に名前を変更して下さい。（拡張子は普段表示されるようになっていますか？）
警告されると思いますが、ＯＫして名前の変更を完了します。
すると、字の書かれたような青い巻物みたいなアイコンになるはずです。
それを、右クリックして「編集」を選んで下さい。
メモ帳が開くはずです。
そこに、
＃２の回答の切取線以下の部分をコピーして貼り付けて下さい。
張り付けできたら、上書き保存してメモ帳を終了します。
次に、
もとのコマンドプロンプトに戻って画面をクリックして下さい。
そこで、
cscript shuffle.vbs
とタイプして、ＥＮＴＥＲキーを押して下さい。
プログラムを実行することができます。
プログラムが見つからないとかそういうメッセージが出る場合その起動したフォルダにないかもしれません。
dir
とタイプして、ファイルの一覧から shuffle.vbs
があることを確認して下さい。（ない場合は、そのフォルダを最初の手順でもう一度確認して下さい。）

いったん、shuffle.vbs を作成できたら
ダブルクリックしても実行することもできます。
動作はちょっと変わります。

BLUEPIXY · Answer

とりあえず、作ってみました。
以下の部分をshuffle.vbsとでも名前を付けて保存し
ダブルクリックするか
コマンドプロンプトで
>cscript shuffle.vbs
として下さい。
コマンドプロンプトの場合、
>cscript shuffle.vbs >data.txt
とでもすることで出力をファイルに保存することができます。
'-----------------------切り取り線--------------
'1から指定された数字までをランダムに表示する
'コンソールから実行する時は>cscript shuffle.vbs
Dim MaxNum
Dim NumList
Dim i,x

Set NumList = CreateObject("Scripting.Dictionary")

MaxNum=InputBox("１から指定された数字までの数字をシャッフルして書き出します" & vbCRLF & "数字を入力して下さい")

for i=1 to MaxNum
NumList.Add i,i
next

Randomize
do until NumList.count = 0
x=Int((MaxNum * Rnd) + 1)
if NumList.Exists(x) then
WScript.Echo NumList.Item(x)
NumList.Remove(x)
end if
loop

silo_7 · Answer

「行単位で並び替える」エディタやエクセル等の表作成ソフトがあれば、一度、
1
2
3
4
のように入力するか、１文字ごとに改行コードをつけておき、
2
4
1
3
のようにランダムに処理してから改行コードを外すといいう方法が思いつきます。
テキストファイルソータはそういうソフトのひとつです。

参考URL：http://www.magictory.com/main/soft/softs.html

並び替えソフト

改修してみました。

#2補足について＞

この回答への補足

1～43に限定されますが、ロト６用の数値シャッフルをするフリーソフトがありました。

＃２＞チンプンカンプンなんです

とりあえず、作ってみました。

この回答への補足

「行単位で並び替える」エディタやエクセル等の表作成ソフトがあれば、一度、

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング