只读行数超过一定数量的.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。