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('1.',d1+1);
WZ2:=F10FIND('2.',WZ1+1);
WZ3:=F10FIND('3.',WZ2+1);
WZ4:=F10FIND('4.',WZ3+1);
WZ5:=F10FIND('5.',WZ4+1);
WZ6:=F10FIND('6.',WZ5+1);
WZ7:=F10FIND('7.',WZ6+1);
WZ8:=F10FIND('8.',WZ7+1);
WZ9:=F10FIND('9.',WZ8+1);
WZ10:=F10FIND('10.',WZ9+1);
股东1:strtonum(f10text(wz1+44,6));
股东2:strtonum(f10text(wz2+44,6));
股东3:strtonum(f10text(wz3+44,6));
股东4:strtonum(f10text(wz4+44,6));
股东5:strtonum(f10text(wz5+44,6));
股东6:strtonum(f10text(wz6+44,6));
股东7:strtonum(f10text(wz7+44,6));
股东8:strtonum(f10text(wz8+44,6));
股东9:strtonum(f10text(wz9+44,6));
股东10:strtonum(f10text(wz10+44,6));
非流通: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);
END;本网测试过，竟然没信号，可能是飞狐的F10的格式不对 |
