Q:=f10find('【3:异动列示】',1);//精确起点
Z:=f10find('◇2007-',Q);//查找范围的终点位置
if Z<100 then EXIT;
w:=1;
家数:=0;
机构:=0;
字:='';
while w>0 do begin
w:=f10find('机构专用',w+20);
if w>Q and w<Z then begin//设定查找的范围
家数:=家数+1,LINETHICK;//在查找的范围内共有M个要找的字符串(│)
机构:=机构+STRTONUM(F10TEXT(w+52,0))/100000000,LINETHICK;
字:=字+F10TEXT(w,10)+F10TEXT(w+50,20)+'\n';//取第i组字符串;;
end;end;