用VB实现道路断面测量数据的提取与图形绘制.docVIP

用VB实现道路断面测量数据的提取与图形绘制 Private Sub Command1_Click() 数据提取过程开始 opendlg.Filter = 高程文件 *.cor|*.cor 打开测量文件 opendlg.ShowOpen filenamel = LTrim$(RTrim$(opendlg.FileName)) Text1.Text = filenamel If filenamel = Then Beep: Exit Sub temp = InStrRev(filename1, ,) tempfile = Left(filenamel, temp) txt Open filenamel For Input As #1 If Val(Trim$(Text2.Text)) 0 Then Exit Sub Do While Not EOF(1) Line Input #1, chenl$ If InStr(chenl$, $) 0 And Val(chenstrl(chenl$)) = Val(Trim$(Text2.Text)) Then 判断是$与编码 n = Val(chenstrl(chenstr2(chenl$))) ReDim cbNumber(n, 3) As Double cbString = : cbCount = 0 For i = 1 To n 把数据调入数组 Line Input #1, chenl$ If InStr(UCase$(chenstrl(ehenl$)), K) Then cbCount = i: cbString = chenstrl(chenl$) cbNumber(i, 0) = Val(chenstrl(chenstr2(chenl$))) cbNumber(i, 1) = Val(chenstrl(chenstr2(chenstr2(chenl$)))) cbNumber(i, 2) = Val(chenstrl(chenstr2(chenstr2(chenstr2(chenl$))))) If i = n And cbCount = 0 Then MsgBox 编码错误。请检查中心桩编号 : Exit Sub Next i Open tempfile For Append As #2 把数据计算后写入数据文件 Print #2, cbString Print #2, 0 Format$(cbNumber(cbCount, 2), 0.00) For i = 1 To n If i cbCount Then cbdist = Sqr((cbNumber(i, 0) - cbNumber(cbCount, 0)) * (cbNumber(i, 0) - cbNumber(cbCount, 0)) + (cbNumber(i, 1) - cbNumber(cbCount, 1)) * (cbNumber(i, 1) - cbNumber(cbCount, 1))) If i cbCount Then Print #2, Format$(cbdist, -0.0), Format$(cbNumber(i, 2), 0.00) If i cbCount Then Print #2, Format$(cbdist, 0.0), Format$(cbNumber(i, 2), 0.00) End If Next i Close #2 Erase cbNumber End If Loop Close #1 End Sub 数据提取过程结束 Private Function chenstrl(ByVal chr1) 字符串空格前的字符函数 chenchr = LTrim$(RTrim$(chr1)) If InStr(chenchr, ) 0 Then spl = InStr(chenchr, ) chenstrl = Left(chenchr, spl - 1) End If End Function Private Function chenstr2(ByVal chr1) As String 实现截取字符串空格后的字符函数 chenchr = LTrim$(RTrim$(chr1)) numl = Len(chenchr) If InStr(chenchr, ) 0 Then spl = InStr(chenchr, ) chenstr2 = Right(chenchr, numl - sp1) End If End Function Private Sub Command2_Click() 断面绘制过程开始 Dim chen3 As String Di