Module FileOperations

    Function FileOpener(ByVal FileName As String, ByVal FileNumber As Integer) As Array
        Dim Array(1) As String
        Dim i As Integer = 0
        Dim temp As String

        FileOpen(FileNumber, FileName, OpenMode.Input)

        While Not EOF(FileNumber)
            Input(FileNumber, temp)
            Array(i) = temp
            i += 1
            ReDim Preserve Array(i)
        End While

        FileClose(FileNumber)

        Return Array

    End Function

    Sub FileWriter(ByVal FileName As String, ByVal FileNumber As Integer, ByVal Array() As String)
        FileOpen(FileNumber, FileName, OpenMode.Output)

        For i As Integer = 0 To Array.GetLength(0)
            WriteLine(FileNumber, Array(i))
        Next

        FileClose(FileNumber)
    End Sub

    Function DialogFileOpener(ByVal Dialog As FileDialog, ByVal FileNumber As Integer) As Array
        Dim Array(1) As String
        Dim i As Integer = 0
        Dim temp As String

        Dialog.InitialDirectory = "C:\"
        Dialog.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        Dialog.FilterIndex = 2
        Dialog.RestoreDirectory = True

        Dialog.ShowDialog()

        FileOpen(FileNumber, Dialog.FileName, OpenMode.Input)

        While Not EOF(FileNumber)
            Input(FileNumber, temp)
            Array(i) = temp
            i += 1
            ReDim Preserve Array(i)
        End While

        FileClose(FileNumber)

        Return Array
    End Function

    Sub DialogFileWriter(ByVal Dialog As FileDialog, ByVal FileNumber As Integer, ByVal Array() As String)

        Dialog.InitialDirectory = "C:\"
        Dialog.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        Dialog.FilterIndex = 2
        Dialog.RestoreDirectory = True

        FileOpen(FileNumber, Dialog.FileName, OpenMode.Output)

        For i As Integer = 0 To Array.GetLength(0)
            WriteLine(FileNumber, Array(i))
        Next

        FileClose(FileNumber)
    End Sub

  
End Module