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

Pirate scholar Pirate scholar 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
直接上代码吧
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怎么读取?
...全文

相关推荐

评论 3
收藏 已收藏
分享
返回顶部
Pirate scholar
VB 16,718 成员 110,520 内容