The average business loses $13.5M per year to ineffective training (per 1,000 employees). Keep ahead of the competition and combine in-person quality with online cost and flexibility by training with Linux Academy.
Public Sub Test() Try Dim reader As StreamReader = New System.IO.StreamReader(File.OpenRead("D:\CSV\Test.csv")) Dim listA As New List(Of String)() If File.Exists("d:\CSV\TestOut1.csv") Then File.Delete("d:\CSV\TestOut1.csv") End If Dim sw As New StreamWriter("d:\CSV\TestOut1.csv") Dim s As String = String.Empty While reader.Peek() >= 0 Dim line As String = reader.ReadLine() Dim values As String() = line.Split(";"c) listA.Add(values(0)) s = s + line + Chr(10) End While reader.Close() sw.WriteLine(s) sw.Close() Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
8 Experts available now in Live!