ความคิดเห็นที่ 29
บรรทัดที่ 135 - 138 นั่นหมายถึงต้องการผลลัพธ์ของ 3.4 Coordinate differences ITRF (IGS05) ที่เป็นค่า X, Y, Z ใช่หรือไม่ครับ?
ถ้าใช่ ก็เอา code ข้างล่างนี้ไป run ผ่าน microsoft excel ได้เลยครับ
Sub main()
Dim TextLine
Dim MyFile
Dim NextFile As Boolean
MyFile = Dir("C:\*.SUM")
Open "C:\OUTPUT.TXT" For Output As #2
Print #2, "3.4 Coordinate differences ITRF (IGS05)"
Do While MyFile <> ""
Open "C:\" & MyFile For Input As #1
NextFile = False
Do While Not EOF(1) And NextFile = False
Line Input #1, TextLine
If Mid(TextLine, 1, 40) = " 3.4 Coordinate differences ITRF (IGS05)" Then
Line Input #1, TextLine
Line Input #1, TextLine
Line Input #1, TextLine
Print #2, TextLine
Line Input #1, TextLine
Print #2, TextLine
Line Input #1, TextLine
Print #2, TextLine
NextFile = True
End If
Loop
Close #1
MyFile = Dir
Loop
Close #2
End Sub
จากคุณ :
thebackofveryfront
- [
30 มี.ค. 51 22:56:51
A:125.24.30.192 X: TicketID:020615
]
|
|
|
... เข้ามาดู
