2010念の日本の相手組合せ決定！！

>>663の意見に沿って、ポット分けに前回方式をそのまま採用してみた抽選くじ。（第２ポットはアフリカ＆南米）
下のpod1からend subまでを、ＰＣのメモ帳にコピペして抽選.vbsの名前で保存。ファイルをダブルクリックすると抽選できます。
いくつかに分けるので、メモ帳にコピペする際にうまくつないでください。

pot1=",南アフリカ,E,スペイン　,E,ドイツ　　,E,イングﾗﾝド,,イタリア　,E,(フランス),S,ブラジル　,S,アルゼンﾁﾝ"
pot2="S,パラグアイ,S,(ウルグアイ),S,チリ　　　,F,(カメルーン),F,(チュニジア),F,(アルジェリア),F,ガーナ　　,F,コｰトジボワｰル"
pot3="E,(ロシア)　,E,オランダ,E,デンマーク,E,セルビア,E,(ポﾙトガル),E,スロバキア,E,(ギリシャ),E,スイス　"
pot4="4,アメリカ,4,メキシコ,4,ホンジュラス,4,オーストラリア,4,日本,4,韓国,4,北朝鮮,4,(バーレーン)"
dim ary1, ary2, ary3, ary4, grp(7,3,1)
ary1=split(pot1,",")
ary2=split(pot2,",")
ary3=split(pot3,",")
ary4=split(pot4,",")

grp(0,0,0) = "F"
grp(0,0,1) = ary1(1)
grp(5,0,0) = "E"
grp(5,0,1) = ary1(9)
kuji "E", 4, ary1, 0, "X", "X"
kuji "S", 2, ary1, 0, "X", "X"
kuji "S", 1, ary2, 1, "S", "E"
kuji "S", 2, ary2, 1, "S", "X"
kuji "F", 5, ary2, 1, "F", "X"
kuji "E", 8, ary3, 2, "X", "X"
kuji "4", 8, ary4, 3, "X", "X"
for i=0 to 7
msg = msg & chr(65+i) & "：　"
msg = msg & grp(i,0,1) & "　"
msg = msg & grp(i,1,1) & chr(9)
msg = msg & grp(i,2,1) & chr(9)
msg = msg & grp(i,3,1) & chr(13) & chr(10)
next
wscript.echo msg

sub kuji(AREAid, AREAnum, ary, ROWnum, AVOid, AVOid2)
randomize
for i=0 to (AREAnum-1)
Do
index = int(rnd*8)
Loop until ary(index*2)=AREAid
Do
Do
selG = int(rnd*8)
Loop until grp(selG,ROWnum,0)=""
Loop until grp(selG,0,0)<>AVOid and grp(selG,0,0)<>AVOid2
grp(selG,ROWnum,0) = ary(index*2)
grp(selG,ROWnum,1) = ary(index*2+1)
ary(index*2) = ""
next
end sub

くじは以上です。
結果をコピペしたい場合は、ダブルクリックじゃなくて、
コマンドプロンプトから cscript <ファイル名> で実行すると、
コマンドプロンプト内に表示されるので、そこからコピーできるはず。