港澳F10【十大流通股东】
C/C++ www.zegu.cn 择股网提供 Code复制内容到剪贴板
- 港澳资讯 灵通V5.0
- /////////////////////////////////////
- Q0:=f10find('☆股东研究☆',1);
- Q1:=f10find('【2.股东变化】',Q0);
- Q:=f10find('十大流通股东情况',Q1);
- Z:=f10find('截至日期:2009-03-31 ',Q+100);
- W_B:=F10TEXT(Q-22,Z-Q);
- <%
- H_W=ffl.vardata("W_B")
- H_W=replace(H_W,vbCrLf,"\n")
- ffl.vardata("W_B")=H_W
- %>
- DRAWTEXTEX(1,0,10,-3,W_b);
- T1:=STRFIND(W_B,'合计持有',100)+8;
- T2:=STRFIND(W_B,'合计持有',T1+100)+8;
- C2:=STRFIND(W_B,'十大流通股东情况',T1)-22;
- W2:=STRMID(W_b,C2,T2-C2);
- DRAWTEXTEX(1,0,460,-3,W2);
- 合计1:STRTONUM(STRMID(W_b,T1,20)),LINETHICK;
- 合计2:STRTONUM(STRMID(W_b,T2,20)),LINETHICK;
