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

感謝LO123大大和阿酷大大的回應
看完改寫的範例之後，好像有點啟發了！
感恩阿！
THANKS！

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
%>

請問若加上停利:=30 ; 停損=15; 強制出場:=time>134000;等條件要輸出文字檔則從A01到倉位及MarketPosition這段.又該如何寫？謝謝！從A01到倉位及MarketPosition這段

輸出文字檔在這個範例應該很清楚。
至於你要的東西，可能就要自己想。
依據總版主給的範例，然後自己去思
考，其實並不難。