[求助]跟单问题 (文华财经wh9)

Vars

StringArray AccountID[9] ;//跟单主账号

StringArray GetRspContract[9];//合约名称

NumericArray GetRspNum[9];//成交回报个数

NumericArray GetRspVol[9];//成交手数

NumericArray GetRspPrice[9];//成交价格

NumericArray GetBuyOrSell[9];//买卖方向

NumericArray GetEntryOrExit[9];//开平方向

Numeric  i;

Numeric Arrsize;//数组长度

Begin

AccountID[0]= "119670xxxx";

AccountID[1]= "111820xxxx";

AccountID[2]= "119670xxxx";

AccountID[3]= "11xxxxxxxx";

AccountID[4]= "11xxxxxxxx";

AccountID[5]= "11xxxxxxxx";

AccountID[6]= "11xxxxxxxx";

AccountID[7]= "11xxxxxxxx";

AccountID[8]= "xxxxxxxx";

Arrsize = GetStringArraySize(AccountID);

For i = 0 To Arrsize - 1

{

GetRspNum[i]=T_MatchRspNum(AccountID[i]);

GetRspContract[i]=T_GetFrontMatchRspContract(AccountID[i]);

GetRspVol[i]=T_GetFrontMatchRspVol(AccountID[i]);

GetRspPrice[i]=T_GetFrontMatchRspPrice(AccountID[i]);

GetBuyOrSell[i]=T_GetFrontMatchBuyOrSell(AccountID[i]);

GetEntryOrExit[i]=T_GetFrontMatchEntryOrExit(AccountID[i]);

If(GetRspNum[i]>0)//如果成交回报个数大于0

{

 GetRspContract[i].A_SendOrder(IIF(GetBuyOrSell[i]==Enum_Buy,Enum_Sell,Enum_Buy),GetEntryOrExit[i],GetRspVol[i],IIF(GetBuyOrSell[i]==Enum_Buy,GetRspPrice[i]-Price("MinPrice"),GetRspPrice[i]+Price("MinPrice")));//跟单操作

T_PopMatchRsp(AccountID[i]);//删除最早的一个成交回报

}

}

End