复制内容到剪贴板
代码:
if inblock('凭证权证')=0 then exit;
//◇鹏搏资讯F10资料◇
tx1:='四、创设注销';
tx2:='存续数量';
tx9:='━┷━━━━━━━━━━━━┷━━━━━┷━━┷━━━━━┷━━┷━━━━';
s:=3;cxl:=0;p:=strlen(tx9)+2;
w1:=f10find(tx1,1);
w2:=f10find(tx2,w1);
w9:=f10find(tx9,w2);
while w2+s*p<w9 do begin
cxl:=cxl+strtonum(f10text(w2+s*p,8));
s:=s+1;
end;
发行量{万份}:finance(1),linethick0;
创设存续{万份}:cxl,linethick0;
流通规模{万份}:finance(1)+cxl,linethick0;根据 F10 中资料，自动计算出最新流通数量，而后可自己修改财务数据中，流通盘的数量即可
