//假设以股票代码及日期作为外部文件的文件名
Filename:=’C:\\data\\’+Stockid+datetostr(EndT)+’.xls’;
Ret:=rdo2 importfile(ftxls(),’’,Filename,data);
//如果对应Stockid,EndT的结果已经存在,那么跳过
If ret and istable(data) then
Echo ‘跳过’
Else
Begin
//计算
Coding … //(通过一段代码得到需要的结果,假设结果赋值给a)
Ret2:=rdo2 exportfile(ftxls(),’’,Filename,a);
If ret2 then
Echo ‘导出’,stockid,’->’,datetostr(EndT),’成功’
Else
Echo ‘导出失败’;
end