大智慧L2 F10源碼

公式如下:(在此感謝MACD提供的朋友)[/color]

VARIABLE:TT[4]=STR,持股[4]=0,比例[4]=0,變化[4]=0;

F10:=IF(F10FIND(萬國測評制作,1)>0,1,0);

QSW:=F10FIND(◆ 控盤情況 ◆,100);

QSW1:=F10FIND(出]☆,1000)+120;

JSW1:=F10FIND(紅]☆,QSW1+300)-80;

{F10數據查找}

IF F10=1 AND QSW>0 AND QSW1>0?AND JSW1>0?THEN{萬國測評的資料是否完整，不完整就什麽都不做}

BEGIN

{控盤情況數據欄數據提取}

f10str:=f10text(QSW,320);

WZ1:=strfind(f10str,-,0)-5;

WZ2:=strfind(f10str,-,WZ1+10)-5;

WZ3:=strfind(f10str,-,WZ2+10)-5;

WZ4:=strfind(f10str,-,WZ3+10)-5;

WZ5:=320;{查找結束位}

{取時間}

T1:= strmid(f10str,WZ1,10);

T2:= strmid(f10str,WZ2,10);

T3:=strmid(f10str,WZ3,10);

T4:= strmid(f10str,WZ4,10);

{取股東戶數}

LS:=142;

HS1:=STRTONUM(strmid(f10str,WZ1+LS,10));

