脚本

分==0 and 秒==0
string FileName1=InfoAppDir()+"日报\"+ StrFromReal( \\本站点\$年, 0, "f" )+"y"+StrFromReal(\\本站点\$月, 0, "f" )+"m"+StrFromReal(\\本站点\$日, 0, "f" )+".rtl";

//自定义变量
long return01=InfoFile( Filename1, 1, \\本站点\$分 );
//判断日报目录下是否已经有当天的报表文件了
if (return01==0)
{
string FileName=InfoAppDir()+"报表\日报.rtl";
ReportLoad("Report5",FileName);
FileName=InfoAppDir()+"日报\"+StrFromReal( \\本站点\$年, 0, "f" )+"y"+StrFromReal( $月, 0, "f" )+"m"+StrFromReal( $日, 0, "f" )+".rtl";
ReportSaveAs("Report5",FileName);
}
//如果没有报表文件则从报表目录下调取模板创建报表文件
ReportLoad("Report5",FileName1);
ReportSetCellString("report5", 3,10, \\本站点\$日期);
long hang=\\本站点\$时+6;
string timestr=time(\\本站点\$时,0,0);
ReportSetCellString("report5", hang,1, timestr);
ReportSetCellValue("report5", hang,2,\\本站点\颗粒物);
ReportSetCellValue("report5", hang,3,\\本站点\颗粒物折算);
ReportSetCellValue("report5", hang,4, \\本站点\SO2);
ReportSetCellValue("report5", hang,5, \\本站点\SO2折算);
ReportSetCellValue("report5", hang,6, \\本站点\NO2);
ReportSetCellValue("report5", hang,7, \\本站点\NO2折算);
ReportSetCellValue("report5", hang,8, \\本站点\流量);
ReportSetCellValue("report5", hang,9, \\本站点\O2);
ReportSetCellValue("report5", hang,10, \\本站点\温度);
ReportSetCellValue("report5", hang,11, \\本站点\水分);
ReportSaveAs("Report5",FileName1);


\\本站点\$时==23

string reportname2=StrFromReal( \\本站点\$年, 0, "f" )+StrFromReal( \\本站点\$月, 0, "f" )+".rtl";

//====================
string FileName;
//自定义变量
FileName=InfoAppDir()+"月报\"+reportname2;
long return02=InfoFile( Filename, 1, \\本站点\$分 );
ShowPicture("后台月报");
HidePicture("后台月报");
//判断月报目录下是否已经有当月的报表文件了
if (return02==0)
{
FileName=InfoAppDir()+"报表\月报.rtl";
ReportLoad("Roport7",FileName);
FileName=InfoAppDir()+"月报\"+ reportname2;
Reportsaveas("Roport7",FileName);
\\本站点\日计数=0;
}
//如果当月的月报文件还没有产生则调入月报.rtl文件并按规定格式保存报表文件


FileName=InfoAppDir()+"月报\"+StrFromReal( \\本站点\$年, 0, "f" )+StrFromReal(\\本站点\$月, 0, "f" )+".rtl";

ReportLoad("Report7",FileName);
long hang;
hang= $日+5;
\\本站点\日计数=\\本站点\日计数+1;
string str;
long Value;
str=ReportGetCellString("Report5", 3, 10);
ReportSetCellString("Report7", hang, 1, str);
Value=ReportGetCellValue("Report5", 30, 2);
ReportSetCellValue("Report7", hang, 2, Value);
Value=ReportGetCellValue("Report5", 30, 3);
ReportSetCellValue("Report7", hang, 3, Value);
Value=ReportGetCellValue("Report5", 30, 4);
ReportSetCellValue("Report7", hang, 4, Value);
Value=ReportGetCellValue("Report5", 30, 5);
ReportSetCell

Value("Report7", hang, 5, Value);
Value=ReportGetCellValue("Report5", 30, 6);
ReportSetCellValue("Report7", hang, 6, Value);
Value=ReportGetCellValue("Report5", 30, 7);
ReportSetCellValue("Report7", hang, 7, Value);
Value=ReportGetCellValue("Report5", 30, 8);
ReportSetCellValue("Report7", hang, 8, Value);
Value=ReportGetCellValue("Report5", 30, 9);
ReportSetCellValue("Report7", hang, 9, Value);
Value=ReportGetCellValue("Report5", 30, 10);
ReportSetCellValue("Report7", hang, 10, Value);
Value=ReportGetCellValue("Report5", 30, 11);
ReportSetCellValue("Report7", hang, 11, Value);
//将日报表中的统计数据（平均值）输入到月报表中

Value=ReportGetCellValue("Report7", 39, 2);
Value=Value/\\本站点\日计数;
ReportSetCellValue("Report7", 37, 2, Value);
Value=ReportGetCellValue("Report7", 39, 3);
Value=Value/\\本站点\日计数;
ReportSetCellValue("Report7", 37, 3, Value);
Value=ReportGetCellValue("Report7", 39, 4);
Value=Value/\\本站点\日计数;
ReportSetCellValue("Report7", 37, 4, Value);
Value=ReportGetCellValue("Report7", 39, 5);
Value=Value/\\本站点\日计数;
ReportSetCellValue("Report7", 37, 5, Value);
Value=ReportGetCellValue("Report7", 39, 6);
Value=Value/\\本站点\日计数;
ReportSetCellValue("Report7", 37, 6, Value);
Value=ReportGetCellValue("Report7", 39, 7);
Value=Value/\\本站点\日计数;
ReportSetCellValue("Report7", 37, 7, Value);
Value=ReportGetCellValue("Report7", 39, 8);
Value=Value/\\本站点\日计数;
ReportSetCellValue("Report7", 37, 8, Value);
Value=ReportGetCellValue("Report7", 39, 9);
Value=Value/\\本站点\日计数;
ReportSetCellValue("Report7", 37, 9, Value);
Value=ReportGetCellValue("Report7", 39, 10);
Value=Value/\\本站点\日计数;
ReportSetCellValue("Report7", 37, 10, Value);
Value=ReportGetCellValue("Report7", 39, 11);
Value=Value/\\本站点\日计数;
ReportSetCellValue("Report7", 37, 11, Value);
//将累计值转换为平均值

Reportsaveas("Report7",FileName);
ClosePicture("后台月报");