给你思路吧,自己多动动。
用open打开文件,看附件中的是文本文件。
按行读出文本,赋给字符串。
以“|”分隔字符串
在文本框显示
读完了数据就关闭文件
if instr(1,数据行,"Start-Line") <>0then 状态 = 段开始 '保存段名 elseif instr(1,数据行,"#####") <>0then '忽略,不动作 elseif instr(1,数据行,"Measurement repeated")<>0 then '忽略,不动作 elseif instr(1,数据行,"Station repeated")<>0 then '忽略,不动作 elseif instr(1,数据行,"End-Line") <>0then 状态=段结束 '处理这一段的数据 else '把当前数据行,保存到当前段 end if
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