ArrayList - Text file reader VB.Net Exercise - Visual Basic Programming Course


ArrayList - Text file reader


provide your basic text file reader here, which displays 21 lines of text and allows the user to navigate using the up and down arrow keys, and exit using the ESC key.

The text file reader should have three methods:

ReadFile (reads the text file and stores it in memory)
ShowMenu (clears the console, sets the top and bottom lines of the console [row 23], changes colors using Console.BackgroundColor, Console.ForegroundColor, ConsoleColor and Console.SetCursorPosition(column, row). Once the menu is prepared, remember to set the cursor in the second row).
ShowFrom (writes 21 lines, considering the position of the first line to write)
The main program logic should be as follows: ShowMenu, ShowFrom, ReadKey, ShowMenu, ShowFrom, ReadKey....


Imports System
Imports System.IO
Imports System.Collections
Namespace LectorTexto
    Class Program
        Shared lista As ArrayList = New ArrayList()
        Shared fin As Boolean
        Shared lineaDesde As Integer = 0, lineaHasta As Integer = 21

        Private Shared Sub Main(ByVal args As String())
            Console.Write("Introduce nombre archivo: ")
            Dim nombreArchivo As String = Console.ReadLine()

                EscribirLineas(lineaDesde, lineaHasta)
            Loop While Not fin
        End Sub

        Private Shared Sub LeerTecla()
            Dim cki As ConsoleKeyInfo
            cki = Console.ReadKey()

            If cki.Key = ConsoleKey.Escape Then
                fin = True
            ElseIf cki.Key = ConsoleKey.UpArrow Then

                If lineaDesde > 0 Then
                    lineaDesde -= 1
                    lineaHasta -= 1
                End If
            ElseIf cki.Key = ConsoleKey.DownArrow Then

                If lineaHasta < lista.Count Then
                    lineaDesde += 1
                    lineaHasta += 1
                End If
            ElseIf cki.Key = ConsoleKey.PageUp Then

                If (lineaHasta + 21) < lista.Count Then
                    lineaDesde += 21
                    lineaHasta += 21
                    lineaDesde += lista.Count - lineaHasta
                    lineaHasta += lista.Count - lineaHasta
                End If
            ElseIf cki.Key = ConsoleKey.PageDown Then

                If (lineaDesde - 21) > 0 Then
                    lineaDesde -= 21
                    lineaHasta -= 21
                    lineaHasta = lineaDesde + (21 - lineaDesde)
                    lineaDesde = 0
                End If
            End If
        End Sub

        Private Shared Sub EscribirLineas(ByVal desde As Integer, ByVal hasta As Integer)
            For i As Integer = desde To hasta - 1
        End Sub

        Private Shared Sub MostrarMenu()
            Console.BackgroundColor = ConsoleColor.Cyan
            Console.ForegroundColor = ConsoleColor.Black
            Console.WriteLine("    ==> Lector .txt --- Version 1.0")
            Console.SetCursorPosition(0, 23)
            Console.BackgroundColor = ConsoleColor.Cyan
            Console.ForegroundColor = ConsoleColor.Black
            Console.WriteLine("Pulse ESC para salir, fecha arriba y abajo para mover")
            Console.SetCursorPosition(0, 1)
            Console.BackgroundColor = ConsoleColor.Black
            Console.ForegroundColor = ConsoleColor.White
        End Sub

        Private Shared Sub LeerFichero(ByVal nombreArchivo As String)
            If Not File.Exists(nombreArchivo) Then
                Console.WriteLine("El fichero de texto no existe")

                    Dim archivoTexto As StreamReader = File.OpenText(nombreArchivo)
                    Dim line As String

                        line = archivoTexto.ReadLine()
                        If line IsNot Nothing Then lista.Add(line)
                    Loop While line IsNot Nothing

                Catch e As Exception
                    Console.WriteLine("Error, " & e.Message)
                End Try
            End If
        End Sub
    End Class
End Namespace

More VB.Net Exercises of Dynamic Memory Management

 Implementing a queue using array
Implementing a queue...
 Implementing a stack using array
Implementing a stack...
 Queue Collections
Create a string queue using the Queue class that already exists in the DotNet platform....
 Queue Stack Reverse Polish Notation
Create a program that reads a Reverse Polish Notation expression from a text file, for example: 3 4 6 5 - + * 6 + (Result 21) Each item will be...
Create a string list using the ArrayList class that already exists in the .NET platform. Once created, display all the items stored in the list. In...
 ArrayList duplicate a text file
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 li...
 Unlimited sum
Create a program to allow the user to enter an unlimited amount of numbers. Also, they can enter the following commands: "sum", to display the sum of...
 Hast Table - Dictionary
Submit your dictionary here using a hash table....
Implement a function to check if a sequence of open and closed parentheses is balanced. In other words, check if each open parenthesis corresponds to ...
 Mix and sort files
Create a program that reads the contents of two different files, merges them, and sorts them alphabetically. For example, if the files contain: "Dog C...
 ArrayList of Points
Create a structure named "Point3D" to represent a point in 3D space with coordinates X, Y, and Z. Create a program that has a menu where the user c...
 Search in file
Create a program that reads a text file, saves its content to an ArrayList, and asks the user to enter sentences to search within the file. The pro...

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