当前位置:分析家公式网 → 股票公式 → 大智慧L2公式 → 一键转帖:大智慧看股票股东的快速方法
软件名称:[B]大智慧看股票股东的快速方法[/B]
软件类型:国产软件
运行环境:Win10/Win9X/Win8/Win2000/WinXP/Win2003/Win7/
软件语言:简体中文
授权方式:分享版
软件大小:7.00 KB
官方主页:Home Page
更新时间:2024-02-29 00:14:51
软件简介:
大智慧看股票股东的快速方法
分享一个函数,可以调用F10的文本数据中的信息,可以看看
大智慧的F10数据,要下载完整。
大智慧的F10数据,要下载完整。
aa:=f10find('主营构成',1);
{bZ1:=f10text(aa+150,24)+f10text(aa+215,15);}
bZ2:=f10text(aa+307,24)+f10text(aa+372,15);
bZ3:=f10text(aa+386,24)+f10text(aa+451,15);
bZ4:=f10text(aa+464,24)+f10text(aa+529,15);
bZ5:=f10text(aa+541,24)+f10text(aa+606,15);
bZ6:=f10text(aa+618,24)+f10text(aa+683,15);
bZ7:=f10text(aa+774,24)+f10text(aa+839,15);
{DRAWTEXTREL(110,120,NUMTOSTRN(aa,0)),ALIGN1,COLORwhite;}
DRAWTEXTABS(620,-10,' 销毛:'+ NUMTOSTRN(FINANCE2(12),2)),COLORyellow,linethick2;
{DRAWTEXTABS(620,10,bZ1),ALIGN1,COLORwhite;}
DRAWTEXTABS(620,25,bZ2),ALIGN1,COLORwhite;
DRAWTEXTABS(620,40,bZ3),ALIGN1,COLORwhite;
DRAWTEXTABS(620,55,bZ4),ALIGN1,COLORwhite;
DRAWTEXTABS(620,70,bZ5),ALIGN1,COLORwhite;
DRAWTEXTABS(620,85,bZ6),ALIGN1,COLORwhite;
DRAWTEXTABS(620,100,bZ7),ALIGN1,COLORwhite;
BB:=f10find('拟披露年报',1);
BB0:=f10text(BB+2,22);
DRAWTEXTABS(620,10,BB0),ALIGN1,COLORwhite;
C1:=f10find(' 1.',1);
CZ1:=f10text(C1+3,15)+f10text(C1+40,12);
C2:=f10find(' 2.',1);
CZ2:=f10text(C2+3,15)+f10text(C2+40,12);
C3:=f10find(' 3.',1);
CZ3:=f10text(C3+3,15)+f10text(C3+40,12);
C4:=f10find(' 4.',1);
CZ4:=f10text(C4+3,15)+f10text(C4+40,12);
C5:=f10find(' 5.',1);
CZ5:=f10text(C5+3,15)+f10text(C5+40,12);
C11:=f10find(' 总 计',1);
CZ11:=f10text(C11+11,16)+f10text(C11+40,12);
DRAWTEXTABS(50,25,CZ1),ALIGN1,COLORwhite;
DRAWTEXTABS(50,40,CZ2),ALIGN1,COLORwhite;
DRAWTEXTABS(50,55,CZ3),ALIGN1,COLORwhite;
DRAWTEXTABS(50,70,CZ4),ALIGN1,COLORwhite;
DRAWTEXTABS(50,85,CZ5),ALIGN1,COLORwhite;
DRAWTEXTABS(50,100,CZ11),ALIGN1,COLORwhite;
D1:=f10find(' 6.',1);
CD1:=f10text(D1+3,15)+f10text(D1+40,12);
D2:=f10find(' 7.',1);
CD2:=f10text(D2+3,15)+f10text(D2+40,12);
D3:=f10find(' 8.',1);
CD3:=f10text(D3+3,15)+f10text(D3+40,12);
D4:=f10find(' 9.',1);
CD4:=f10text(D4+3,15)+f10text(D4+40,12);
D5:=f10find(' 10.',1);
CD5:=f10text(D5+3,15)+f10text(D5+40,12);
DRAWTEXTABS(250,25,CD1),ALIGN1,COLORwhite;
DRAWTEXTABS(250,40,CD2),ALIGN1,COLORwhite;
DRAWTEXTABS(250,55,CD3),ALIGN1,COLORwhite;
DRAWTEXTABS(250,70,CD4),ALIGN1,COLORwhite;
DRAWTEXTABS(250,85,CD5),ALIGN1,COLORwhite;
![](http://www.70822.com/soft/UploadPic/2024-2/20242292472091448.png)
[url=http://www.70822.com/soft/sort013/sort03/down-171570.html]大智慧看股票股东的快速方法[/url]