Imports System.IO
Module Module1
Sub Main()
Dim array As String() = File.ReadAllLines("d:\data.txt")
For Each line As String In array
Console.WriteLine(line.Length)
Console.WriteLine(line)
Next
End Sub
End Module
' run:
'
' 18
' c cpp python cshap
' 8
' java php