- 精华
- 3
- 在线时间
- 196 小时
- UID
- 2459
- 积分
- 14058
- 帖子
- 179
- 阅读权限
- 150
- 注册时间
- 2008-9-26
- 最后登录
- 2015-12-3
- 精华
- 3
- UID
- 2459
- 积分
- 14058
- 帖子
- 179
- 主题
- 19
- 阅读权限
- 150
- 注册时间
- 2008-9-26
- 最后登录
- 2015-12-3
|
发表于 2010-2-22 17:06:40
|显示全部楼层
NND,终于调试通过了,新代码如下,供各位朋友参考- Vars
- Numeric i;
- Numeric nCount;
- Numeric nStatus;
- Numeric nBuyOrSell;
- Numeric nEntryFlag;
- Numeric OrderFilledPrice;
- Numeric OrderFilledLot;
- Numeric j(0);//买开序号
- Numeric m(0);//买平序号
- Numeric n(0);//卖开序号
- Numeric p(0);//买平序号
- String myFileName;
- Numeric tmp1;
- Begin
- tmp1=GetGlobalVar(0);
- If (BarStatus==0 And tmp1==InvalidNumeric) tmp1=0;
- If (BarStatus==2 And A_AccountID!="")
- {
- myFileName="C:\\tb_"+FormulaName+"_"+DateToString(date)+".txt";
- nCount = A_GetOrderCount();
- Commentary("nCount:"+Text(nCount));
- FileAppend(myFileName,"If (nCount>0)前");
- If (tmp1==0 And nCount>0)
- {
- FileAppend(myFileName,"for前");
- For i = 1 To nCount
- {
- FileAppend(myFileName,"第"+Text(i)+"次循环"+"for第一句");
- nStatus = A_OrderStatus(i);
- nBuyOrSell = A_OrderBuyOrSell(i);
- nEntryFlag = A_OrderEntryOrExit(i);
- OrderFilledLot = A_OrderFilledLot(i);
- OrderFilledPrice = A_OrderFilledPrice(i);
- If (nStatus==Enum_Filled And nBuyOrSell==Enum_Buy And nEntryFlag==Enum_Entry)
- {
- j=j+1;
- FileAppend(myFileName,"第"+Text(j)+"笔买开单"+" OrderFilledLot:"+Text(OrderFilledLot)+" OrderFilledPrice:"+Text(OrderFilledPrice));
- }
- If (nStatus==Enum_Filled And nBuyOrSell==Enum_Sell And nEntryFlag==Enum_ExitToday)
- {
- m=m+1;
- FileAppend(myFileName,"第"+Text(m)+"笔卖平今单"+" OrderFilledLot:"+Text(OrderFilledLot)+" OrderFilledPrice:"+Text(OrderFilledPrice));
- }
- If (nStatus==Enum_Filled And nBuyOrSell==Enum_Sell And nEntryFlag==Enum_Entry)
- {
- n=n+1;
- FileAppend(myFileName,"第"+Text(n)+"笔卖开单"+" OrderFilledLot:"+Text(OrderFilledLot)+" OrderFilledPrice:"+Text(OrderFilledPrice));
- }
- If (nStatus==Enum_Filled And nBuyOrSell==Enum_Buy And nEntryFlag==Enum_ExitToday)
- {
- p=p+1;
- FileAppend(myFileName,"第"+Text(j)+"笔买平今单"+" OrderFilledLot:"+Text(OrderFilledLot)+" OrderFilledPrice:"+Text(OrderFilledPrice));
- }
- FileAppend(myFileName,"第"+Text(i)+"次循环"+"for最后一句");
- tmp1=1;
- }
- FileAppend(myFileName,"for后");
- }
- }
- SetGlobalVar(0,tmp1);
- Commentary("tmp1:"+Text(tmp1));
- End
复制代码 |
|