使用VB实现电子水准仪数据的自动化提取资料.doc

使用VB实现电子水准仪数据的自动化提取 赵利江 包头铁道职业技术学院 014040 摘要：本文通过对徕卡和天宝电子水准仪数据格式的研究，实现了使用VB对电子水准仪记录数据的分线路提取，同时本程序所采用的方法对其他一些电子水准仪的数据提取具有一定的参考价值。 关键词：电子水准仪 VB 分线路 数据提取 1 程序的开发背景 近年来随着技术的不断进步，电子仪器也在飞速发展，其快速、精确的测量的优势越来越受到放大测量人员的亲睐，电子水准仪就是在这一背景下诞生的新一代测量仪器，其在工程界的使用越来越广，尤其是在高精度的高程测量领域应用十分广泛，其中以徕卡和天宝的电子水准仪为主，现如今的一些电子水准处理软件也多以处理这两种水准观测数据为主，一些单位和个人也在进行此类软件的开发和应用，但研究的软件或程序格式转化单一，不能满足不同测量领域的人们的需求，本文针对这一现状，提出了分线路提取关键数据的解决办法。 2 程序开发的关键问题及解决方法 2.1 天宝系列电子水准仪（DINI系列） 2.1.1 水准数据分线路处理 数据处理的一个难点就在于一个水准观测文件中存在多条水准路线，对于天宝系列的数字水准仪来说，其文件内部有关于线路起点“Start-Line”和线路终点“End-Line”的提示信息，但一个主要问题是在“End-Line”之后，可能有“Cont-Line”出现，如果这样那么这条水准路线并未真正结束，天宝电子水准仪的一个记录原则是一个Start-Line和Cont-Line必各对应一个End-Line，这种情况下，如果我们以“Start-Line”和“Cont-Line”标记线路起点，以“End-Line”标记线路终点，那么如果存在“Cont-Line”的情况程序会将一条水准路线分割成两条，这样就导致了数据处理的错误。 原始数据如下 For M5|Adr 46|KD1 N4 L1|Sh -1.90278 m |dz For M5|Adr 47|KD2 N4 6 L1|Db 73.660 m |Df For M5|Adr 48|TO End-Line L1| | For M5|Adr 49|KD1 3 09:06:223 |R 1.34466 m |HD For M5|Adr 50|TO Cont-Line L1| | For M5|Adr 51|KD1 N4 09:08:243 L1|Rb 1.34468 m |HD For M5|Adr 52|KD1 4 09:08:483 L1|Rf 1.37887 m |HD For M5|Adr 53|KD1 4 09:08:583 L1|Rf 1.37889 m |HD 首先，我们编程时会将关键的数据记录项（前后视距、中丝读数）记录到不同的数组里，这样就可以自由的使用数组来实现水准路线的计算。我们发现“Cont-Line”总是出现在“End-Line”之后，所以在出现“Cont-Line”之后，删除存入内存的“End-Line”数组的最后一项，继续记录后续数据，这样即使一条水准路线出现多个“Cont-Line”，也不会影响数据提取的效果。 解决方法是这样的： If myfilename Then Open myfilename For Input As #1 Do While Not EOF(1) Line Input #1, inputdata1 If Mid(inputdata1, 22, 5) = Start Then n1 = n1 + 1 s(n1) = Val(Mid(inputdata1, 11, 6)) 数组s(n1)标记线路起点 ElseIf Mid(inputdata1, 22, 5) = End-L Then n2 = n2 + 1 e(n2) = Val(Mid(inputdata1, 11, 6)) 数组e(n2)标记