Public Class Tester
Public Shared Sub Main
Dim wholeFile As String
Dim lineData() As String
Dim fieldData() As String
Dim filePath As String = My.Computer.FileSystem.CurrentDirectory & "\Test.csv"
wholeFile = My.Computer.FileSystem.ReadAllText(filePath)
lineData = Split(wholeFile, vbNewLine)
For Each lineOfText As String In lineData
fieldData = lineOfText.Split(",")
For Each wordOfText As String In fieldData
Console.WriteLine(wordOfText)
Next wordOfText
Console.WriteLine("")
Next lineOfText
End Sub
End Class
|