比賽隨機輸入繪製腳本

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]