泣血跪求，急！在VB中如何读.dat 文件，已知VC中读出的内容。

来源：百度知道 编辑：UC知道 时间：2024/05/21 19:27:36
VC读出的格式如下：
2008-06-14, 10:53:46 0000 97.55
2008-06-14, 10:53:47 0000 2.45
2008-06-14, 10:53:48 0000 79.39
2008-06-14, 10:53:49 0000 65.45
2008-06-14, 10:53:50 0000 5.45
2008-06-14, 10:53:51 0000 99.38
2008-06-14, 10:53:52 0000 14.64
2008-06-14, 10:53:53 0000 57.82
2008-06-14, 10:53:54 0000 72.70
2008-06-14, 10:53:55 0000 5.45
其中时间和最后的数值为要读出的数值，要保存在数组里。
谢谢以上各位
继续等待高人详细的解答

假设文件是“d:\a.dat”，结果储存在a(1,?)数组中。
代码如下。
==========================
Dim a() As String
Dim i As Integer
Private Sub Form_Load()
Open "d:\a.dat" For Input As 1
ReDim a(1, 0)
Do While EOF(1) = False
Dim s As String, p As Integer
Line Input #1, s
p = InStr(1, s, "0000")
a(0, i) = Left(s, p - 2)
a(1, i) = Right(s, Len(s) - p - 4)
i = i + 1
ReDim Preserve a(1, i)
Loop
Close 1
End Sub

DIM I
Open App.Path & "\.DAT" For Input As #1 ' 打开当前路径文件。
ReDim byBuf(1 To LOF(1)) As String
Do While Not EOF(1) ' 循环至文件尾。
I = I + 1
Line Input #1, byBuf（I） ' 读入一行数据并将其赋予某变量数组。
Loop
Close #1

Open "c:/1.dat" For Binary As #1

后缀改成.txt

用open语句