Question

vb6 中如何读取文件文件中的日期时间序列和相应数据，文件格式如下：

1991-1-1 00:00:00 -0.08
1991-1-1 01:00:00 -1.42
1991-1-1 02:00:00 -2.52
1991-1-1 03:00:00 -3.3
1991-1-1 04:00:00 -3.22
1991-1-1 05:00:00 -2.24
1991-1-1 06:00:00 -0.76
1991-1-1 07:00:00 0.56
1991-1-1 08:00:00 1.9
1991-1-1 09:00:00 3.12
1991-1-1 10:00:00 3.14
1991-1-1 11:00:00 2.56
1991-1-1 12:00:00 1.54
像这样能够在MSFlexGrid之类的控件中显示出来，最好数据能修改编辑

Answer 1

你要达到什么样的结果?

如果是这样的要求，我建议使用数据库文件。

当然，你这样也可以的，问题你上面的数据包括 几点 --- 几点的，到表格里，不要这样的格式了？
我先告诉你如何读取文本文件吧！

Option Explicit
Private Sub Command1_Click()
Dim LStr As String
Dim d() As String
Dim i As Integer
Open "c:\ssk2.txt" For Input As #1
Do While Not EOF(1) ' 循环至文件尾
Line Input #1, LStr '读入一行
d = Split(LStr, " ") '以一个西文空格为分隔符号，把一行分离到数组里
For i = 0 To UBound(d)
Print d(i); " "; '输出显示
Next i
Print
Loop
Close #1 ' 关闭文件。
End Sub

追问

首先感谢你的关注，到表格里也要这样的格式的
你这种是可以读取出来，但把日期和时间分开读取了
能不能定义一个日期变量,直接把日期时间读出来呢
dim dt as date
Input #1, dt, ...,
使dt=1991-1-1 00:00:00 。。。
我试过了，不行，可能是因为空格分开了，不能识别一个完整的日期时间了

追答

当然需要额外的操作了，因为我说了，你这个不是标准的日期时间格式，前面是日期，后面是几点-几点的格式，那只能另外操作了！

Answer 2

Private Sub Form_Load()
Open "c:\11.txt" For Input As #1
Dim a, b, i, x
a = StrConv(InputB(LOF(1), 1), vbUnicode)
b = Split(a, vbCrLf)
With MSHFlexGrid1
.Rows = UBound(b) + 1
.Cols = 3
.ColWidth(0) = 300
.ColWidth(1) = 2000
.ColWidth(2) = 1000
For i = 0 To UBound(b)
x = InStr(InStr(b(i), " ") + 1, b(i), " ")
.TextMatrix(i, 1) = Left(b(i), x - 1)
.TextMatrix(i, 2) = Trim(Mid(b(i), x + 1))
Next
End With

End Sub