16,555
社区成员
发帖
与我相关
我的任务
分享
Dim i As Integer = 0
Dim Myfile As New StreamReader("c:\data.txt") '默认保存路径
'While Not Myfile.EndOfStream
Do While (Myfile.Peek <> -1)
gray(i) = Myfile.ReadLine().Substring(0, 12) 'gary
time(i) = CDate(Myfile.ReadLine().Substring(24, 9)) 'time
i = i + 1
Loop
'End While
Myfile.Close()
cur_gray = gray(i - 1)
cur_time = time(i - 1)
TextBox1.Text += cur_gray
TextBox1.Text += vbCrLf
TextBox1.Text += cur_time
TextBox1.Text += vbCrLf