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