VB.Net Tutorial/Development/CSV

Create CSV file

<source lang="vbnet">Public Class Tester

   Public Shared Sub Main
       Dim csvFile As String = My.Application.Info.DirectoryPath & "\Test.csv"
       Dim outFile As IO.StreamWriter = My.ruputer.FileSystem.OpenTextFileWriter(csvFile, False)

       outFile.WriteLine("Column 1, Column 2, Column 3")
       outFile.WriteLine("1.23, 4.56, 7.89")
       outFile.WriteLine("3.21, 6.54, 9.87")
       outFile.Close()
       Console.WriteLine(My.ruputer.FileSystem.ReadAllText(csvFile))

   End Sub

End Class</source>

Column 1, Column 2, Column 3
1.23, 4.56, 7.89
3.21, 6.54, 9.87

Read in and process a CSV file

<source lang="vbnet">Public Class Tester

   Public Shared Sub Main
       Dim wholeFile As String
       Dim lineData() As String
       Dim fieldData() As String
       Dim filePath As String = My.ruputer.FileSystem.CurrentDirectory & "\Test.csv"
       wholeFile = My.ruputer.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</source>

Alpha
Beta
Gamma1.1
 2.3
 4.5

Use system default editor to open a CSV file

<source lang="vbnet">Imports System.Diagnostics Public Class Tester

   Public Shared Sub Main
       Dim csvFile As String = My.Application.Info.DirectoryPath & "\Test.csv"
       Dim outFile As IO.StreamWriter = My.ruputer.FileSystem.OpenTextFileWriter(csvFile, False)

       outFile.WriteLine("Column 1, Column 2, Column 3")
       outFile.WriteLine("1.23, 4.56, 7.89")
       outFile.WriteLine("3.21, 6.54, 9.87")
       outFile.Close()
       Process.Start(csvFile)

   End Sub

End Class</source>