HS2:=IF(WZ2

HS3:=IF(WZ3

HS4:=IF(WZ4

{取戶均持股數}

LS:=205;

RS1:=STRTONUM(strmid(f10str,WZ1+LS,10));

RS2:=IF(WZ2100,STRTONUM(strmid(f10str,WZ2+LS,10)),0);

RS3:=IF(WZ3100,STRTONUM(strmid(f10str,WZ3+LS,10)),0);

RS4:=IF(WZ4100,STRTONUM(strmid(f10str,WZ4+LS,10)),0);

{大股東數據查找}

f10str:=f10text(QSW1,JSW1-QSW1);

HJW:=0;

{for 循環很慢無法忍受，換成下面的展開

FOR i=1 to 4 DO

BEGIN

SJT:=strfind(f10str,占流通股,HJW+15);

if SJT JSW1 THEN BREAK;

? TT:=strmid(f10str,SJT-(44-21),10);

? HJW:=strfind(f10str,總?計,SJT+300);

? 持股:=strtonum(strmid(f10str,HJW+6,44-12));

? 比例:= strtonum(strmid(f10str,HJW+6+45-12,51-45));

? ABC:=HJW+80-5+36;

? HJW:=ABC;

END;

}

SJT:=strfind(f10str,占流通股,HJW+15);

TT[1]:=strmid(f10str,SJT-(44-21),10);{時間}

HJW:=strfind(f10str,總?計,SJT+300);

持股[1]:=strtonum(strmid(f10str,HJW+6,44-12));

比例[1]:= strtonum(strmid(f10str,HJW+6+45-12,51-45));

ABC:=HJW+80-5+36;

HJW:=ABC;

SJT:=strfind(f10str,占流通股,HJW+15);

TT[2]:=strmid(f10str,SJT-(44-21),10);{時間}

HJW:=strfind(f10str,總?計,SJT+300);

持股[2]:=strtonum(strmid(f10str,HJW+6,44-12));

比例[2]:= strtonum(strmid(f10str,HJW+6+45-12,51-45));

ABC:=HJW+80-5+36;

HJW:=ABC;

SJT:=strfind(f10str,占流通股,HJW+15);

TT[3]:=strmid(f10str,SJT-(44-21),10);{時間}

HJW:=strfind(f10str,總?計,SJT+300);

持股[3]:=strtonum(strmid(f10str,HJW+6,44-12));

比例[3]:= strtonum(strmid(f10str,HJW+6+45-12,51-45));

ABC:=HJW+80-5+36;

HJW:=ABC;

SJT:=strfind(f10str,占流通股,HJW+15);

TT[4]:=strmid(f10str,SJT-(44-21),10);{時間}

HJW:=strfind(f10str,總?計,SJT+300);

持股[4]:=strtonum(strmid(f10str,HJW+6,44-12));

比例[4]:= strtonum(strmid(f10str,HJW+6+45-12,51-45));

ABC:=HJW+80-5+36;

HJW:=ABC;

當期:=持股[1];

當期1:=比例[1];

上期:=持股[2];

上期1:=比例[2];

±比例:=當期1-上期1;

前二:=持股[3];

前二1:=比例[3];

前三:=持股[4];

前三1:=比例[4];

{將變化持股數對應顯示在對應位置}

{排序}

股東增幅:(HS1-HS2)/HS2*100,PRECIS2,linethick2,Color008987;

持股增幅:(RS1-RS2)/RS2*100,PRECIS2,linethick2,COLORRED;

主力增幅:(當期-上期)/上期*100,PRECIS2,LINETHICK2,ColorFA7D7D;

主力流通:(當期-上期1)/當期1*100,PRECIS2,LINETHICK2,ColorFFA935;

{-------------------圖解模板-------------------}

A2:=0;

A3:=1000;

AG:=INTPART((A3-A2)/10);

{顯示文字}

DRAWTEXTREL(0,AG*0,戶均持股),ColorFFC800;

DRAWTEXTREL(0,AG*2,股東戶數),ColorFA7D7D;

DRAWTEXTREL(0,AG*4,主力占流通%),ColorFA7D7D;

DRAWTEXTREL(0,AG*6,主力持股數(萬)),ColorFA7D7D;

DRAWTEXTREL(0,AG*8,報表時間),COLOR00DD00;

{戶均持股}

DRAWTEXTREL(AG*8,0,NUMTOSTR(RS1 )),ALIGN2,ColorFFC800;

DRAWTEXTREL(AG*6,0,NUMTOSTR(RS2 )),ALIGN2,ColorFFC800;

DRAWTEXTREL(AG*4,0,NUMTOSTR(RS3 )),ALIGN2,ColorFFC800;

DRAWTEXTREL(AG*2,0,NUMTOSTR(RS4 )),ALIGN2,ColorFFC800;

{股東戶數}

DRAWTEXTREL(AG*8,AG*2,NUMTOSTR(HS1)),ALIGN2,ColorFA7D7D;

DRAWTEXTREL(AG*6,AG*2,NUMTOSTR(HS2)),ALIGN2,ColorFA7D7D;

DRAWTEXTREL(AG*4,AG*2,NUMTOSTR(HS3)),ALIGN2,ColorFA7D7D;

DRAWTEXTREL(AG*2,AG*2,NUMTOSTR(HS4)),ALIGN2,ColorFA7D7D;

{主力占流通比}

DRAWTEXTREL(AG*8,AG*4,NUMTOSTR(當期1)),ALIGN2,COLORMAGENTA;

DRAWTEXTREL(AG*6,AG*4,NUMTOSTR(上期1)),ALIGN2,COLORMAGENTA;

DRAWTEXTREL(AG*4,AG*4,NUMTOSTR(前二1)),ALIGN2,COLORMAGENTA;

DRAWTEXTREL(AG*2,AG*4,NUMTOSTR(前三1)),ALIGN2,COLORMAGENTA;

{10大股東持股}

DRAWTEXTREL(AG*8,AG*6,NUMTOSTR(當期)),ALIGN2,COLORRED;

DRAWTEXTREL(AG*6,AG*6,NUMTOSTR(上期)),ALIGN2,COLORRED;

DRAWTEXTREL(AG*4,AG*6,NUMTOSTR(前二)),ALIGN2,COLORRED;

DRAWTEXTREL(AG*2,AG*6,NUMTOSTR(前三)),ALIGN2,COLORRED;

{時間}

DRAWTEXTREL(AG*8,AG*8,T1),ALIGN2,COLOR00DD00;

DRAWTEXTREL(AG*6,AG*8,T2),ALIGN2,COLOR00DD00;

DRAWTEXTREL(AG*4,AG*8,T3),ALIGN2,COLOR00DD00;

DRAWTEXTREL(AG*2,AG*8,T4),ALIGN2,COLOR00DD00;

{柱線}

{持股數柱線}

{STICKLINE(BARPOS=A3-AG*1-10 AND HS1>100,0,RS1,AG*3,1),LINETHICK2,ColorFFDDFF;

STICKLINE(BARPOS=A3-AG*2-15 AND HS2>100,0,RS2,AG*3,1),LINETHICK2,ColorF1FFB5;

STICKLINE(BARPOS=A3-AG*3-20 AND HS3>100,0,RS3,AG*3,1),LINETHICK2,ColorB9FFBC;

STICKLINE(BARPOS=A3-AG*4-25 AND HS4>100,0,RS4,AG*3,1),LINETHICK2,ColorB9FFFF;}

{10大股東畫柱線}

{STICKLINE(BARPOS=A3-AG*1-6?AND 當期>0,0,當期,AG*3,0),LINETHICK2,ColorFFDDFF;

STICKLINE(BARPOS=A3-AG*2-11 AND 上期>0,0,上期,AG*3,0),LINETHICK2,ColorF1FFB5;

STICKLINE(BARPOS=A3-AG*3-16 AND 前二>0,0,前二,AG*3,0),LINETHICK2,ColorB9FFBC;

STICKLINE(BARPOS=A3-AG*4-21 AND 前三>0,0,前三,AG*3,0),LINETHICK2,ColorB9FFFF;}

END;下載萬國的F10解壓到D:\Program Files\dzh2\data\sz\BASE D:\Program Files\dzh2\data\sh\BASE

上一篇:千千靜聽的使用!!!!!

下一篇:源代碼在線乘法器