Ejercicio
ArrayList duplicar un archivo de texto
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