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

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

1 个答案: