Как заполнить Rich Text Box строка за строкой с TXT? В.Б

Question

Я пытаюсь заполнить текстовое поле построчно файлом txt ... без результата!

Вот результат, который хотелось бы получить:

1. Дом 2. Собака 3. Кошка 4. И т.д.

каждый подряд под другим

Любая помощь будет отличной! заранее спасибо!

Answer 1

Это довольно просто, брат:

Private Sub FillRichTextBoxFromFile(ByVal path As String)
        Try
            If IO.File.Exists(path) Then
                Using sr As New IO.StreamReader(path)
                    Dim s As String = ""
                    Dim i As Integer = 1
                    While Not sr.EndOfStream
                        s += CStr(i) + ". " + sr.ReadLine + vbNewLine
                        i += 1
                    End While
                    RichTextBox1.Text = s
                End Using
            Else
                MsgBox("Oooops, File not found !!!")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

Answer 2

Вы также можете попробовать это

    Dim fileContents() As String

    If Not My.Computer.FileSystem.FileExists("C:\New.txt") Then

        MsgBox("File Not Found")
        Exit Sub

    End If

    RichTextBox1.Text = vbNullString

    fileContents = Split(My.Computer.FileSystem.ReadAllText("C:\New.txt"), vbNewLine)

    For i = 0 To fileContents.Count - 1

        RichTextBox1.Text += i + 1 & ". " & fileContents(i) & vbNewLine

    Next