Question

请问如何用VB如何读取文件里某部分的数据（数据分行，分列），然后将读取的数据显示在listbox里。

编写一个计算程序需要读取一个文本中的数据。求高手指点。
数据是这样的
FORWARD GEO_RUSULT
EXPRESS NO SDEPTH EDEPTH OIL
NO SDEPTH EDEPTH OIL
1 1000.000 1001.000 荧光
0 1005.000 1006.000 荧光
0 1006.000 1007.000 荧光
0 1021.000 1024.000 荧光
0 1032.000 1035.000 荧光
0 1047.000 1050.000 荧光
我只想读取 SDEPTH EDEPTH OIL 这三列的数据，请教高手

Answer 1

Private Sub Command1_Click()
Dim inputdata$, datastring$
Open App.Path & IIf(Right(App.Path, 1) = "\", "", "\") & "data.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, inputdata
datastring = datastring & inputdata & vbCrLf
Loop
List1.Clear
tempdata = Split(datastring, Chr(13) + Chr(10))
For I = 0 To UBound(tempdata) - 1
tempdata(I) = Right(tempdata(I), Len(tempdata(I)) - 8)
List1.AddItem tempdata(I)
Next
End Sub

'data.txt 在与该程序同目录下