大智慧L2的F10原码
此原码能顺利通过,问题是没有显示
原码由MACD的朋友提供,公式可以通过,但是没有显示,然后我把大智慧545的F10文件拷到了大智慧L2的文件里,但是还是没有显示,在此想问问高手\老师两个问题: 1\大智慧545的F10可以用于大智慧L2吗? 2\文件是放在DZH2---DATA---SH(SZ)------BASE,对吗? 公式如下:(在此感谢MACD提供的朋友) 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<WZ5,STRTONUM(strmid(f10str,WZ2+LS,10)),0); HS3:=IF(WZ3<WZ5,STRTONUM(strmid(f10str,WZ3+LS,10)),0); HS4:=IF(WZ4<WZ5,STRTONUM(strmid(f10str,WZ4+LS,10)),0); {取户均持股数} LS:=205; RS1:=STRTONUM(strmid(f10str,WZ1+LS,10)); RS2:=IF(WZ2<WZ5 AND HS2>100,STRTONUM(strmid(f10str,WZ2+LS,10)),0); RS3:=IF(WZ3<WZ5 AND HS3>100,STRTONUM(strmid(f10str,WZ3+LS,10)),0); RS4:=IF(WZ4<WZ5 AND HS4>100,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<0 OR 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; |
|