'################################################### ' Shuffle(WSH) '  TjSoft-43, Taiju, 2007.10.3 ' 【使い方】 '  「真魚」エディタから実行する。 '  選択した各行を、ランダムに並べ替える。 '################################################### sTargetString = Editor.GetSelText aryData = Split(sTargetString,Chr(10)) Randomize '乱数ジェネレータの初期化 '切り混ぜるユニットをおおよそ決める。 n = Int(UBound(aryData) / 3) For i = 0 To UBound(aryData) '特定範囲の整数の乱数は、Int((上限 - 下限 + 1) * Rnd + 下限)で求めるという。 m = Int((UBound(aryData) - 1 - 0 + 1) * Rnd + 0) If m + n =< UBound(aryData) Then dummyData = aryData(m) aryData(m) = aryData(m + n) aryData(m + n) = dummyData dummyData = "" End If Next sConStr = Join(aryData, Chr(10)) sTargetString = Editor.SetSelText(sConStr) sConStr = "" Erase aryData