File.ReadLine在TextBlock中的每一行之后添加换行符

Question

我正在尝试阅读文本文件并将信息显示在文本块中。例如，在代码的这一部分中，我使用file.readlines函数来查找所有IPv4条目并将它们放入文本块中。问题是当我运行代码时，我只看到最后一个IPv4地址，其他地址被删除。我想要显示所有的线条。我确信我错过了一些简单的事情。这是代码：

For Each line As String In File.ReadLines("c:\temp\logs\pcinfo.txt")
        If line.Contains("IPv4") And line.Contains(":") Then
            TextBlock1.Text = line
        End If
    Next line

Answer 1

您需要将该行附加到TextBox，而不是替换TextBox中已有的行。如果你想要多行，你还需要添加换行符。

TextBlock1.Text &= line & vbCrLf