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

如何寫資料到檔案內 ?

請問奇狐可以寫資料到一文字檔案上嗎 ?

如果可以是否可以寫個範例 ? 或是要用那一個指令 ?


謝謝!

回覆: 如何寫資料到檔案內 ?

....刪

謝謝高手回覆,感激不盡!
我去試試看.

謝謝分享，借個版面問個問題：
長久以來運用上述方法
將數據存寫到檔案內，供下單機讀取，但一段時間後都會出現「syspower執行vbs錯誤」的視窗。
不知有無其他朋友同我有一樣的問題?
請教版主們是否能解惑，謝謝。

__________________
永遠學習、學習永遠
善為傳家寶
忍為積德門

再接再厲

謝謝喔
我昨天去搜索一下有關vbs教學的網站
<%
Dim fso, MyFile1, MyFile2
order1 = FFL.VarData("order1")
order2 = FFL.VarData("order2")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile1= fso.CreateTextFile("c:\aaa\order1.txt", True) '路徑自行更改
Set MyFile2= fso.CreateTextFile("c:\bbb\order2.txt", True) '路徑自行更改

MyFile1.WriteLine(order1)
MyFile2.WriteLine(order2)
MyFile1.Close
MyFile2.Close
%>
我對vbs完全沒學過，但比對了教學網的說明，以上的vbs程式碼大概說是，建立一個可開啟寫入、讀取的文字檔，且最後關閉此文件。

而我想奇狐與下單機在盤中運作時，奇狐負責寫入一個多空訊號的文字檔，而下單機負責讀取存放在硬碟中的這個文字檔判讀來下單。

所以流程以下：奇狐創建1文字檔→寫入多空訊號→關閉此文件。
下單機→打開此文件→讀取多空訊號→(是否有關閉文件的動作我不知)
由此得知，奇狐與下單機都在開啟、讀取、關閉這個訊號文字檔，所以奇狐盤中出現的「syspower執行vbs錯誤」的視窗，是否就是奇狐與下單機兩個軟体「剛好同時搶讀寫」這個文字檔，而造成的?這是我的猜想。

而就以上的猜想今天我把奇狐內vbs程式碼的MyFile1.Close
MyFile2.Close 拿掉
為何?因我去vbs學習網得知，那是「關閉文字檔」的語法，我想是否下單機在讀文字檔時，剛好奇狐在「關閉此文字檔」所以碰觸了造成一個要讀一個不給讀的狀況。
而今天我就用這方式去跑，盤中有訊號都能正常的讓下單機及奇狐正常運作，檢視創建出來的文字檔內容是有存在的，且也有最新的多空訊號。

以上作法用意是，奇狐創建寫入文字檔後(就不關閉此文字檔了)，所以下單機隨時可以讀到文字檔來下單。

今天是用這方法盤中真實測試的第一天，目前一切正常中。
以上分享。

__________________
永遠學習、學習永遠
善為傳家寶
忍為積德門

__________________
偶而是不是也感覺有些老
像個大人般的戀愛
有時心情糟
請你相信我在你身邊別忘了

測試報告：
先前把MyFile1.Close 和MyFile2.Close 拿掉的作法還是不行，且會有資料遣漏的問題。
目前去搜索及學習一些vb的教學資料，(應該)有解了。

在實作自動程式交易的2年多來，這「syspower執行vbs出錯」的問題，一直困擾著我，雖然有運用autoit等軟体寫自動處理的除錯流程，但對無法值守卻要自動程式交易的我，實在是一種心理負擔，因為這問題會導至奇狐當機，進而造成有一定的風險性。

目前自動程式交易者，運用奇狐與自動下單機的朋友，應該比用HTS、TS配合自動下單機的朋友少很多，但我還是認為奇狐的功能性與程式寫作性較為靈活好用，也可能是我用久的關係吧。

我認為奇狐的用戶數在往後一定會增加，且其功能性的擴展也會有一定的增進空間，且在程式交易愈來愈趨大眾化的現今，往後用奇狐配合自動下單機來實作自動交易的人數一定會有所增加，所以針對這「syspower執行vbs出錯」的問題一定也會碰到，或者說它存在有一定的未知風險性，就我本人而言，我有3部下單電腦，且用的xp系統都為正版軟体，又系統環境很單純，不會去安裝其他不需要的軟体，但卻都會有執行vbs出錯的問題。

