大赛随机抽奖脚本

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]