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

ポット分け別バージョンの抽選くじ。（第２ポットはアフリカ＆北中米、第４ポットはアジア＆南米）
下のpot1からend subまでを、ＰＣのメモ帳にコピペして抽選.vbsの名前で保存。（拡張子を.vbsにすれば名前は任意）
そのファイルをダブルクリックすると抽選できます。
いくつかに分けるので、メモ帳にコピペする際にうまくつないでください。

pot1=",南アフリカ,E,スペイン　,E,ドイツ　　,E,イングﾗﾝド,,イタリア　,E,(フランス),S,ブラジル　,S,アルゼンﾁﾝ"
pot2="N,アメリカ　　,N,メキシコ　,N,ホンジュラス,F,(カメルーン),F,(チュニジア),F,(アルジェリア),F,ガーナ　　,F,コｰトジボワｰル"
pot3="E,(ロシア)　,E,オランダ,E,デンマーク,E,セルビア,E,(ポﾙトガル),E,スロバキア,E,(ギリシャ),E,スイス　"
pot4="S,パラグアイ,S,(ウルグアイ),S,チリ,A,オーストラリア,A,日本,A,韓国,A,北朝鮮,A,(バーレーン)"
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"
kuji "S", 2, ary1, 0, "X"
kuji "F", 5, ary2, 1, "F"
kuji "N", 3, ary2, 1, "X"
kuji "E", 8, ary3, 2, "X"
kuji "S", 3, ary4, 3, "S"
kuji "A", 5, ary4, 3, "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)
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
grp(selG,ROWnum,0) = ary(index*2)
grp(selG,ROWnum,1) = ary(index*2+1)
ary(index*2) = ""
next
end sub

くじは以上です。
・開催国南アフリカはＡ組、前回優勝国イタリアはＦ組
・欧州は同じ組に2国までＯＫ、欧州を除く地域は同じ地域の国は同じ組にならない
・南米と北中米は他地域とみなして同組あり
で組み合わせできる。

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