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