读取文本文件并跳过 vb.net 中的空行

Question

我有以下代码将文本文件的内容附加到我的 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。

Answer 1

您可以遍历这些行并跳过那些空白的行。以下代码跳过空行或仅包含白色 space 的行。如果只想跳过空行，请将 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

读取文本文件并跳过 vb.net 中的空行

Reading text file and skipping blank lines in vb.net

vb.net

visual-studio-2010

text-files