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