但，有關寫入奇狐內的vbs程式碼，一再的確認是沒有錯的，且其他朋友都沒有這樣的問題，而我卻一連3台不同的電腦都會產生，但在我搜索一些教學網站後的資訊，「應該是有解了」；待我整理一下並再測試一段時日，我會在論譠內發表處理方法，期造福所有運用奇狐來自動程式下單的朋友們，在無人值守自動程式交易的過程裡又多了一份安心。

引用:

---

最初由 阿酷 發表
謝謝喔
我昨天去搜索一下有關vbs教學的網站
<%
Dim fso, MyFile1, MyFile2
order1 = FFL.VarData("order1")
order2 = FFL.VarData("order2")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile1= fso.CreateTextFile("c:\aaa\order1.txt", True) '路徑自行更改
Set MyFile2= fso.CreateTextFile("c:\bbb\order2.txt", True) '路徑自行更改

MyFile1.WriteLine(order1)
MyFile2.WriteLine(order2)
MyFile1.Close
MyFile2.Close
%>
我對vbs完全沒學過，但比對了教學網的說明，以上的vbs程式碼大概說是，建立一個可開啟寫入、讀取的文字檔，且最後關閉此文件。

而我想奇狐與下單機在盤中運作時，奇狐負責寫入一個多空訊號的文字檔，而下單機負責讀取存放在硬碟中的這個文字檔判讀來下單。

所以流程以下：奇狐創建1文字檔→寫入多空訊號→關閉此文件。
下單機→打開此文件→讀取多空訊號→(是否有關閉文件的動作我不知)
由此得知，奇狐與下單機都在開啟、讀取、關閉這個訊號文字檔，所以奇狐盤中出現的「syspower執行vbs錯誤」的視窗，是否就是奇狐與下單機兩個軟体「剛好同時搶讀寫」這個文字檔，而造成的?這是我的猜想。

而就以上的猜想今天我把奇狐內vbs程式碼的MyFile1.Close
MyFile2.Close 拿掉
為何?因我去vbs學習網得知，那是「關閉文字檔」的語法，我想是否下單機在讀文字檔時，剛好奇狐在「關閉此文字檔」所以碰觸了造成一個要讀一個不給讀的狀況。
而今天我就用這方式去跑，盤中有訊號都能正常的讓下單機及奇狐正常運作，檢視創建出來的文字檔內容是有存在的，且也有最新的多空訊號。

以上作法用意是，奇狐創建寫入文字檔後(就不關閉此文字檔了)，所以下單機隨時可以讀到文字檔來下單。

今天是用這方法盤中真實測試的第一天，目前一切正常中。
以上分享。

---

__________________
永遠學習、學習永遠
善為傳家寶
忍為積德門

引用:

---

最初由 阿酷 發表

這「syspower執行vbs出錯」的問題，一直困擾著我，雖然有運用autoit等軟体寫自動處理的除錯流程

---

__________________
偶而是不是也感覺有些老
像個大人般的戀愛
有時心情糟
請你相信我在你身邊別忘了

謝謝喔，還請賜教。

引用:

---

最初由 alpha 發表
那不是奇狐的問題, 是因為你沒加濾網

這問題一定會發生在快市中

之前有個人用 Excel + AutoIT 就遇到跟妳一樣的情形

改個幾個小地方, 就可以 ok 了;

---

__________________
永遠學習、學習永遠
善為傳家寶
忍為積德門

引用:

---

最初由 alpha 發表
那不是奇狐的問題, 是因為你沒加濾網

這問題一定會發生在快市中

之前有個人用 Excel + AutoIT 就遇到跟妳一樣的情形

改個幾個小地方, 就可以 ok 了;

---

針對執行vbs出錯

個人以1個多月，800多筆實單，實驗我的解決方案，均能正常且穩定的完成。
解決方法發表在 朋友的「作手bbs資研站」，因這是否能張貼網站連結，小弟不知，還請朋友們自已在奇摩搜索一下。
祝各位投資順利、一生均安。

__________________
永遠學習、學習永遠
善為傳家寶
忍為積德門

可否請各位大大幫我看一下
這是參考阿酷大說的方式寫的
可是奇狐軟體就是不接受
說是VBS有問題

