颜小华　任晓东　唐晓春

水文年鉴复刊中引排水（潮）量数据的快速校核方法

颜小华任晓东唐晓春

一、引言

由于历史原因，江苏省负责汇编刊印的5卷4册与6卷19、20册水文年鉴从1989~2005年根据上级要求，停止了汇编刊印。为适应水利建设及国民经济发展对水文服务的需求，保持水文资料系列的连续性，江苏省水文水资源勘测局决定对主编卷册停刊水文年鉴进行复刊，苏州分局作为主编单位，承担了6卷20册水文年鉴汇编刊印工作。作为江苏省特有的引排水（潮）量统计表，6卷20册包含了13个水文站的数据，而省局从数据库中导出并提供的CSV中又没有包含这些数据，这就需要在年鉴复刊软件中采用人工方式对引排水（潮）量过程表、旬、月、年统计表进行录入。这其中引排水（潮）量过程表的录入及校核是一项繁重的工作，虽然两人背靠背录入方式能减少入库错误的发生，但最后生成的成果表总会有意想不到的问题出现。通过多年来对引排水（潮）量过程表数据的检查过程的实践积累，尝试将年鉴复刊软件生成的hjs文件通过 VB.NET读取到 Excel中，在Excel中根据引排水推流公式采用Visual Basic forApplication（以下简称VBA）编程方式对提取的引排水数据进行校核。

二、数据提取

分析hjs文件可知，采用年鉴复刊程序生成的hjs文件，是将DataSet记录序列化后，以字符编码为UTF-16，保存的XML文件。因此要完成引排水（潮）量数据的校核，就要首先将hjs反序列化，以下为反序列化部分代码。

MessageBox.Show("反序列化时出错！")

反序列化后，再将数据导出到Excel文件中，以下为导出到Excel部分代码。……