港澳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);
-
文章来源:择股网作者:股海网发布时间:2009-12-01浏览次数:
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;