{f10信息提取三《公司大事》仿地雷信息，光标对正红点信息标志，右边出现变色F10公司大事信息。f10为港澳资讯 仅用于飞狐
调整CＴ可显示不同类型的信息,换页默认最近信息}
input:信息(0,0,2),da(100,1,500);
VARIABLE:nr='',ii=0, tx[da]='';
de:=date;
bt:=if(信息=0,'☆公司大事☆',if(信息=1,'☆公司报道☆','☆业内点评☆'));
st0:=F10FIND(bt,20),LINETHICK;
DRAWTEXTex(st0<=0,0,100,50,'本公式不适合该种F10资料。只适用于【港澳资讯】'),COLOREEFF;
if st0<=0 then EXIT ;
st:=st0+12;
stend:=F10FIND('☆',st+100);
WHILEst<stend-30 and ii<da DO BEGIN
st:=F10FIND('【',st);
en:=F10FIND('】',st+7);
ii:=ii+1;
tx[ii]:=F10TEXT(st,en-st+2);
//nr:=nr+if(ii>=n,'('+NUMTOSTR(ii,0)+') '+ tx[ii]+'\n','');
st:=st+10;
end
DRAWTEXTex(ISLASTBAR,0,10,15,bt+' (共'+NUMTOSTR(ii,0)+'条信息) 提示:请开启右下角的解盘阅读信息\n'+nr),color00ffff;
p0:=tx[1];ggb:=0;
for i=ii-1 downto 1 do begin
ti:=STRTONUM(NUMTOSTR(STRTONUM(strmid(tx[ i ],3,4))-1900,0)+strmid(tx[ i ],8,2)+strmid(tx[ i ],11,2)),LINETHICK;
ggb:=if(BARPOS>1 and ref(date,1)<ti and date>=ti,date,ggb) ;
p0:=if(BARPOS>1 and de[SYSPARAM(1)-1]<ti and de[SYSPARAM(1)]>=ti,tx[ i ],p0),LINETHICK;
end
pp:=if(p0='',tx[1],p0);
an0:=F10FIND(pp,st0);
an1:=F10FIND('【',an0+10);
ttx:=F10TEXT(an0,an1-an0);
an2:=F10FIND(tx[1],an0);
an3:=F10FIND('【',an2+10);
ttx2:=F10TEXT(an2,an3-an2);
EXPLAIN(ggb>0,'▲ '+bt+' \n'+ttx);
EXPLAIN(ggb=0,'▲最新 '+bt+' \n '+ttx2);
DRAWICON(ggb>1,c,10),ALIGN4;
 {点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
