ArrayList duplicar un archivo de texto Aprende programación con ejercicios Visual Basic (VB.net)

Lección:

Gestión Dinámica de Memoria

Ejercicio:

ArrayList duplicar un archivo de texto 32


Objetivo:

Cree un programa que lea desde un archivo de texto y lo almacene en otro archivo de texto invirtiendo las líneas.

Por lo tanto, un archivo de texto de entrada como:

ayer el Madrid
le ganó
al Barcelona

se almacenará en un archivo de texto de salida como:

al Barcelona
le ganó
ayer el Madrid


Código:

Imports System
Imports System.IO
Imports System.Collections
Namespace TextFileInvert
    Class Program
        Private Shared Sub Main(ByVal args As String())
            Console.Write("Introduce el nombre del fichero: ")
            Dim nombreArchivo As String = Console.ReadLine()

            If Not File.Exists(nombreArchivo) Then
                Console.Write("El archivo no existe!")
                Return
            End If

            Try
                Dim miArchivo As StreamReader
                miArchivo = File.OpenText(nombreArchivo)
                Dim line As String
                Dim miLista As ArrayList = New ArrayList()

                Do
                    line = miArchivo.ReadLine()
                    If line IsNot Nothing Then miLista.Add(line)
                Loop While line IsNot Nothing

                miArchivo.Close()
                Dim miArchivoAlReves As StreamWriter = File.CreateText(nombreArchivo & "-reverse.txt")
                Dim tamanyoArchivo As Integer = miLista.Count

                For i As Integer = tamanyoArchivo - 1 To 0
                    miArchivoAlReves.WriteLine(miLista(i))
                Next

                miArchivoAlReves.Close()
            Catch e As Exception
                Console.WriteLine("Error, " & e.Message)
            End Try

            Console.ReadLine()
        End Sub
    End Class
End Namespace