软件名称：[B]大事地雷（f10信息提取之三《公司大事》仿地雷信息 源码 主图）[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：2.00 KB
官方主页：Home Page
更新时间：2011-07-01 03:12:14
软件简介:

{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);
WHILE  st<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;  

[url=http://www.70822.com/soft/sort013/sort02/down-35594.html]大事地雷（f10信息提取之三《公司大事》仿地雷信息 源码 主图）[/url]