VBA在水文整编合理性检查中的应用-投省局.docVIP

VBA在水文整编合理性检查中的应用 马富明 黄诗晓 林元润 （福建泉州水文水资源勘测分局，362000，泉州） 摘要：程序利用微软公司的OFFICE2000平台自带的VBA功能，调用福建省通用的水文整编程序过程文件THQS.txt，针对在水文（水流沙）整编过程中存在的比较常见的一些问题如整米数摘录错误、反比降等问题编制的一个可视化程度较强的简易软件。结果表明，该程序在实际应用过程中的实用性较强，能够水文整编工作人员及时发现数据上存在的问题提供较为可靠和直接的帮助。本文介绍的是关于水位整编的站点。 关键词：水文整编；VBA；THQS.txt；落差法推流 1 问题的提出 长期以来，水文作为一门基础学科，为城市防洪、排涝、规划、建设等社会活动提供可靠的信息支持，水文数据的收集是一个极其严谨、规范的行为，通过测验、收集、摘录、整编之后方能入库、编制成册，在这个过程中，每一个数据都必须经过至少三道手的校对和复核。近来来，随着测验的自动化水平、水文整编的计算机应用水平不断提高，水文数据整编的过程也在不断简化。在依旧使用人工观测的站点，目前主要是水位站点尤其是采用落差法推流、带有辅助观测水位站的站点，其辅助观测水位站大多还使用人工观测，在其测验、收集、摘录的过程中，水文整编过程中存在的一些固有问题诸如数据摘录错误尤其是整米数摘录错误、反比降等依然有存在的可能。因此，本文主要是针对这个问题提出了一个简单实用的有助于排除此类差错的方法。 2 程序应用的基础 2.1 基础程序 本程序是在EXCEL2000的平台上，针对采用福建通用水文整编程序编写的一个应用性程序，通过EXCEL2000自带的VBA功能，调用水文整编程序的过程文件THQS.txt。应用本文介绍的程序必须安装有EXCEL2000。适用于WIN98以上的环境。本文介绍的程序只适用于严格按照整编规范规定格式的数据文件。 2.2 应用原理 本文介绍的应用程序的主要原理是：采用EXCEL2000自带的图表功能，调用过程文件THQS.txt中的数据，根据数据的连续性，建立以日为分界点的、较为直观的、可视化程度较高的图表界面。其调用的数据主要包括四组，即时间、本站水位、辅助水位站水位和流量数据。 2.3 程序功能 程序的主要功能是查询，针对本文的作者在实际应用过程中的体会，本文主要提供以下几个功能（如图1所示）： 图1 程序的功能控件示意图 2.3.1 文件路径更改。 程序限定的是所调用的数据文件必须是严格按照过程文件THQS.txt的数据文件格式，而没有要求必须使用该文件名，同样也未规定该文件的保存路径。在第一次使用这个程序时，应首先更改文件路径，选择要进行合理性检查的站点对应的数据文件。 2.3.2 站点类型选择 程序主要提供三种站点类型：即有辅助水位站、含水流沙测验的站点；没有辅助水位站，含水流沙测验的站点；单纯的水位观测站点。 2.3.3 水位和流量单选 本选项针对有水流沙测验的站点，提供分别进行水位和流量合理性检查的功能。 2.3.4 日分界点选择 本选择主要提供日分界起始时间分别0时和8时的检索。默认情况为上一次使用的日分界起始时间。 2.3.5 纵坐标设置 程序采用的纵坐标设置默认情况下为自动设置，本次提供人工设置总坐标的功能，满足局部区域需要放大处理的要求。 2.3.6 是否拟合 水文数据摘入主要是根据特征点，过程线拟合有利于其同原始记录纸的比较观测。但在某些暴涨暴落区域，拟合容易造成视觉上的反比降误差。 2.3.7 时间选择 提供直接更改时间的功能，如果选择直接更改时间，则必须点击“确定”刷新；程序也提供直接点击“上一日”和“下一日”的功能，满足连续性观测的方便。 2.3.8 可检索 在图形界面上，只要把鼠标置于某引据点上，其所引用的资料就能够自动显示，有助于对有可能出现问题的观测点的判断，如图2所示。 2.3.9 退出 结束程序的应用。 3 程序应用的效果 图3 带辅助水位站观测的站点 3.1 图形要素 图形要素主要包括以下几个内容，日期、时间、纵坐标标示、图形名称、过程线、过程线图例，如图3所示： 3.2 发现问题 3.2.1反比降 此类错误出现在有辅助观测站点的、含水流沙测验的站点内，如图4所示，在图内主要体现为出现交叉线，这类错误通过本文介绍的程序是比较容易发现的。 3.2.2 出现0.1m以上的数据摘录错误 此类错误差值越大，越容易发现，一般通过其连续性检索，并有可能判断出来是否错误，如图5所示。通过程序，对不连续的点检查其原始数据有助于发现问题。 4 结 语 ⑴本文利用通用的EXCEL2000自带的VBA程序，结合福建通用的水文整编程序，根据多年来使用的情况，针对在水文整编过程中较容易出现的一些问题，依照使用者的习惯，编写的一个针对性较强、可视化程度较高