如何解决阅读文本文件VB.Net Win表格的最后2行
从一个按钮单击,我试图读取一个文本文件,然后仅将最后两行输出到Label中。文本文件中的数据会定期更改,但格式始终相同。
这是文本文件中内容的示例。
1393
00:23:12,000-> 00:23:13,000
2020/08/12 12:43:47
+ DMR DCC = 4
插槽1 TG = 9003 RID = 69
最后两行是我感兴趣的,在上面的示例中将是
+ DMR DCC = 4
插槽1 TG = 9003 RID = 69
到目前为止,这是我似乎可以使用的功能,但我只是觉得有点混乱,想知道是否还有其他建议。
Private Sub Button1_Click(sender As Object,e As EventArgs) Handles Button1.Click
Label1.text= ReadLog()
End Sub
Public Function ReadLog() As String
Dim lines() As String = IO.File.ReadAllLines("C:\MyApp\log.txt")
If lines.Length <= 4 Then Return String.Join(Environment.NewLine,lines)
Dim lines4(3) As String
Array.Copy(lines,lines.Length - 3,lines4,3)
Return String.Join(Environment.NewLine,lines4)
End Function
解决方法
您说您想要最后两行,但是您拥有的代码表明您想要最后四行。无论如何,在下面的代码中将lineCount
设置为适当的值。
Dim lines = File.ReadAllLines(filePath)
Dim lastLines = lines.Skip(Math.Max(0,lines.Length - lineCount))
Dim text = String.Join(Environment.NewLine,lastLines)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。