ArrayList duplicate a text file Learn programming Visual Basic (VB.net)



Lesson:

Dynamic Memory Management


Exercise:

ArrayList duplicate a text file


Objetive:

Create a program that reads from a text file and stores it to another text file by reversing the order of lines.

For example, an input text file like:

yesterday Real Madrid
won against
Barcelona FC

will be stored in an output text file like:

Barcelona FC
won against
yesterday Real Madrid


Code:

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



Juan A. Ripoll - Systems Tutorials and Programming Courses ©  All rights reserved.  Legal Conditions.