另外
我對於輸出文字檔的部份
還不是很了解
有人可以幫我改一下嗎？

感謝不盡

-----------------------------------------------------------------
IF DATATYPE<>2 THEN BEGIN
EXIT;
End;

B:MA(C,30);
A:=IF(CROSS(REF(C,1),REF(MA(C,30),1)),1,0);
VAR1:=IF(CROSS(REF(MA(C,30),1),REF(C,1)),-1,0);
VAR2:=IF(A,A,IF(VAR1<0,-1,0));
VAR3:=BARSLAST(VAR2);
VAR4:=REF(VAR2,VAR3);
ENTERLONG:=CROSS(VAR4,0);
EXITLONG:=CROSS(0,VAR4);
DRAWICON(CROSS(VAR4,0),L,4);
DRAWICON(CROSS(0,VAR4),H,5);

MarketPosition:=0;
MarketPosition:=IF(ENTERLONG>0,1,MarketPosition);
MarketPosition:=IF(EXITLONG<0,-1,MarketPosition);
cur_cmd:=numtostr(year,0)+'/'+numtostr(month,0)+'/'+numtostr(day,0)+' '+numtostr(hour,0)+':'+numtostr(minute,0)+':0'+numtostr(MarketPosition,0)+' ';

<%
on error resume next
Dim fso, MyFile
cur_cmd=FFL.VarData("cur_cmd")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreatTextFile("c:\Temp\cur_cmd.txt", True)
MyFile.WriteLine(cur_cmd)
MyFile.Close
err.clear
%>
-------------------------------------------------------------

[QUOTE]最初由 king220.shih 發表
[B]可否請各位大大幫我看一下
這是參考阿酷大說的方式寫的
可是奇狐軟體就是不接受
說是VBS有問題

另外
我對於輸出文字檔的部份
還不是很了解
有人可以幫我改一下嗎？

感謝不盡

-----------------------------------------------------------------
偶剛寫自動交易也是發生VBS出錯的問題，之後也複製了 阿酷大大的寫法才決解的，深受感召。
您倉位的編輯以及輸出文字檔，修改了一小部份，這樣問題應決解了，試試看吧！

IF DATATYPE<>2 THEN BEGIN
EXIT;
End;

B:MA(C,30);
A:=IF(CROSS(REF(C,1),REF(MA(C,30),1)),1,0);
VAR1:=IF(CROSS(REF(MA(C,30),1),REF(C,1)),-1,0);
VAR2:=IF(A,A,IF(VAR1<0,-1,0));
VAR3:=BARSLAST(VAR2);
VAR4:=REF(VAR2,VAR3);
多:=CROSS(VAR4,0);
空:=CROSS(0,VAR4);
DRAWICON(多,L,4),PXDN10;
DRAWICON(空,H,5),PXUP40;
A01:=多-空;
A01:=ref(A01,BARSLAST(A01<>0));
　倉位:A01,COLORWHITE,LINETHICK0;

LongCondition := IF(A01=1,1,0);
ShortCondition := IF(A01=-1,-1,0);
MarketPosition := 0 ;
MarketPosition := if(LongCondition,1,MarketPosition);
MarketPosition := if(ShortCondition,-1,MarketPosition);
cur_cmd:=numtostr(year,0) + '/' +numtostr(month,0)+ '/'+numtostr(day,0) + ' ' +numtostr(hour,0)+':'+numtostr(minute,0)+':00,'+numtostr(MarketPosition,0)+','+ numtostr(c,0)+'';
<%
on error resume next
Dim fso, MyFile
cur_cmd= FFL.VarData("cur_cmd")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("C:\cur_cmd.txt", True)
MyFile.WriteLine(cur_cmd)
MyFile.Close
err.clear
%>

輸出文字檔時最好存在C槽硬碟底下

king220.shih您好：
是不是您輸出文字檔的目錄沒有先建立呢?

Set MyFile = fso.CreatTextFile("c:\Temp\cur_cmd.txt", True)
上例是輸出文字檔在C槽的Temp目錄底下，需要注意的是，您要事先把Temp這個資料夾建立。
以上祝均安。

__________________
永遠學習、學習永遠
善為傳家寶
忍為積德門