奇狐社區論壇 - 如何輸出兩個商品的交易訊號到同一文字檔

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

奇狐社區論壇 > 指標公式 > 問題交流 > 如何輸出兩個商品的交易訊號到同一文字檔

上一主題下一主題

作者

主題

一心不亂
資深會員

註冊日期: Apr 2014
來　　自:
文章數量: 118

如何輸出兩個商品的交易訊號到同一文字檔

請問板主

buy:=if(enterlong and 1,1,0);
sell:=if(exitlong and 1,1,0);
name:=marketname;
Position := 0;
Position := if( buy, 1, Position );
Position := if( sell,-1, Position );
Order:=name + ' ' + numtostr( year,0 ) + '/' + numtostr( month,0 ) + '/' + numtostr( day,0 ) + ' ' + numtostr(currenttime,0 ) + ';' + numtostr( Position,0 ) + ';';

<%
On Error Resume Next
Dim fso, MyFile
Order = FFL.VarData("Order")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("C:\WAV\order.txt", True)
MyFile.WriteLine (Order)
MyFile.Close
Err.Clear
%>

我同時開兩個視窗監看兩種商品時，兩商品都有打開交易系統，可是文字檔只有顯示一個商品的訊號

請問如何顯示多個交易訊號在同一文字檔? 例如我開3個商品或四個商品時，文字檔可以都顯示出來所有交易訊號?

向版主報告此篇 |

2017-11-03 00:01

cgjj
總版主

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

回覆: 如何輸出兩個商品的交易訊號到同一文字檔

引用:
最初由一心不亂發表
請問板主

buy:=if(enterlong and 1,1,0);
sell:=if(exitlong and 1,1,0);
name:=marketname;
Position := 0;
Position := if( buy, 1, Position );
Position := if( sell,-1, Position );
Order:=name + ' ' + numtostr( year,0 ) + '/' + numtostr( month,0 ) + '/' + numtostr( day,0 ) + ' ' + numtostr(currenttime,0 ) + ';' + numtostr( Position,0 ) + ';';

<%
On Error Resume Next
Dim fso, MyFile
Order = FFL.VarData("Order")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("C:\WAV\order.txt", True)
MyFile.WriteLine (Order)
MyFile.Close
Err.Clear
%>

我同時開兩個視窗監看兩種商品時，兩商品都有打開交易系統，可是文字檔只有顯示一個商品的訊號

請問如何顯示多個交易訊號在同一文字檔? 例如我開3個商品或四個商品時，文字檔可以都顯示出來所有交易訊號?

這個問題跟奇狐本身沒有關係，是您嵌入的 VBScript 程式問題

關鍵在於 VBScript 這行
Set MyFile = fso.CreateTextFile("C:\WAV\order.txt", True)

不應該用 CreateTextFile 函數
需改用 OpenTextFile 函數
有關 OpenTextFile 用法，請自行查閱

向版主報告此篇 |

2017-11-03 09:23

全部時間均為台灣時間, 現在時間為09:13

上一主題下一主題

顯示可列印版本 |

訂閱此主題

論壇跳轉:

主題評分:

論壇規定:

你不可以發表新主題
你不可以回覆文章
你不可以上傳附件
你不可以編輯自己的文章

HTML語法禁止
vB 語法核准
表情符號核准
貼圖語法[IMG]核准

本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。