奇狐社區論壇
在這個頁面顯示本主題全部的 2 個文章

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


由 一心不亂 在 2017-11-03 00:01 發表:

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

請問板主

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個商品或四個商品時,文字檔可以都顯示出來所有交易訊號?


由 cgjj 在 2017-11-03 09:23 發表:

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

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

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 用法,請自行查閱


全部時間均為台灣時間, 現在時間為19:19
在這個頁面顯示本主題全部的 2 個文章


Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.

簡愛洋行 製作 Copyright 2003-. All Rights Reserved.