hello, my appreciating, if you give example code in my problem
i have 1 file csv with dilimited only column A
example
column a
name | address | phone | birthofdate
deby | jersey | 123456 | 01-March-1990
my case is
I want to convert to txt with delimited | and then insert to Mysql table.
basically I can separate delimited csv using excel and then insert to mysql by import.
I hope I can create a program using vb.net and you can available to give me some code, please.
Thank you
You will want to open the file, read/split all lines, then rehash them with your delimiter:
This code is written on the fly.
Try
'Reader/Writer for file operations.
Dim sr As New StreamReader("PathToMyFile")
Dim sw As New StreamWriter("PathToFile")
'Lists for storage
Dim lstAllLines As New List(Of List(Of String))
Dim lstFinal As New List(Of String)
'Read/Split all lines.
Do While sr.Peek <> -1
lstAllLines.Add(sr.ReadLine().Split(",").ToList)
End While
'Cycle through and delimit
For Each lst As List(Of String) in lstAllLines
Dim str As String = String.Empty
For i = 0 to lst.Count - 1
'Check to make sure you are not on the last element.
If lst(i) < lst.Count - 1 Then
str &= lst(i) & "|"
Else
str &= lst(i)
End If
Next
lstFinal.Add(str)
Next
'Write all lines
For Each s As String in lstFinal
sw.WriteLine(s)
Next
Catch ex As Exception
MsgBox(ex.ToString)
End Try
hi dev
I follow your code but cannot create txt files from CSV Files, I think you forget to put library excel interoup and your code cannot read excel csv files. can u explain more details about your code. thanks.
I use code very close to this to manipulate CSV files all of the time.
A CSV file is treated as a text file; it just has formatting that you would not see usually.
What error are you getting for your csv?
Be sure to close the StreamReader/Writer with you are finished with your operations.
sr.Close()
sr = Nothing
sw.Close()
sw = Nothing
thank for replay
I don't getting error but your code cannot create data files txt, I mean txt null after csv has been execute in this program. files csv cannot transfer data to txt files. or I'm a beginner so I don't understand this code and I must learn more. I hope you give an example if there is free time to this role use project (sln). in my project I just put 1 button. oh .. in your code I getting red underline in postion
'Read/Split all lines.
Do While sr.Peek <> -1
lstAllLines.Add(sr.ReadLine().Split(",").ToList)
End While
Error 2 'End While' must be preceded by a matching 'While'.
Error 1 'Do' must end with a matching 'Loop'.
and so I remove DO then I type Loop under 1stAllines..
Sorry, I need your help.
I put link to you, kindly u can download to review
Thank you
The correct syntax would be:
'Read/Split all lines.
While sr.Peek <> -1
lstAllLines.Add(sr.ReadLine().Split(",").ToList)
End While
Do you have the file open in Excel while trying to run the process?
Something has control of the file at that time.
no.. i'm not open excel files same the times.
excel files only stay at folder
Are you trying to read/write from/to the same file?
no sir, streamreader .csv and streamwriter .txt
thank for your help .. problem solve.
i create using interoup excel and then befove save to database i put data in dataset then I push button to save. i think this is not simple, so why? I can't create simple app.
thanks you so much Begginnerdev
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.