飞狐前十名流通股东指标公式
飞狐前十名流通股东指标公式
QSW:=F10FIND('◆ 大股东进出 ◆',1);
jsw:=F10FIND('◆控股股东和实际控制人◆',QSW+1);
d1:=F10FIND('前十名无限售条件股东',QSW+1);
IF QSW>0 AND d1>0 AND jsw>0 THEN BEGIN
zj:=F10FIND('总 计',d1+1);
总计:STRTONUM(F10TEXT(zj+40,10)),LINETHICK;
WZ1:=F10FIND('%',d1+1);
WZ2:=F10FIND('%',WZ1+1);
WZ3:=F10FIND('%',WZ2+1);
WZ4:=F10FIND('%',WZ3+1);
WZ5:=F10FIND('%',WZ4+1);
WZ6:=F10FIND('%',WZ5+1);
WZ7:=F10FIND('%',WZ6+1);
WZ8:=F10FIND('%',WZ7+1);
WZ9:=F10FIND('%',WZ8+1);
WZ10:=F10FIND('%',WZ9+1);
股东1:strtonum(f10text(wz1-5,10));
股东2:strtonum(f10text(wz2-5,10));
股东3:strtonum(f10text(wz3-5,10));
股东4:strtonum(f10text(wz4-5,10)),COLORWHITE;
股东5:strtonum(f10text(wz5-5,6));
股东6:strtonum(f10text(wz6-5,6)),COLORWHITE;
股东7:strtonum(f10text(wz7-5,6)),COLORWHITE;
股东8:strtonum(f10text(wz8-5,6)),COLORWHITE;
股东9:strtonum(f10text(wz9-5,6)),COLORWHITE;
股东10:strtonum(f10text(wz10-5,6)),COLORWHITE;
非流通:if(股东1>5,股东1,0)+if(股东2>5,股东2,0)
+if(股东3>5,股东3,0)+if(股东4>5,股东4,0)
+if(股东5>5,股东5,0)+if(股东6>5,股东6,0)
+if(股东7>5,股东7,0)+if(股东8>5,股东8,0)
+if(股东9>5,股东9,0)+if(股东10>5,股东10,0),COLORCYAN;
END;