只讀行數超過一定數量的.txt文件

Question

我一直在尋找一段時間的網絡，試圖找出如何簡單地從.txt文件中只讀取長度超過0個字符的行到VB中的列表框中。我正在使用VS 2010，並且只想將包含內容的行讀入列表框中。

比如我想爲只讀，標有1

1 
1 


1 
1 

1 

Answer 1

您可以使用ReadAllLines組合和LINQ：

ListBox1.DataSource = IO.File.ReadAllLines("file.txt").Where(Function(x) x.Length > 0).ToList 

要開始在3號線，用Skip：

IO.File.ReadAllLines("file.txt").Skip(2).Where(Function(x) x.Length > 0).ToList 

Answer 2

所以你只是想添加文本行：

Dim notEmptyLines = From line In IO.File.ReadLines(path) 
        Where Not String.IsNullOrWhiteSpace(line) 

For Each line In notEmptyLines 
    ListBox1.Items.Add(line) 
Next 

如果您還想計算空格，請將Not String.IsNullOrWhiteSpace(line)替換爲line.Length <> 0。