導入.csv文件的最後一行

Question

我有一個csv文件，我需要將最後一行僅放入單獨的文本框中。

Imports System.IO 

Public Class Form1 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    End Sub 

    Private Sub btnConditions_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConditions.Click 
     Using reader As New StreamReader("C:\temp\Apr12log.txt") 
      Dim line As String = reader.ReadLine() 


      Dim fields() As String = line.Split(",".ToCharArray()) 
      Dim fileDate = CDate(fields(0)) 
      Dim fileTime = fields(1) 
      Dim fileTemp = fields(2) 
      Dim fileHum = fields(3) 
      Dim fileWindSpeed = fields(4) 
      Dim fileWindGust = fields(5) 
      Dim fileWindBearing = fields(6) 

      While line IsNot Nothing 

       line = reader.ReadLine() 
      End While 
      txtDate.Text = CStr(fileDate) 
     End Using 

    End Sub 

End Class 

它只輸入第一行我不知道如何獲得最後一行。 txtfile

01/04/12,00:00,5.4,80,3.0,4.5,9.6,261,0.0,0.0,1025.0,1.0,16.8,43,4.0,3.8,5.4,0.0,0,0.0 

Answer 1

或者，您可以使用System.IO.File ReadLines()函數，該函數爲您提供了一個枚舉，您可以調用Last（）。

Private Sub btnConditions_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConditions.Click 

     Dim line As String = System.IO.File.ReadLines("C:\temp\Apr12log.txt").Last() 

     Dim fields() As String = line.Split(",".ToCharArray()) 
     Dim fileDate = CDate(fields(0)) 
     Dim fileTime = fields(1) 
     Dim fileTemp = fields(2) 
     Dim fileHum = fields(3) 
     Dim fileWindSpeed = fields(4) 
     Dim fileWindGust = fields(5) 
     Dim fileWindBearing = fields(6) 

     txtDate.Text = CStr(fileDate) 

End Sub 

Answer 2

的

例子試試這個：

Dim lines() As String = File.ReadAllLines("C:\temp\Apr12log.txt") 

lastLine = lines(lines.Length - 1) 

Answer 3

你只是在一個線讀取。而是使用ReadToEnd的（），然後由新線分開，就像這樣：

Dim lines() As String = reader.ReadToEnd().Split(Environment.NewLine) 

然後你可以移動到最後一行：

Dim line As String = lines(lines.Length - 1) 

Answer 4

你可以得到你想要的東西與一對夫婦編輯的你的現有代碼：

移

While line IsNot Nothing 

     line = reader.ReadLine() 
    End While 

爲了剛過

Dim line As String = reader.ReadLine() 

添加另一個

Dim line2 As String = Nothing 

而且插入

 line2 = line 

進入While循環，即

While line IsNot Nothing 
     line2 = line 
     line = reader.ReadLine() 
    End While 

現在line2是文件的最後一行。