Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

Solved

Removing double quotes from a a CSV file being created. VB 2005

Posted on 2006-10-19

Visual Basic.NET

2 solutions

Medium Priority

279 Views

Last Modified: 2008-02-01

Hello,

I found several similar posts, but the documented solution didn't work for my program.

Here's my CSV file opened in Notepad:

"JF7","10192006","ARP","0.4"

The file would be good if I could drop all of the "

Here's my string values, I tried the ("""""", """") but didn't make a different (I had to use double quotes around old value and new value to avoid error about quot not being declared)

CompanyCode = "JF7"

strCurrentDate = CurrentDate.ToString("MMdyyyy").ToString
strCurrentDate.Replace("#", "")
strCurrentDate.Replace("""""", """")

RegHrs = dsADP.Tables("tblTA_ADP_Hrs").Rows(i)("Regular_Hours").ToString

Here's my file creation:

WriteLine(1, CompanyCode, strCurrentDate, Emp, RegHrs)

Please help!

Thanks,
Jon

Comment

Question by:JMO9966

[X]

Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

Help others & share knowledge
Earn cash & points
Learn & ask questions

Join The Community

4 Comments

LVL 10

Assisted Solution

by:gangwisch

gangwisch earned 400 total points

ID: 177675422006-10-19

read in the csv file
dim a as string= myfilestream.readtoend()
a=replace(a,chr(34),"")

write to csv file
a contains your whole file

Author Comment

by:JMO9966

ID: 177686572006-10-19

Thanks Gangwisch,

I get an error on the last line here. It doesn't like my (a) argument I'm passing??

Dim ADPFile As StreamReader
Dim ADPFileOutput As StreamWriter

ADPFile = File.OpenText("c:\jb\custom programs\adp\adp.csv")

Dim a As String = ADPFile.ReadToEnd()
a = a.Replace(Chr(34), "")

ADPFileOutput = File.WriteAllLines("c:\jb\custom programs\adp\PRJ7FEPI.csv", a)

LVL 86

Accepted Solution

by:Mike Tomlinson

Mike Tomlinson earned 600 total points

ID: 177688642006-10-19

You appear to be using VB.Net 2005:

Dim inFile As String = "c:\jb\custom programs\adp\adp.csv"
Dim outFile As String = "c:\jb\custom programs\adp\PRJ7FEPI.csv"
File.WriteAllText(outFile, File.ReadAllText(inFile).Replace(Chr(34), ""))

Author Comment

by:JMO9966

ID: 177694022006-10-19

Thanks guys!!

Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

VB .NET Retrieving FX Rates from ECB site and parsing XML into a datatable

Article by: nepaluz

The ECB site provides FX rates for major currencies since its inception in 1999 in the form of an XML feed. The files have the following format (reducted for brevity) (CODE) There are three files available HERE (http://www.ecb.europa.eu/stats/exch…

Visual Basic.NET

VBS script to start Windows Updates installation

Article by: Hector2016

If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.

How to export Office 365 mailboxes to PST using eDiscovery

Video by: CodeTwo

In this video you will find out how to export Office 365 mailboxes using the built in eDiscovery tool. Bear in mind that although this method might be useful in some cases, using PST files as Office 365 backup is troublesome in a long run (more on t…

How Do You Implement High Availability in a Database Environment?

Video by: Percona

In this video, Percona Solution Engineer Rick Golba discuss how (and why) you implement high availability in a database environment. To discuss how Percona Consulting can help with your design and architecture needs for your database and infrastr…