// 請注意：請先至「公告設定」之「一鍵搞定」中「註冊-萬用 API 元件」
// 訊號來源格式，請設為：Date Time Current Price
// 輸出文字檔範例 R:\curr.txt

M1:=MA(CLOSE,5);
M2:=MA(CLOSE,10);

M1:=ref(m1,1);
M2:=ref(m2,1);

BB:=CROSS(M1,M2); //買進訊號
SS:=CROSS(M2,M1); //賣出訊號

drawicon(BB,L-15,4); //畫買進訊號
drawicon(SS,H+15,5); //畫賣出訊號

DD:=barslast(DATE<>REF(DATE,1)); //開盤至今K線數
B1:=barslast(bb); //買訊至今K線數
B2:=barslast(ss); //賣訊至今K線數

PO:=if(B1<B2,’1′,’-1′); PO:=if((B1>DD and B2>DD) or OPENMINUTES(TIME)>=280 ,’0′,PO); ; //今未有訊號不交易, 1:25出場
curr := NUMTOSTR(YEAR,0) + ‘/’ +NUMTOSTR(MONTH,0)+ ‘/’+NUMTOSTR(DAY,0) + ‘ ‘+NUMTOSTR(HOUR,0)+’:’+NUMTOSTR(MINUTE,0)+’:00 ‘ +PO +’ ‘ + NUMTOSTR(C,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 %>