股市浪子的十大股东公式 飞狐浪子股东指标 源码

指标公式详细说明

{鹏博、wind十大流通股东}
input:lb(1,0,1);
//设定查找的特定股东
tdgd:='王维庭';//'孙军忠';//修改引号内姓名变更
//确定f10种类
f10:=if(f10find('万国测评制作',1)>0,1,if(f10find('wind资讯就是',1)>0,2,if(f10find('鹏搏资讯',1)>0,3,if(f10find('◇港澳资讯',1)>0,4,0))));
//f10数据查找
qsw:=if(f10=2,f10find('股东进出】 <<占流通股比例区',1000),if(f10=3,f10find('【十大流通股东】',500),f10find('◆ 控盘情况 ◆',100)));//起
if qsw<0 then exit;//没找到退出
sjt:=if(f10=1,f10find('占流通股',qsw+30),if(f10=2,f10find('流通股东名',qsw+50),if(f10=5,f10find('十大流通股东情况',qsw+50),f10find('截止日期',qsw+10))));//取日期位置1
if sjt<0 then exit;
rqz:=ltrim(rtrim(f10text(sjt+if(f10=1,(-24),if(f10=2,(-145),if(f10=3,9,if(f10=5,(-12),10)))),12)));//时间
截止日期:strtonum('1'+strright(strleft(rqz,4),2)+strright('0'+numtostr(strtonum(strmid(rqz,6,2)),0),2)+strmid(rqz,strfind(rqz,'-',6)+1,2)),linethick;
hjw:=f10find(if(f10<3,'总计',if(f10=3,'流通a股合计',if(f10=5,'合计持有','合计'))),sjt+300);//止
cgt:=ltrim(if(f10=4,f10text(hjw+42,36)-'│'-'─',if(f10=5,f10text(hjw+8,0)-'流通',f10text(hjw+if(f10=2,20,12),60)-if(f10=1,'-',''))));
持股:=if(f10=4,strleft(cgt,strfind(cgt,' ',3)-1),strleft(cgt,strfind(cgt,if(f10=1,' ',if(f10=2,' ',if(f10=5,'万','(万股'))),1)-1));
cgt1:=ltrim(if(f10=5,strright(cgt-持股,strlen(cgt-持股)-strfind(cgt-持股,'％',1)-3),cgt-持股));
比例:=strtonum(if(f10=4,strleft(cgt1,strfind(cgt1,' ',3)-1),if(f10<3,strleft(cgt1,strfind(cgt1,'%',1)-1),
if(f10=5,strmid(cgt1,strfind(cgt1,'股',1)+2,strfind(cgt1,'％',5)),strmid(cgt,strfind(cgt,':',10)+1,strfind(cgt,'％',10)-1)))));
js1:=0;js2:=0;
variable:gdw[10]=0,gdt[10]='str',bj[10]='str',zjt[10]='str';
for j=1 to 10 do begin
xh:=rtrim(ltrim(numtostr(j,0)));//将j转换为字符的序号
gdw[j]:=if(j=1,f10find('1',sjt+100),f10find(if(f10=2 and j=10,'',' ')+xh+if(f10=3,'│',''),gdw[j-1]+74));//取字符串所在位置
ls:=if(f10=3,if(j=1,3,if(j<10,4,5)),if(j=1,1,2));
if j<11 then gdt[j]:=xh+if(f10=3,'.','')+f10text(gdw[j]+ls,if(f10=3,26,30));//取字符串
pdt:=strlen(rtrim(gdt[j]));
if pdt>10 then js1:=js1+1; else js2:=js2+1;
bj[j]:=strright(' '+ltrim(numtostr(strtonum(ltrim(strright(f10text(gdw[j]+27,16),12))),2)),12);
zjt[j]:=if(f10=2,strright(' '+rtrim(ltrim(strleft(f10text(gdw[j]+54,12),8))),10),'');
gdt[j]:=if(j<10,' ','')+gdt[j]+bj[j]+''+zjt[j];
// gdt[j]:=if(j<10,' ','')+strleft(gdt[j]+' ',if(j<10,32,32))+bj[j]+''+zjt[j];
end;
//drawtext(sysparam(2)+2=barpos and gdw[1]>1,10,zjt[6]),color74afff;
//查特定股东数值
tdcg:=0;tdt:=0;tds:=0;
for q=1 to 10 do begin
//[q]:=ltrim(strright(f10text(gdw[q]+32,14),12));
tdt:=strfind(gdt[q],tdgd,1);
if tdt>0 then begin
tdcg:=strtonum(bj[q]);
tds:=q;
break;
end;
end;
//drawtext(sysparam(2)+2=barpos and gdw[1]>1,10,gdt[10]),color74afff;
十大流通股东占（%）:比例,precision2,coloryellow,linethick;
机构数:js1,colorff,linethick;
个人数:js2,colorff00,linethick;
特定股东持股:tdcg,colorff60ff,linethick;
if lb=1 then begin
zx:=intpart((sysparam(3)-sysparam(2))/2)+2;
drawtext(sysparam(2)+2=barpos and gdw[1]>1,10,gdt[1]),color74afff;
drawtext(sysparam(2)+2=barpos and gdw[2]>1,8,gdt[2]),color74afff;
drawtext(sysparam(2)+2=barpos and gdw[3]>1,6,gdt[3]),color74afff;
drawtext(sysparam(2)+2=barpos and gdw[4]>1,4,gdt[4]),color74afff;
drawtext(sysparam(2)+2=barpos and gdw[5]>1,2,gdt[5]),color74afff;
drawtext(sysparam(2)+zx=barpos and gdw[6]>1,10,gdt[6]),color74afff;
drawtext(sysparam(2)+zx=barpos and gdw[7]>1,8,gdt[7]),color74afff;
drawtext(sysparam(2)+zx=barpos and gdw[8]>1,6,gdt[8]),color74afff;
drawtext(sysparam(2)+zx=barpos and gdw[9]>1,4,gdt[9]),color74afff;
drawtext(sysparam(2)+zx=barpos and gdw[10]>1,2,gdt[10]),color74afff;
end else drawtext(sysparam(2)+2=barpos and tdt>0,10,gdt[tds]),color74afff;
0,colorblack;
//

指标公式下载地址

上一指标公式：ABV-小改主力进出--量价公式 飞狐ABV指标 源码

下一指标公式：动能短线公式 飞狐动能指标 源码

相关飞狐公式推荐

指标公式下载注意

☉ 好公式网发布的指标公式主要用于软件技术面分析，仅供参考，勿用于实际操作，据此操作风险自负！

☉ 解压密码：www.goodgongshi.com 就是好公式网域名，希望大家看清楚，切勿输错。

☉ tnc和tni格式指标公式，仅可以用通达信软件引入使用，例如可以用通达信软件引入使用指标公式；

☉ tne格式指标公式，仅可以用通达信软件公式编辑器5.0版导入，高版本兼容低版本；

☉ fnc格式指标公式，可以用大智慧软件新一代高速行情分析系统股票软件使用，少部分可以用分析家软件引入使用；

☉ alg格式指标公式，仅仅可以用飞狐交易师软件引入使用；exp格式指标公式，仅可以用大智慧经典版软件引入使用；

☉ hxf格式指标公式，仅可以用同花顺软件引入使用。

☉ 如果您发现下载软件链接错误，请联系管理员报告错误。

☉ 好公式网欢迎各位网友帮忙宣传转发本站网址，有您的支持，我们会做得更好！

☉ 本文股市浪子的十大股东公式 飞狐浪子股东指标 源码仅供学习研究。