Как получить первую строку из файла в текстовом vb.net

Question

Это мой код для чтения txtfile и поместить его в DataGridView

Dim filename As String = String.Empty 
Dim TextLine As String = "" 
Dim SplitLine() As String 


    ofd1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*" 
    ofd1.FilterIndex = 2 
    ofd1.RestoreDirectory = True 
    ofd1.Title = "Open Text File" 

    'get the filename of the txt file 
    If ofd1.ShowDialog() = DialogResult.OK Then 
     filename = ofd1.FileName 
    End If 

    'if the filename is existing 
    If System.IO.File.Exists(filename) = True Then 

     Dim objReader As New System.IO.StreamReader(filename) 

     Do While objReader.Peek() <> -1 
      TextLine = objReader.ReadLine() 
      SplitLine = Split(TextLine, ",") 
      dvList.Rows.Add(SplitLine) 
     Loop 

    End If 

Это текстовый файл:

False, 1-305-9097-01-2, 879.75, 122009, fr 
False, 1-305-9097-02-2, 879.75, 122009, fr 
False, 1-305-9097-02-3, 879.75, 122009, fr 
False, 1-305-9097-03-5, 899.75, 122009, fr 

Теперь я хочу получить только первую запись моего txtfile и поместить ее в msgbox, как я могу это сделать?

Я попытался это:

MsgBox(SplitLine.tostring) 

Но выход из этого кода заключается в следующем: System.String []

Спасибо.

Answer 1

Вы можете сделать это без 2 отдельных считывателей, поскольку у вас уже есть доступное значение.

Dim objReader As New System.IO.StreamReader(filename) 
Dim lineCount as Integer 'lines read so far in file 

Do While objReader.Peek() <> -1 
    TextLine = objReader.ReadLine() 
    If lineCount = 0 Then msgbox(TextLine) 'will show msgbox in first iteration 
    SplitLine = Split(TextLine, ",") 
    dvList.Rows.Add(SplitLine) 
    lineCount = lineCount + 1 'increment lineCount 
Loop 

Answer 2

Я уже сделал рабочий код для этого, здесь:

Dim msgboxReader As New System.IO.StreamReader(filename) 

    msgbox(msgboxReader.ReadLine()) 

Dim objReader As New System.IO.StreamReader(filename) 

    Do While objReader.Peek() <> -1 
     TextLine = objReader.ReadLine() 
     SplitLine = Split(TextLine, ",") 
     dvList.Rows.Add(SplitLine) 
    Loop 

UPDATE Я просто объявить еще один читатель, чтобы прочитать первую строку только

Answer 3

дим сначала как Boolean = True

Редактировать петлю следующим образом:

Do While objReader.Peek() <> -1 
    TextLine = objReader.ReadLine() 
    If First Then MessageBox(TextLine) : First = False 
    SplitLine = Split(TextLine, ",") 
    dvList.Rows.Add(SplitLine) 
Loop