Imports System
Imports System.IO
Namespace ReaderCSV
Class Program
Private Shared Sub Main(ByVal args As String())
Console.WriteLine("CSV READER")
Console.WriteLine("--------------------------------------")
Console.Write("Enter name of file .csv: ")
Dim nameFile As String = Console.ReadLine()
Dim myfile As StreamReader
Dim cadena As String
Dim position As Integer
Try
myfile = New StreamReader(nameFile, System.Text.Encoding.[Default])
Dim line As String
Do
line = myfile.ReadLine()
If (line IsNot Nothing) AndAlso (line <> "") Then
Try
line = line.Replace("""", "")
position = line.IndexOf(";"c)
cadena = line.Substring(0, position)
line = line.Remove(0, position + 1)
Console.WriteLine(cadena & vbLf)
position = line.IndexOf(";"c)
cadena = line.Substring(0, position)
line = line.Remove(0, position + 1)
Console.WriteLine(cadena & vbLf)
position = line.IndexOf(";"c)
cadena = line.Substring(0, position)
line = line.Remove(0, position + 1)
Console.WriteLine(cadena & vbLf)
cadena = line.Substring(0)
Console.WriteLine(cadena & vbLf)
Catch e As Exception
Console.WriteLine("Error !!! " & e.Message)
End Try
End If
Loop While line IsNot Nothing
Catch e As Exception
Console.WriteLine("Error !!!" & e.Message)
End Try
End Sub
End Class
End Namespace