探究沉降监测数据处理.docVIP

探究沉降监测数据处理 　　摘要：沉降监测是一项精密的工程测量，对可能发生危险的先兆，判断工程的安全性，防止工程破坏事故的发生起到至关重要的作用。不同的厂家，各种不同的仪器，数据格式千差万别，建设单位以及建设监理、监督单位，要求提交的数据格式也有不同的规定。为了提高工作效率，满足不同单位的要求，自做一沉降监测数据处理程序，跟同行共同探讨。 　　关键词：ADO；数据格式；SPLIT函数 　　中图分类号：D922.3 文献标识码： A 　　1 引言 　　沉降监测中，对一般性的高层建（构）筑物，采用二等水准测量的观测方法就能满足要求，仪器多采用精密的电子水准仪，本文以天宝DINI03为例，全面阐述一下其数据的导入和处理过程。 　　2 数据导入的设计 　　本程序是利用VB语言读取电子水准仪的输出文件，然后利用Microsoft ActivX Data Object 2.6 Library ADO对象库的引用，把数据导入到access数据库中。例如，天宝DINI03电子水准仪输出的数据如1-1图，其第一行是文件名，第二行是开始观测行，因为是第一站（奇数站）所以用后、前、前、后方式观测，第三行是水准起点，第四行到第七行是前、后视高，前、后视距，第八行是第一站高程，第十九行到三十四行是无用的数据（铟钢尺没有扶正等原因造成的）第四十一、四十二行是间视点，每行分六个字段。因而首先用VB的函数SPLIT ：S=SPLIT((textline1, |)，把每行分成六个数组进行处理，然后用INSTR以及MID函数：InStr(1, s(3), QSHiSHiGaoZIDuan)，作为条件，剔除无用的数据，把视距，视高等有用的数据导进access数据库，以备下一步进行数据处理。数据导入的部分代码如下： 　　 adodblianjie1 　　 rs1.Source = select * from 水准表 　　 rs1.ActiveConnection = conn1 　　 rs1.Open 　　Do While Not EOF(1) 　　For i = 1 To 45 　　 Line Input #1, textline1 　　 s = Split(textline1, |) 　　 If InStr(11, s(2), #) Or InStr(11, s(2), WeiJianMing) Or InStr(1, s(2), KaiSHiHang) Or InStr(1, s(2), CHongFuCeZHan) Or InStr(1, s(2), KaiSHiJianSHiDian) Or InStr(1, s(2), JieSHUJianSHiDian) Or InStr(1, s(2), JieSHuHang) Or InStr(1, s(3), SHiJuCHa) Or InStr(1, s(3), QianSHiJuHe) Then 　　 Else 　　 rs1.AddNew 　　 QHdianMing = Trim(Mid(s(2), 4, 15)) 　　 rs1.Fields(测量时间) = Calendar1.Value 　　If InStr(1, s(3), QSHiSHiGaoZIDuan) Then 　　 ChangDu = Len(s(3)) 　　 QianSHiSHiGao = Val(Trim(Mid(s(3), 3, ChangDu - 5))) 　　SJChangDu = Len(s(4)) 　　QianSHiJu = Val(Trim(Mid(s(4), 3, SJChangDu - 5))) 　　If Rf Then 　　rs1.Fields(前视视高1) = QianSHiSHiGao 　　rs1.Fields(前视视距1) = QianSHiJu 　　 rs1.Fields(测站点) = 前 QHdianMing 　　 Else 　　rs1.Fields(前视视高2) = QianSHiSHiGao 　　rs1.Fields(前视视距2) = QianSHiJu 　　rs1.Fields(测站点) = 前 QHdianMing 　　End If 　　Rf = Not Rf 　　End If 　　If InStr(1, s(3), HSHiSHiGaoZiDuan) Then 　　ChangDu = Len(s(3)) 　　HouSHiSHiGao = Val(Trim(Mid(s(3), 3, ChangDu - 5))) 　　SJChangDu = Len(s(4)) 　　HouSHiJu = Val(Trim(Mid(s(4)