在vb.net中读取文本文件和跳过空行

下面的代码将文本文件的内容附加到我的

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

您可以循环浏览这些行并跳过空白的行。以下代码跳过空行或仅包含空白的行。如果只想跳过空行，请将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