回复 2楼 lianyicq
谢谢 大哥 我试试
2015-05-15 11:02
2015-05-16 16:15
程序代码:Do While Not EOF(1)
Line Input #1, TB '一行一行读取文件
If Mid(TB, 22, 10) = "Start-Line" Then
a = Mid(TB, 38, 5)
qd = Mid(TB, 45, 4)
Text8.Text = Text8.Text + a + "," + qd + Chr(13) + Chr(10)
If Mid(TB, 34, 1) = "#" Or Mid(TB, 22, 20) = "Measurement repeated" Or Mid(TB, 22, 16) = "Station repeated" Or Mid(TB, 22, 7) = "Reading" Then
2015-05-20 09:00