Imports System.IO
Module Module1
Sub Main(ByVal args As String())
Dim fileIn As New StreamReader(args(0))
Dim strData As String = ""
Dim lngCount As Long = 1
While (Not (fileIn.EndOfStream))
strData = fileIn.ReadLine()
Console.WriteLine(lngCount & ": " & strData)
lngCount = lngCount + 1
End While
End Sub
End Module
No comments:
Post a Comment