Mix and sort files Learn programming Visual Basic (VB.net)

Lesson:

Dynamic Memory Management


Exercise:

Mix and sort files 10


Objetive:

Mix and sort files


Code:

Imports System
Imports System.IO
Imports System.Collections
Namespace Text
    Class Program
        Private Shared Sub Main(ByVal args As String())
            Console.Write("Enter name of file1: ")
            Dim nameFile1 As String = Console.ReadLine()
            Console.Write("Enter name of file2: ")
            Dim nameFile2 As String = Console.ReadLine()

            If (Not File.Exists(nameFile1)) OrElse (Not File.Exists(nameFile2)) Then
                Console.Write("File 1 or File 2 not exists")
                Return
            End If

            Try
                Dim myfile As StreamReader = File.OpenText(nameFile1)
                Dim list As ArrayList = New ArrayList()
                Dim line As String

                Do
                    line = myfile.ReadLine()
                    If line IsNot Nothing Then list.Add(line)
                Loop While line IsNot Nothing

                myfile.Close()
                myfile = File.OpenText(nameFile2)
                line = ""

                Do
                    line = myfile.ReadLine()
                    If line IsNot Nothing Then list.Add(line)
                Loop While line IsNot Nothing

                myfile.Close()
                list.Sort()

                For i As Integer = 0 To list.Count - 1
                    Console.WriteLine(list(i))
                Next

            Catch e As Exception
                Console.WriteLine("Error al intentar abir el fichero.")
            End Try
        End Sub
    End Class
End Namespace