奇狐社區論壇 - 如何暫停五秒後再繼續往下執行

奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 如何暫停五秒後再繼續往下執行 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=17377)

由 hwyhon 在 2012-12-29 13:12 發表:

如何暫停五秒後再繼續往下執行

原碼:
Order := numtostr(DATE,0);
Da:=numtostr(DATE,0);
<%
'on error resume next
WScript.Sleep(5000)'我如何暫停五秒後再繼續往下執行底下程式
Dim fso, MyFile
Order = FFL.VarData("Order")
Da = FFL.VarData("Da")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile= fso.CreateTextFile("R:\ Da.txt", True)
MyFile.WriteLine(Order)
MyFile.Close
'err.clear
%>

C;

WScript.Sleep(5000)
好像只能暫停外部程序
VBS仍會一氣執行完畢並不受WScript.Sleep(5000)的影響
我需如何才能延遲VBS本身的程式執行
或是奇狐本身如何延遲五秒後才執行<%......%>
盤後用喔

__________________

就是發蓊梨(ㄛㄥˇ ㄌㄞˊ) 程式交易網站
[教學]指標公式及程式交易系統撰寫 [代工]

學會指標策略程式化的撰寫,將可讓你不再盲目投下辛苦賺來的血汗錢
要知道交易的策略或交易的模式長期執行下確實可獲利
交易才有意義的.否則寧可不交易

由 cgjj 在 2013-01-02 10:14 發表:

回覆: 如何暫停五秒後再繼續往下執行

引用:
最初由 hwyhon 發表
原碼:
Order := numtostr(DATE,0);
Da:=numtostr(DATE,0);
<%
'on error resume next
WScript.Sleep(5000)'我如何暫停五秒後再繼續往下執行底下程式
Dim fso, MyFile
Order = FFL.VarData("Order")
Da = FFL.VarData("Da")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile= fso.CreateTextFile("R:\ Da.txt", True)
MyFile.WriteLine(Order)
MyFile.Close
'err.clear
%>

C;
WScript.Sleep(5000)
好像只能暫停外部程序
VBS仍會一氣執行完畢並不受WScript.Sleep(5000)的影響
我需如何才能延遲VBS本身的程式執行
或是奇狐本身如何延遲五秒後才執行<%......%>
盤後用喔

奇狐是算完後一次輸出所有結果於畫面
若您是要在 vbscript 中去 delay 5秒

那麼當公式被觸發計算, 計算一輪所需的時間
至少需要五秒以上( 因為中間被 delay5 秒 )

在 vbscript 中, 您可運用迴圈加計數器, 來做 delay
以下為 vbscript 程式, delay 五秒的範例

原碼:StartTime = Timer
do
  EndTime = Timer
  UseTime = EndTime + (EndTime<StartTime)*86400 - StartTime
loop while UseTime<5

絕大多數的運用是不需要去 delay 的
若無特殊需求, 不建議去套用它
因為其會造成盤中 delay, 每次觸發都會 delay 五秒
且 delay 可能會導致無回應, 進而引發軟體當掉

由 hwyhon 在 2013-01-02 10:22 發表:

謝謝版主
我下午再試看看是否可達成我要的效果

全部時間均為台灣時間, 現在時間為04:08

在這個頁面顯示本主題全部的 3 個文章