Imports System.IO
Module Module1
Sub Main()
Dim list As List(Of String) = File.ReadAllLines("d:\data.txt").ToList
Console.WriteLine(list.Count)
For Each item As String In list
Console.WriteLine(item)
Next
End Sub
End Module
' run:
'
' 2
' c cpp python cshap
' java php