最新更新主题

月度关注热点

求助

字体: 小 中 大 | 打印 发表于: 2007-11-27 17:33    作者: qxz    来源: 福建飞狐社区门户

用下面公式做选股排序.每个版块应只有一个股票排序第一的.可通过排序每个股票都显示1.啥原因，请老师帮忙.如图：

BK:=STRLEFT(BLKNAME,STRFIND(BLKNAME,',',1)-1);//第一个板块
BKs:=STKCOUNT(Bk);
variable:DM[BKs]='';
for k=1 to BKs do  begin
   码:=STKFROMBLK(BK,k);
   Dm[k]:=STRRIGHT(码,6);
if BKs>=1 then p1:STKINDI(Dm[1],'P.p',0,-1);
if BKs>=2 then p2:STKINDI(Dm[2],'P.p',0,-1);
if BKs>=3 then p3:STKINDI(Dm[3],'P.p',0,-1);
if BKs>=4 then p4:STKINDI(Dm[4],'P.p',0,-1);
end;
zx:MIN(MIN(p1,p2),MIN(p3,p4)),Color40FF00,LINETHICK0;
zd:max(max(p1,p2),max(p3,p4)),ColorFFFF00,LINETHICK0;
xg:p3=zd;

[ 本帖最后由 qxz 于 2007-11-27 20:00 编辑 ]


ttt.JPG


我也来说两句 查看全部回复

最新回复

  • wanghuo (2007-11-27 21:00:48)

    股票代码可能不能比较大小吧。

  • qxz (2007-11-28 05:21:22)

    求助
    用下面公式做选股排序.每个版块应只有一个股票排序第一的.可通过排序每个股票都显示1.啥原因，请老师帮忙.如图：

    BK:=STRLEFT(BLKNAME,STRFIND(BLKNAME,',',1)-1);//第一个板块
    BKs:=STKCOUNT(Bk);
    variableM[BKs]='';
    for k=1 to BKs do  begin
       码:=STKFROMBLK(BK,k);
       Dm[k]:=STRRIGHT(码,6);
    if BKs>=1 then p1:STKINDI(Dm[1],'P.p',0,-1);
    if BKs>=2 then p2:STKINDI(Dm[2],'P.p',0,-1);
    if BKs>=3 then p3:STKINDI(Dm[3],'P.p',0,-1);
    if BKs>=4 then p4:STKINDI(Dm[4],'P.p',0,-1);
    end;
    zx:MIN(MIN(p1,p2),MIN(p3,p4)),Color40FF00,LINETHICK0;
    zd:max(max(p1,p2),max(p3,p4)),ColorFFFF00,LINETHICK0;
    xg:p3=zd;


    ttt.JPG

  • joneslee (2007-11-28 18:39:59)

    xg:p3=zd;
    永远都是成立的。所以都是1，当然也就不能排序了。

  • qxz (2007-11-28 20:26:45)

    QUOTE:

    原帖由 joneslee 于 2007-11-28 18:39 发表
    xg:p3=zd;
    永远都是成立的。所以都是1，当然也就不能排序了。
    有办法解决.请帮忙.
查看全部回复 我也来说两句