在 vb.net 中读取文本文件并跳过空行答案

【问题标题】：Reading text file and skipping blank lines in vb.net在 vb.net 中读取文本文件并跳过空行
【发布时间】：2015-04-27 22:00:27
【问题描述】：

我有以下代码，它将文本文件的内容附加到我的RichTextBox1。

Dim FileName = New DirectoryInfo(Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "CLIENT HISTORY\" & TextBox1.Text))

For Each ClientDetailsCHT As FileInfo In FileName.GetFiles("*.CHT", SearchOption.TopDirectoryOnly)
    RichTextBox1.AppendText(File.ReadAllText(ClientDetailsCHT.FullName))
Next
' Send to printing sub

这很好用。

我遇到的问题是此文本文件有时包含空行，我想跳过这些空行，以便代码仅将文本附加到 RichTextBox。

如何重写我的代码来实现这一点？我正在使用 Visual Basic 2010。

【问题讨论】：

标签： vb.net visual-studio-2010 text-files

【解决方案1】：

您可以遍历这些行并跳过空白的行。以下代码跳过空行或仅包含空格的行。如果只想跳过空行，请将 IsNullOrWhiteSpace 更改为 IsNullOrEmpty。

Dim FileName = New DirectoryInfo(Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "CLIENT HISTORY\" & TextBox1.Text))

For Each ClientDetailsCHT As FileInfo In FileName.GetFiles("*.CHT", SearchOption.TopDirectoryOnly)
    For Each line As String In File.ReadAllLines(ClientDetailsCHT.FullName)
        If Not String.IsNullOrWhiteSpace(line) Then RichTextBox1.AppendText(line & vbCrLf)
    Next
Next
' Send to printing sub

【讨论】：