奇狐社區論壇 (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=13345)

連線後無法輸出訊號

PO:=IF((B1>DD and s1>DD) {or OPENMINUTES(TIME)>=295} ,0,PO); //今未有訊號不交易, 1:40出場
curr := NUMTOSTR(YEAR,0) + '/' +NUMTOSTR(MONTH,0)+ '/'+NUMTOSTR(DAY,0) + ' '+NUMTOSTR(HOUR,0)+':'+NUMTOSTR(MINUTE,0)+':00 ' + NUMTOSTR( PO,0 ) +' ' + NUMTOSTR(CLOSE,0);

<%
on error resume next
Dim fso, MyFile
curr = FFL.VarData("curr")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile= fso.CreateTextFile("R:\curr.txt", True)
MyFile.WriteLine(curr)
MyFile.Close
err.clear
%>

沒連線時可以將訊號輸出到檔案curr.txt
但是只要一連線
日期、時間、價格都看到，就是PO就不見了？
請問是怎麼了？

回覆: 連線後無法輸出訊號

引用:

---

最初由 estockcat 發表
PO:=IF((B1>DD and s1>DD) {or OPENMINUTES(TIME)>=295} ,0,PO); //今未有訊號不交易, 1:40出場
curr := NUMTOSTR(YEAR,0) + '/' +NUMTOSTR(MONTH,0)+ '/'+NUMTOSTR(DAY,0) + ' '+NUMTOSTR(HOUR,0)+':'+NUMTOSTR(MINUTE,0)+':00 ' + NUMTOSTR( PO,0 ) +' ' + NUMTOSTR(CLOSE,0);

<%
on error resume next
Dim fso, MyFile
curr = FFL.VarData("curr")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile= fso.CreateTextFile("R:\curr.txt", True)
MyFile.WriteLine(curr)
MyFile.Close
err.clear
%>

沒連線時可以將訊號輸出到檔案curr.txt
但是只要一連線
日期、時間、價格都看到，就是PO就不見了？
請問是怎麼了？

---

神奇的版大，感謝∼
果然是調入計算的K線數過少的原因。