台灣最大程式設計社群網站
線上人數
912
 
會員總數:246038
討論主題:189626
歡迎您免費加入會員
討論區列表 >> 專欄文章 >> 陣列亂數輸出資料不要重覆
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
陣列亂數輸出資料不要重覆
價值 : 0 QP  點閱數:461 回應數:0
樓主

站務人員 站長
門外漢
0 1580
542 9
發送站內信

捐贈 VP 給 站務人員

'開啟檔案
set fs=server.createobject("scripting.filesystemobject")
file=server.mappath("Suc.txt")
'檔案是否存在
set txtf1=fs.opentextfile(file,8,true)
txtf1.close
'讀取資料
set txtf1=fs.opentextfile(file,1)
if not txtf1.atendofstream then
while (not txtf1.atendofstream)
for i=0 to 9
txt1(i)=txtf1.readline
next
wend
end if

Randomize
For i = 0 To 9
x = round((Rnd() * 9) + 0)
txt2(i) = txt1(x)
Next

For i = 0 To 9
Response.Write txt2(i)&""
Next

本篇文章發表於2002-08-12 00:00
目前尚無任何回覆
   

回覆
如要回應,請先登入.