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

Pirate scholar 2017-12-07 09:07:12
直接上代码吧
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怎么读取?
...全文
286 3 打赏 收藏 举报
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
Pirate scholar 2017-12-09
引用 2 楼 duanzi_peng 的回复:
把最后一行ReadLine 出来的文本存到一个临时变量里,再对这个变量进行不同的substring。
已经解决,用同样的方式
  • 打赏
  • 举报
回复
exception92 2017-12-07
把最后一行ReadLine 出来的文本存到一个临时变量里,再对这个变量进行不同的substring。
  • 打赏
  • 举报
回复
Pirate scholar 2017-12-07
求急回帖,请各位大神帮忙!
  • 打赏
  • 举报
回复
相关推荐
发帖
VB
加入

1.6w+

社区成员

VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
申请成为版主
帖子事件
创建了帖子
2017-12-07 09:07
社区公告
暂无公告