怎么统计亏损持仓品种数量

zqs

我想实现后台交易时，轮询到每个品种每次执行开仓命令前，先查询一下持仓品种中亏损品种的数量，数量超过5个后就不再开新品种。 可以帮忙写一下查询统计持仓品种亏损数量的示范吗？

技术009

有锁仓情况 怎么处理？多空汇总？

zqs

不区分锁仓，只要是查询时浮亏就统计进去

技术009

[PEL] 复制代码

TH:=THOLDCOUNT('');
TEMP_STR:='';//保存品种代码集合
j:=0;
FOR I=1 TO TH do
BEGIN
HLABEL:= THOLDINDEXLABEL(I,'');
//判断当前代码集合中是否已经存在，不存在则进行统计。存在则不进入统计
if STRFIND( TEMP_STR, ','&HLABEL,1 )=0 then
begin
//将不在代码集合中的品种添加到代码集合中。
TEMP_STR:=STRCAT( TEMP_STR, ','&HLABEL );

if TBUYHOLDINGEX('',HLABEL,1)>0 and (c-TAVGENTERPRICEEX2('',HLABEL,0))<0 then j:=j+1;
if TSELLHOLDINGEX('',HLABEL,1)>0 and (TAVGENTERPRICEEX2('',HLABEL,1)-c)<0 then j:=j+1;

end
end    

result:j;

zqs

没理解TEMP_STR的用意，TEMP_STR被赋值空字符串，STRFIND( TEMP_STR, ','&HLABEL,1 ) 应该查询不到内容吧？ 另外一个疑问：HLABEL:= THOLDINDEXLABEL(I,'');  是不是直接就能返回持仓的品种代码，已经返回持仓品种代码，什么情况下还需要判断代码集合中是否已经存在？

技术009

空字符本来就查不到啊，查不到 说明这个品种之前没处理过，然后就进入了后续操作流程。再后面 不是有对这个字符串的二次赋值的嘛。

你注意这个循环 是按照账户栏持仓顺序去读取，你多和空不是算在一行的。并且读取时候 是只能读取到品种代码 ，无法区分多空，因此  只能在第一次读取时候 直接判断多空盈亏情况，后续再读取到这个品种直接就过滤掉了。

zqs

跟我理解的还是有出入，for循环 ，不应该是从1到I 每个序号都只执行一次吗？多单就进入多单判断，空单就进入空单判断，为什么会存在重复第二次取读取一个品种的情况？

技术006

存在今老分成2列的情况。

zqs

你好，我按这段代码模拟盘观察了一上午，发现返回的数据不对，好像只统计到了今仓，老仓亏损品种是不是没统计进去？

技术009

区分不了今老仓。 TAVGENTERPRICEEX2  取值时候根本不区分今老的，是汇总的持仓成本。