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

奇狐社區論壇 : Powered by vBulletin version 2.3.0

奇狐社區論壇 > 指標公式 > 問題交流 > vbs語法請教

上一主題下一主題

作者

主題

hwyhon
資深會員

註冊日期: Sep 2004
來　　自: 台中
文章數量: 332

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增天加時就換行紀錄寫入
謝謝
感恩

__________________

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

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

向版主報告此篇 |

2010-09-23 11:43

cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18197

回覆: 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 的詳細說明

向版主報告此篇 |

2010-09-23 11:56