 |
chiejc
初級會員
註冊日期: Aug 2009
來 自: 台南市
文章數量: 10 |
 [問題] 沒有輸出文字檔
 最近寫了一個交易系統
....寫著寫著..就寫到了...買賣訊號的部份
ENTERLONG: 條件A; {多頭買入}
EXITLONG: 條件B; {多頭賣出}
...又寫著寫著...改了改網友的寫檔程式..
//寫檔
B1:=Barslast(條件A);
B2:=Barslast(條件B);
PO:=if(B1<B2,'1','-1');
PO:=if(OPENMINUTES(TIME)<=20 or OPENMINUTES(TIME)>=280 ,'0',PO);
curr:=NUMTOSTR(YEAR,0) + '/' +NUMTOSTR(MONTH,0)+ '/'+NUMTOSTR(DAY,0) + ' '+NUMTOSTR(HOUR,0)+':'+NUMTOSTR(MINUTE,0)+':00 ' + PO + ' ' + NUMTOSTR(C,0); //要寫入的字串
<%
on error resume next
Dim fs, f
curr = FFL.VarData("curr")
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("C:\out.txt", 8, 0)
f.WriteLine(curr)
f.Close
err.clear
%>
...結果 "C:\out.txt" 沒有出現說.. 可否請各位幫忙看看..謝謝喔!!
|
| 最後由 chiejc 在 2011-12-23 17:58 編輯 |
向版主報告此篇 |  |
|
2011-12-23 17:44 |
|
|
| |
|
ccutmis
中級會員
註冊日期: Dec 2009
來 自:
文章數量: 88 |
|
回覆: [問題] 沒有輸出文字檔
引用:
最初由 chiejc 發表
最近寫了一個交易系統
....寫著寫著..就寫到了...買賣訊號的部份
ENTERLONG: 條件A; {多頭買入}
EXITLONG: 條件B; {多頭賣出}
...又寫著寫著...改了改網友的寫檔程式..
//寫檔
B1:=Barslast(條件A);
B2:=Barslast(條件B);
PO:=if(B1<B2,'1','-1');
PO:=if(OPENMINUTES(TIME)<=20 or OPENMINUTES(TIME)>=280 ,'0',PO);
curr:=NUMTOSTR(YEAR,0) + '/' +NUMTOSTR(MONTH,0)+ '/'+NUMTOSTR(DAY,0) + ' '+NUMTOSTR(HOUR,0)+':'+NUMTOSTR(MINUTE,0)+':00 ' + PO + ' ' + NUMTOSTR(C,0); //要寫入的字串
<%
on error resume next
Dim fs, f
curr = FFL.VarData("curr")
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("C:\out.txt", 8, 0)
f.WriteLine(curr)
f.Close
err.clear
%>
...結果 "C:\out.txt" 沒有出現說..可否請各位幫忙看看..謝謝喔!!
請問您是參考這篇文章
http://www.chiefox.com.tw/bbs/showt...A4%E5%A6r%C0%C9
裡面 LO123 君所分享的範例嗎?
如果是的話，請先確認:
(1)是否有設定在特定週期執行，例如: 5分鐘
(2)作業系統若為WIN7的話，VBS無法建立文件的話，有可能是權限的問題，可以改存到C槽裡面的目錄(例如 C: \outTxt\ 目錄要自行新建)，不要直接存在C槽底下。
在指標裡面存取文字檔請小心謹慎，請多利用搜尋功能。
以上僅供參考~
|
|
向版主報告此篇 | |
|
|
2011-12-23 19:12 |
|
|
| |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|
Thank you!!
祝福好心人們平平安安!!
