奇狐社區論壇 - vbs語法請教

奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- vbs語法請教 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=14337)

由 hwyhon 在 2010-09-23 11:43 發表:

vbs語法請教

Order := numtostr(DATE,0) + ',' +numtostr(O,2)+ ','+numtostr(H,2)+','+numtostr(L,2)+','+numtostr(C,2)+','+ numtostr(V,2);
<%
on error resume next
Dim fso, MyFile
Order = FFL.VarData("Order")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile= fso.CreateTextFile("R:\TEMP\Da.txt", True)
MyFile.WriteLine(Order)
MyFile.Close
err.clear
%>
此例只能紀錄一天(第一行)
請教如何將DATE增天加時就換行紀錄寫入
謝謝
感恩

__________________

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

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

由 cgjj 在 2010-09-23 11:56 發表:

回覆: vbs語法請教

引用:
最初由 hwyhon 發表
Order := numtostr(DATE,0) + ',' +numtostr(O,2)+ ','+numtostr(H,2)+','+numtostr(L,2)+','+numtostr(C,2)+','+ numtostr(V,2);
<%
on error resume next
Dim fso, MyFile
Order = FFL.VarData("Order")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile= fso.CreateTextFile("R:\TEMP\Da.txt", True)
MyFile.WriteLine(Order)
MyFile.Close
err.clear
%>
此例只能紀錄一天(第一行)
請教如何將DATE增天加時就換行紀錄寫入
謝謝
感恩

FileSystemObject 物件改用 OpenTextFile 去存取, 就可接續檔尾寫
OpenTextFile (filename, iomode, ....)
filename 為檔名
iomode 為讀寫模式, 將其設為8 代表開啟檔案，並寫入檔案的結尾處

技術細節可參考微軟 Windows Script 的詳細說明

由 hwyhon 在 2010-09-23 12:29 發表:

謝謝

全部時間均為台灣時間, 現在時間為21:31

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