"Learn4Develop" <Learn4Develop@newsgroup> wrote in message
news:C072F055-9B82-4D2D-A4D2-216403F47814@newsgroup

> On daily bases I have received files with double quotes comma separated,
> but
> in some records I found 2 times double quotes and some time different
> squence
> of double quotes placements.
>
> I just want to remove all unnecessary (extra) double quotes (see the
> following values where i want to remove extra double quotes.
>
> "0123x",""Company D-Val"","Class D, sector N","DD5894"
> "4894D",""Recycle" Rubbish, C class","Class D, Sector F, Block N","D870GH"
> "AB8679",""AB Ltd"",""Need" Clean Drive Way, stores","GF0347"
>
>
> I am looking the output like that.
>
> "0123x","Company D-Val","Class D, sector N","DD5894"
> "4894D","Recycle Rubbish, C class","Class D, Sector F, Block N","D870GH"
> "AB8679","AB Ltd","Need Clean Drive Way, stores","GF0347"
>
>
> Following code i used is work fine with ""Company D-Val"" but didn't work
> with ""Recycle" Rubbish, C class", The code is
>
> code:-
> Do While inFile.AtEndOfStream = False
> record = InFile.ReadLine()
> record = Replace(record, """", """") 'replace "" with single space
> outFile.WriteLine record & vbclrf
> Loop

You could do it like this for every line of text:
1. Replace every "," with your own delimiter. I use chr(0).
2. Remove all remaining double quotes.
3. Replace your own delimiters with ",".
4. Surround the line with double quotes.
This code appears to work for your data sample:



Q = """"
Z = Chr(0)
sDelimiter = Q & "," & Q
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFile = oFSO.OpenTextFile("d:\test.txt")
While Not oFile.AtEndOfStream
sLine = Replace(oFile.ReadLine, sDelimiter, Z)
sLine = Replace(sLine, Q, "")
sLine = Q & Replace(sLine, Z, sDelimiter) & Q
WScript.Echo sLine
Wend