.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 line As String = lines(lines.Length - 1) 

Answer 4

당신은 당신이 원하는 것을 얻을 수 있습니다

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

그런 다음 마지막 행으로 이동할 수 있습니다 기존 코드 :

시프트

While line IsNot Nothing 

     line = reader.ReadLine() 
    End While 

으로 직후

Dim line As String = reader.ReadLine() 

즉

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

지금 line2이 파일의 마지막 라인, 다른

Dim line2 As String = Nothing 

을 추가하고 While 루프에

 line2 = line 

삽입합니다.