hdm.rar_HDM_hdm横断面格式_抬杆法_横断面_横断面数据

Private Sub Com1_Click() ComDg1.ShowOpen Text1.Text = ComDg1.FileName End Sub Private Sub Com2_Click() End End Sub Private Sub Com3_Click() te1 = Text1.Text te2 = Text2.Text num = InStr(1, te1, ".txt", 1) file1 = Mid(te1, 1, num - 1) file2 = file1 & "new" & ".txt" Dim left(20): Dim h1(20): Dim right(20): Dim h2(20) Open te1 For Input As #1 Open file2 For Output As #2 Do While Not EOF(1) Line Input #1, t1 Line Input #1, t2 Line Input #1, t3 Print #2, t1 n = 1 j = 1 m = 0 p = 0 serch1 = 1 serch2 = 1 serch3 = 1 serch4 = 1 Do While serch1 = 0 serch1 = InStr(n, t2, " ", 1) serch2 = InStr(serch1, t2, " ", 1) left(m) = Mid(t2, n + 1, serch1 - n) h1(m) = Mid(t2, serch1 + 1, serch2 - serch1) n = serch2 m = m + 1 serch3 = InStr(j, t3, " ", 1) serch4 = InStr(serch3, t3, " ", 1) right(p) = Mid(t3, j + 1, serch3 - j) h2(p) = Mid(t3, serch3 + 1, serch4 - serch3) j = serch4 p = p + 1 Loop new1 = "" For k = 0 To m new1 = new1 & left(k) & " " & Format(h1(k) + te2, "0.00") & " " Next k Print #2, new1 new2 = "" For h = 0 To p new2 = new2 & right(h) & " " & Format(h2(h) + te2, "0.00") & " " Next h Print #2, new2 Loop Close #1 Close #2 End Sub