readLine 怎么读取一行中的两个位置的数据

[Pirate scholar]

直接上代码吧

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

读出来的time是最后一行，但是gray是前一行的，知道问题出在哪里，但是想读取最后一行的gray怎么读取？

[Pirate scholar]

求急回帖，请各位大神帮忙！

[exception92]

把最后一行ReadLine 出来的文本存到一个临时变量里，再对这个变量进行不同的substring。

[Pirate scholar]

引用 2 楼 duanzi_peng 的回复:

把最后一行ReadLine 出来的文本存到一个临时变量里，再对这个变量进行不同的substring。

已经解决，用同样的方式