1.河北省地质调查院 河北 3000002.河北省地矿局第三地质大队 河北 300000
摘要：天宝水准仪参与多仪器联合水准测量时，利用EXCEL VBA编程提取天宝水准外业观测文件中的路线数据，生成供水准网平差软件使用的格式。
关键词：EXCEL VBA，测量，天宝水准仪，水准路线数据预处理，程序设计
最近单位要完成大范围内的水准测量工作，由于原有设备不足，单位购置了几台天宝水准仪（DINI03标称精度±0.03mm），与现有仪器同时开展这项目工作。完成外业工作后，要进行统一平差时发现，平差程序不支持天宝水准仪的格式，必须从天宝水准仪观测数据文件中的测量路线数据提取出来，再同其他仪器的数据统一平差。
1问题分析
我们用记事本打开天宝水准仪原始观测.dat文件发现内容如下：
.png)
这是原始观测文件前面的部分。
经仔细研究发现，各行数据都是以“For M5|Adr”开头。行内有“|Rb”是后视方向数据行。行内有“|Rf”是前视方向数据行。行内有“|KD1”的后面近15个字符是点名。行内有“|HD”的后面15个字符是边长数据。点名后有“#####”是外业删除的数据。
总体解决思路是先逐行读入原始文件。再分析行内容，保留非删除的所有前后视数据。形成测站数据。再依据测站数据统计各控制点间的测段高程和边长。
2程序设计
2.1程序设计在EXCEL VBA编程环境内进行
使用程序语言为VBA语言，连接EXCEL对象模型库进行工作。
2.2 程序界面设计
如下：
.png)
2.3程序工作流程
第一步 逐行读取原始观测数据文件，对读取的行内容进行分析，保留文件中的所有的非删除的前后视数据。
第二步 依据原始文件的数据特征，提取每一行内容中的前后视点名，前后视类别，前后视高差，“HD”，前后视边长，将上述内容放在ＥＸＣＥＬ表中。开成原始数据区如下：
实际编程中，对测站的各项较差比较放在一个函数内计算核实，不超限就输出，同时将距离从米变为千米；
第四步 统计测站数据区的后视方向列，每一个后视点名非转点编号和数字开始的为测段起点，统计测站数据区前视方向，每一个前视点名非转点编号和数字开始的为测段终点，统计测段起点和结点间每个一测段的边长和高差数据。形成结果如下：
2.4程序运行结果
.png)
3 结论
如果手工从原始文件中提取路线数据，要在编辑软件中，替换很多次字符形成统一的分隔符，还要手工从成百上千行数据中剔除外业删除的数据。而一个项目以来可能有几十个、上百个路线文件要提取。整理工作繁琐，辛劳，易于出错。
使用本程序，20秒内就可完成大多单个文件的提取。
本程序解决了天宝水准仪与其它厂家仪器联合测量时，水准平差前的数据格式转换问题，降低了作业人员的工作强度，提高了生产效率，受了到了单位领导和同事的赞赏。
参考文献：；
[1]韩小良，韩舒婷.，EXCEL VBA（2003/2007）高效办公实用宝典，北京：中国铁道出版社，2009