Imports System.IO


Public Class Form1
    'Calling up a filepath for saving the users input plus altered input [file names]
    Public filePath As String = "Input1.TXT"
    Public filePath2 As String = "Input2.TXT"
    Public outputFile As String = "Output.txt"
    Public objReader As New System.IO.StreamReader(filePath)
    Public objReader1 As New System.IO.StreamReader(filePath2)


    Dim line As String
    'Temp Variables

    Dim TempS As String
    Dim TempY As String
    Dim iPass As Integer
    Dim iTemp As Integer



    'Declaring variable for how many numbers there are in TextFileNumbes.txt (I have listed 6 numbers in this case)
    Dim numbers(100) As String
    'Declaring variable for creating a counter for reading all the numbers in TextFileNumbers.txt
    Dim i As Integer = 0

    'Event - To Load Name From TextFile
    Public Sub BtnLoad_Click(sender As Object, e As EventArgs) Handles btnLoad.Click
        If objReader.Peek() <> -1 Then
            'Read one line from the input textfile
            TempS = objReader.ReadLine()


            'Declaring code for placing the numbers into an array
            numbers(i) = TempS
            'Add name read to listbox
            ListBox1.Items.Add(TempS)
            'Add numbers to the listBox titled "Data Combined From Both Files"
            ListBox2.Items.Add(numbers(i))
            'Increment Array
            i += 1

        Else
            'Prompts User End of File Has Been Reached
            MessageBox.Show("End of File Has Been Reached!")

        End If


    End Sub

    Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If objReader1.Peek() <> -1 Then
            'Read one line from the input textfile
            TempY = objReader1.ReadLine()

            'Declaring code for placing the numbers into an array
            numbers(i) = TempY
            'Add name read to listbox
            lstBoxInputFile.Items.Add(TempY)
            'Declaring code for the numbers/data stored in TextFileNumbers to be passed onto the OriginalData listbox
            ListBox2.Items.Add(numbers(i))
            'Increment array counter
            i += 1




        Else
            'If file not located, prompts user that the file isn't there
            MessageBox.Show("End of File Has Been Reached!")

        End If


    End Sub
    'Event - save the user input plus altered text
    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click

    End Sub
    'Event to clear output textfile


    Public Sub btnSort_Click(sender As Object, e As EventArgs) Handles btnSort.Click


        For iPass = 1 To numbers.Length - 1
            For i = 0 To numbers.Length - 2
                If numbers(i) > numbers(i + 1) Then
                    iTemp = numbers(i)
                    numbers(i) = numbers(i + 1)
                    numbers(i + 1) = iTemp
                End If
            Next i
        Next iPass
        Dim sortOut As String
        For i = 0 To numbers.Length - 1

            If Not String.IsNullOrEmpty(numbers(i)) Then
                ListBox3.Items.Add(numbers(i))
            End If


        Next
        MessageBox.Show("The Data has been sorted!")

    End Sub
End Class