基于vb電子水準(zhǔn)儀觀(guān)測(cè)數(shù)據(jù)處理-文庫(kù)吧資料
2025-07-01 15:10本頁(yè)面
【正文】 (c) = FirTime(c) amp。 FC1(j)。 BC2(j)。 BC1(j)。 FD2(j)。 FD1(j)。 BD2(j)。 BD1(j)。 Mid(FirTime(c), 9, 2) LasTime(c) = FirTime(c) End If m = 0 K = 0’循環(huán)記錄需要提取數(shù)據(jù)的準(zhǔn)確位置 For j = 1 To 6 m = InStr(m + 1, line, ,) If m 0 Then K = K + 1 If K = 1 Then k1 = m If K = 2 Then k2 = m If K = 3 Then k3 = m If K = 4 Then k4 = m If K = 5 Then k5 = m If K = 6 Then k6 = m Next j’開(kāi)始循環(huán)讀取各測(cè)段中指定位置的有效測(cè)站數(shù)據(jù)，如前距，后距，中絲讀數(shù) If K = 6 Then t = t + 1 CPoint(t) = Left(line, k1 1) If Mid(line, k2 2, 2) = B1 Then x1 = x1 + 1 bpoint(x1) = Mid(line, 3, 8) BC1(x1) = Val(Mid(line, k2 + 1, 10)) BD1(x1) = Val(Mid(line, k3 + 1, 10)) Ctime(x1) = Mid(line, k5 + 1, 8) End If If Mid(line, k2 2, 2) = F1 Then x2 = x2 + 1 fpoint1(x2) = Mid(line, 3, 8) FC1(x2) = Val(Mid(line, k2 + 1, 10)) FD1(x2) = Val(Mid(line, k3 + 1, 10)) End If If Mid(line, k2 2, 2) = F2 Then x3 = x3 + 1 FC2(x3) = Val(Mid(line, k2 + 1, 10)) FD2(x3) = Val(Mid(line, k3 + 1, 10)) End If If Mid(line, k2 2, 2) = B2 Then x4 = x4 + 1 BC2(x4) = Val(Mid(line, k2 + 1, 10)) BD2(x4) = Val(Mid(line, k3 + 1, 10)) End If End If If line = 水準(zhǔn)線(xiàn)路總結(jié) Then Print 3, c F
電大資料相關(guān)推薦
鄂ICP備17016276號(hào)-1