Adding multiple text files together, removing unwanted blank lines, and then adding a blank line to separate each file

See more:

VB

Thanks to Richard I was able to go a little further in the process of manipulating the data I have. However, I need to remove blank lines from each file and then separate them individually by a blank line per file being read.

this is what I have so far:

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       Dim Files As New OpenFileDialog
       Files.Filter = "text(*.TXT files|*.txt"
       ' Allow the user to select multiple images.
       Files.Multiselect = True
       Files.Title = "Select an image"
       Files.ShowDialog()

       Dim fileCount = Files.FileNames.Length
       Dim text(fileCount - 1) As String

       For i As Integer = 0 To fileCount - 1

           Dim textpath As String = Path.GetFullPath(Files.FileNames(i))
           text(i) = System.IO.File.ReadAllText(textpath)

       Next


       For Each textpath As String In Files.FileNames

           RichTextBox1.Text += Environment.NewLine + String.Join(Environment.NewLine, System.IO.File.ReadAllText(textpath).Split(New Char() {ControlChars.Lf}, StringSplitOptions.RemoveEmptyEntries))

       Next

This code, in particular, removes the lines after completion on the all file read and then removes the lines. However, this is not my anticipated result as I want to remove per file and then add a blank line to separate each file, then display it into the richtextbox.

What I have tried:

I have tried use

RichTextBox1.Lines = Me.RichTextBox1.Text.Split(New Char() {ControlChars.Lf}, StringSplitOptions.RemoveEmptyEntries)

in the for each statement but it still produced a singular output with no lines.