找股東

相關(guān)標(biāo)簽:

?

INPUT:幾月(1,1,6),牛人(1),進(jìn)日期(91120,90000,100000),N(1,0,10);
{找股東---------港澳資訊F10用}
股東名稱:='劉芳';{選填要找的股東名稱}
////********//////////
當(dāng)前月:=MONTH;
季末:=SUMBARS(CROSS(MOD(當(dāng)前月,3),0.5),1);
VERTLINE(CROSS(MOD(當(dāng)前月,3),0.5)),LINEDASHDOT,COLOR888888;
當(dāng)季均價(jià):=MA(C,季末),LINETHICK;
上季均價(jià):=REF(當(dāng)季均價(jià),季末),LINETHICK;
估算成本:=上季均價(jià)*(10-0.618)/10,LINETHICK;
季均漲幅:=(HHV(當(dāng)季均價(jià),季末)-上季均價(jià))/上季均價(jià)*100,LINETHICK;
月均價(jià):=MA(C,SUMBARS(當(dāng)前月<>REF(當(dāng)前月,1),1)),LINETHICK0;
上月均價(jià):=REF(月均價(jià),SUMBARS(當(dāng)前月<>REF(當(dāng)前月,1),1)),LINETHICK0;
PARTLINE(上月均價(jià)=REF(上月均價(jià),1),月均價(jià)),COLORFFFFFF,LINETHICK2;
PARTLINE(上月均價(jià)=REF(上月均價(jià),1),上月均價(jià)),COLORFFFFFF,LINETHICK1;
PARTLINE(上季均價(jià)=REF(上季均價(jià),1),當(dāng)季均價(jià)),COLORFFBB88,LINETHICK1;
PARTLINE(上季均價(jià)=REF(上季均價(jià),1),上季均價(jià)),COLORFFBB88,LINETHICK1;;
PARTLINE(估算成本=REF(估算成本,1),估算成本),COLORccaaaa,LINETHICK1;;
KLINE(O,H,L,C,0);
{綜合評(píng)級(jí)---------港澳資訊F10用}
{評(píng)級(jí)說(shuō)明：
評(píng)級(jí)系數(shù): 1.0=買(mǎi)入 2.0=增持 3.0=中性 4.0=減持 5.0=賣(mài)出
綜合評(píng)級(jí)指數(shù)：1.00~1.09買(mǎi)入； 1.10~2.09增持；2.10~3.09中性；3.10~4.09減持；4.10~5.00賣(mài)出。}
股票名稱:=STKNAME;
股票代碼:=STKLABEL;
{【高管買(mǎi)賣(mài)本公司股票情況】---------港澳資訊F10用}
起0:=F10FIND('【1.高管買(mǎi)賣(mài)本公司股票情況】',1);
起:=F10FIND('最近一年',起0+20);
止:=F10FIND('【2.高管列表】',起);
起止2:=F10TEXT(起,止-起);
找職務(wù):=STRFIND(起止2,'職務(wù)',1),LINETHICK0 ;
無(wú)數(shù)據(jù):=STRFIND(起止2,'無(wú)數(shù)據(jù)',1),LINETHICK0 ;
IF 找職務(wù)>0 AND 無(wú)數(shù)據(jù)=0 THEN BEGIN
起1:=F10FIND('├───┼────┼────┼────┼───┼─────┼──────┤',起+20);
起｜1:=F10FIND('｜',起1);
起｜2:=F10FIND('｜',起｜1+2);
起｜3:=F10FIND('｜',起｜2+2);
起｜4:=F10FIND('｜',起｜3+2);
起｜5:=F10FIND('｜',起｜4+2);
起｜6:=F10FIND('｜',起｜5+2);
起｜7:=F10FIND('｜',起｜6+2);
起｜8:=F10FIND('｜',起｜7+2);
姓名:=LTRIM(RTRIM(F10TEXT(起｜1+2,起｜2-起｜1-2)));
IF STRCMP(姓名,'姓名')<>0 THEN BEGIN
職務(wù):=RTRIM(F10TEXT(起｜2+2,起｜3-起｜2-2));
變動(dòng)數(shù):=RTRIM(F10TEXT(起｜3+2,起｜4-起｜3-2));
變動(dòng)后:=RTRIM(F10TEXT(起｜4+2,起｜5-起｜4-2));
變動(dòng)均價(jià):=RTRIM(F10TEXT(起｜5+2,起｜6-起｜5-2));
變動(dòng)日期:=RTRIM(F10TEXT(起｜6+2,起｜7-起｜6-2));
變動(dòng)原因:=RTRIM(F10TEXT(起｜7+2,起｜8-起｜7-2));
DRAWTEXTEX(STRCMP(姓名,'')<>0,1,10,10,' 【'+股票代碼+股票名稱+'高管買(mǎi)賣(mài)本公司股票情況】 ' ),COLOR9999FF;
DRAWTEXTEX(STRCMP(姓名,'')<>0,1,10,100,'姓名 職務(wù) 變動(dòng)數(shù) 變動(dòng)后 變動(dòng)均價(jià) 變動(dòng)日期 變動(dòng)原因 ' ),COLORFFFFFF;
DRAWTEXTEX(STRCMP(姓名,'')<>0,1,10,180, 姓名+' '+職務(wù)+變動(dòng)數(shù)+'(股)'+變動(dòng)后+'(股)'+' ' +變動(dòng)均價(jià)+' ' +變動(dòng)日期+' ' +變動(dòng)原因),COLORFFFFFF;
年0:=STRFIND(變動(dòng)日期,'-',1);
年:=STRTONUM(STRLEFT(變動(dòng)日期,年0-1))*10000-20000000;
月0:=STRFIND(變動(dòng)日期,'-',5);
月:=STRTONUM(STRMID(變動(dòng)日期,月0+1,2))*100;
日0:=STRRIGHT(變動(dòng)日期,2);
日:=STRTONUM(日0);
最近進(jìn)出日期:(年+月+日),COLORAAAAAA,LINETHICK0;
找最近進(jìn)日期:IF(STRTONUM(變動(dòng)數(shù))>0,(年+月+日),0),COLORFFFFFF,LINETHICK0;{選股或排序,選股時(shí)選大于日期,如選大于2009年11月20日就填大于91120}
PARTLINE(最近進(jìn)出日期+1000000<DATE,STRTONUM(變動(dòng)均價(jià))),COLOR9999FF,LINETHICK2;
;END;END;
PJ起點(diǎn):=F10FIND('┌────┬───────────┬──────────────┐｜ ｜ 綜合評(píng)級(jí) ｜ 評(píng)級(jí)分布 ｜',1);
PJ止點(diǎn):=F10FIND('└────┴────┴──────┴──┴──┴──┴──┴──┘',PJ起點(diǎn));
PJ起止:=F10TEXT(PJ起點(diǎn),PJ止點(diǎn)-PJ起點(diǎn));
前或內(nèi):=IF(幾月=1,'內(nèi)','前');
時(shí)間段:=NUMTOSTR(幾月,0)+'月'+前或內(nèi);{}
時(shí)間:=F10FIND(時(shí)間段,1);
PJ找到│1:=F10FIND('｜',時(shí)間);
PJ找到│2:=F10FIND('｜',PJ找到│1+3);
PJ找到│3:=F10FIND('｜',PJ找到│2+3);
PJ找到│4:=F10FIND('｜',PJ找到│3+2);x1:=F10FIND('市場(chǎng)關(guān)注度排名',1);
x2:=F10FIND('說(shuō)明：關(guān)注度是基于機(jī)構(gòu)研究報(bào)告以及各大財(cái)經(jīng)網(wǎng)站個(gè)股關(guān)注數(shù)據(jù)經(jīng)過(guò)計(jì)算得出。
',x1);
z1:=IF(x1>1,F10TEXT(x1,x2-x1),'');
t1:=F10FIND('第',x1);
t2:=F10FIND('位 較前日',T1);
z2:=F10TEXT(T1+2,T2-T1-4);
綜合評(píng)級(jí)指數(shù):=LTRIM(F10TEXT(PJ找到│2+2,PJ找到│3-PJ找到│2-2));
綜合評(píng)級(jí):STRTONUM(LTRIM(F10TEXT(PJ找到│1+2,PJ找到│2-PJ找到│1-2))),LINETHICK;{越小越好}
空格:=' ';
《》:=' 【 投 資 評(píng) 級(jí) 】';
評(píng)級(jí)說(shuō)明:=IF( 綜合評(píng)級(jí)=0,《》+'\n \n '+股票代碼+空格+股票名稱+空格+時(shí)間段+空格+'沒(méi)有評(píng)級(jí)',
《》+'\n \n '+股票代碼+' '+股票名稱+' '+時(shí)間段+' '+
'綜合評(píng)級(jí) '+NUMTOSTR(綜合評(píng)級(jí),2)+' (越小越好) '+' '+'綜合評(píng)級(jí)指數(shù) '+綜合評(píng)級(jí)指數(shù)) ;
DRAWTEXTEX(綜合評(píng)級(jí)>0 OR X1>0,1,10,480,評(píng)級(jí)說(shuō)明+'\n \n '+z1),COLOR66ccff;
起點(diǎn)0:=F10FIND('本欄包括【1.控股股東與實(shí)際控制人】【2.股東變化】【3.基金持股】',1);
起點(diǎn):=F10FIND('【2.股東變化】',起點(diǎn)0+20);
止點(diǎn):=F10FIND('──────────────┴─────┴─────┴────┴─────',起點(diǎn));
起止:=F10TEXT(起點(diǎn),止點(diǎn)-起點(diǎn));
【】:=STRFIND(起止,股東名稱,1);
IF 【】=0 THEN BEGIN EXIT;END;
DRAWTEXTEX(【】>0,1,10,270,' 牛 人 持 股 情 況'),COLOR00FFFF;
找到股東:=F10FIND(股東名稱,1);
找到│1:=F10FIND('｜',找到股東);
找到│2:=F10FIND('｜',找到│1+3);
找到│3:=F10FIND('｜',找到│2+3);
找到│4:=F10FIND('｜',找到│3+2);
持股:=F10TEXT(找到│1+2,找到│2-找到│1-2);
持股:=F10TEXT(找到│1+2,找到│2-找到│1-2);
比例:=STRTONUM(F10TEXT(找到│2+2,找到│3-找到│2));
進(jìn)出:=SUM(V,季末)/100000*比例*季均漲幅/100;
狀態(tài):=LTRIM(F10TEXT(找到│4+2,0));
IF STRTONUM(狀態(tài))<>0 THEN BEGIN 增或減:=IF(STRTONUM(狀態(tài))>0,'增持','減持');END;
該股東持（萬(wàn)）股:STRTONUM(持股),LINETHICK;{用排序法}
DRAWTEXTEX(該股東持（萬(wàn)）股>0,1,10,360,'上季末'+股東名稱+'持有'+' '+股票代碼+' '+股票名稱
+持股+'（萬(wàn)）股,'+''+'占流通股比(%)'+' '+NUMTOSTR(比例,2)+' '+'\n \n季均價(jià)漲跌幅 '+NUMTOSTR(季均漲幅,2)+
' 上季'+增或減+' '+狀態(tài)+' 本季可能出 '+NUMTOSTR(進(jìn)出,2)+'（萬(wàn)）股'),COLORFFCCDF;{選股選擇}
牛人持股:該股東持（萬(wàn)）股>牛人,LINETHICK0;
高管進(jìn):找最近進(jìn)日期>=進(jìn)日期,LINETHICK0;
機(jī)構(gòu)評(píng)級(jí):綜合評(píng)級(jí)<=N,LINETHICK0;
市場(chǎng)關(guān)注度排名:STRTONUM(Z2),LINETHICK0;{可用于排序}{將以下所有文字復(fù)制粘貼到參數(shù)精靈里******【選擇選股參數(shù)】*********
牛人(在原碼里修改股東名稱) Param#2 (選擇0或1)
選擇高管進(jìn)貨日期 Param#3
(例如要選擇2009年11月20日后的日期,就填 91120)
評(píng) 級(jí) 時(shí) 間 段:Param#1 月(1月內(nèi)或幾月前)
綜 合 評(píng) 級(jí): Param#4 (越小越好,最小是1)在下面選擇選股指標(biāo)線
}

{程序化交易 www.tumamayizhan.com }

{程序化交易 www.tumamayizhan.com }

?

公式導(dǎo)入教程: 【通達(dá)信公式源碼導(dǎo)入方法教程】 【同花順公式源碼導(dǎo)入方法教程】 【大智慧新一代公式源碼導(dǎo)入方法教程】

?