Imports System.IO
Module Module1
Sub Main()
Using reader As TextReader = File.OpenText("d:\data.txt")
Dim l As String
l = reader.ReadLine()
Do Until l Is Nothing
Console.WriteLine(l)
l = reader.ReadLine()
Loop
End Using
End Sub
End Module
' run:
'
' c cpp python cshap
' java php