比赛随机输入绘制脚本

Question

你能告诉我一个最好的脚本/程序，将随机抽取一个胜利者。

这些都是参赛者，需要随机选择一名获胜者。

Excel工作表中的数据。我想针对excel运行脚本。

Answer 1

以下假定您的参赛名单中一个名为 “参赛者” 的范围。当然，关于系统生成的随机数字并不完全随机的常见警告 - 适用于本地/小规模有趣的比赛，可能不是全国彩票的解决方案。

Sub PickWinner() 
    Dim winner As String 

    winner = Range("Entrants").Cells(Int(Rnd() * (Range("Entrants").Count) + 1), 1) 

    Debug.Print winner 
End Sub 

Answer 2

另存为CSV然后

在Python

：

import random 
fd = open(csv_file) 
lines = fd.readlines() 
line_num = random.randrange(0,len(lines)-1) 
print 'winner: ', lines[line_num]