2014-11-06 165 views

回答

4

您可以使用System.IO.File.ReadLinesEnumerable.ElementAtOrDefault

Dim line5 = File.ReadLines(pathToFile).ElementAtOrDefault(4) 
If line5 IsNot Nothing Then 
    MessageBox.Show(line5) 
End If 

您需要添加Imports System.Linq的LINQ擴展方法。

0

您可以使用StreamReader類,並只需要看看行()你想

Dim fileReader As System.IO.StreamReader 
fileReader =My.Computer.FileSystem.OpenTextFileReader("C:\\testfile.txt") 
Dim stringReader As String 
Dim linenum as Integer=0 
While not fileReader.EndOfStream() 
    stringReader = fileReader.ReadLine() 
    linenum = linenum + 1 
    If linenum = 5 Then 
     MsgBox(stringReader) 
     Exit While 'If you are done here 
    End If 
End While 

希望它可以幫助

+2

同樣的答案,只有7多行?至少在找到該行後跳出循環 – Steve 2014-11-06 17:21:42

+0

這不是同一個答案,我不使用LINQ。但是你是對的,需要退出循環。我會編輯。 – 2014-11-07 07:02:42