More Curso de Programación Visual Basic

Lección:

Administración de Archivos


Ejercicio:

More 28


Objetivo:

Cree un programa que se comporte como el comando "more" de Unix: debe mostrar el contenido de un archivo de texto y pedir al usuario que presione Enter cada vez que la pantalla esté llena.

Como enfoque simple, puede mostrar las líneas truncadas a 79 caracteres y detenerse después de cada 24 líneas.


Código:

Imports System
Imports System.IO
Namespace More
    Class Program
        Private Shared Sub Main(ByVal args As String())
        End Sub

        Public Sub ShowData(ByVal urlFile As String)
            Dim fichero As StreamReader = New StreamReader(urlFile)
            Dim line As String
            Dim count As Integer = 0

            Do
                line = fichero.ReadLine()

                If line IsNot Nothing Then
                    If count Mod 24 = 0 Then Console.ReadLine()
                    If line.Length > 79 Then line = line.Substring(0, 79)
                    Console.WriteLine(line)
                End If

                count += 1
            Loop While line IsNot Nothing

            fichero.Close()
        End Sub
    End Class
End Namespace