Convert CSV file to TXT file in .NET using vb (windows form)

Post Views: 646

Convert .csv(comma separated value) file to .txt file in vb.net

Our written program will ignore commas in any particular field. I have made a windows application in vb.net which will take a .csv file as input using open file dialogue and give a .txt file as output in a folder that is chosen by the user using folder browser dialogue.

Different Type of String Operations in .NET using C#

The code is given below. You can add .csv extension checking in open file dialogue.

Imports Microsoft.VisualBasic.FileIO

Public Class Form1
    Private Sub btn_start_Click(sender As Object, e As EventArgs) Handles btn_start.Click

        Dim filename As String = System.IO.Path.GetFileNameWithoutExtension(txt_source.Text)

        Dim tfp As New TextFieldParser(txt_source.Text)
        tfp.Delimiters = New String() {","}
        tfp.TextFieldType = FieldType.Delimited

        Dim file As System.IO.StreamWriter
        file = My.Computer.FileSystem.OpenTextFileWriter(txt_destination.Text + "\" + filename + ".txt", True)
        file.WriteLine("Name" & ControlChars.Tab & "Address" & ControlChars.Tab & "Phone No.")

        tfp.ReadLine() ' skip header
        While tfp.EndOfData = False
            Dim fields = tfp.ReadFields()

            file.WriteLine(fields(0) & ControlChars.Tab & fields(1) & ControlChars.Tab & fields(2))

        End While
        file.Close()
        MessageBox.Show("Conversion Successful", "Converter", MessageBoxButtons.OK, MessageBoxIcon.None)
    End Sub

    Private Sub btn_destination_Click(sender As Object, e As EventArgs) Handles btn_destination.Click
        If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then
            txt_destination.Text = FolderBrowserDialog1.SelectedPath
        End If
    End Sub

    Private Sub btn_source_Click(sender As Object, e As EventArgs) Handles btn_source.Click
        OpenFileDialog1.Title = "Please Select a File"
        OpenFileDialog1.InitialDirectory = "C:\"
        OpenFileDialog1.ShowDialog()
        OpenFileDialog1.RestoreDirectory = True
    End Sub

    Private Sub OpenFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        Dim strm As System.IO.Stream
        strm = OpenFileDialog1.OpenFile()
        txt_source.Text = OpenFileDialog1.FileName.ToString()
    End Sub
End Class