Removing Commas from xlcsv

H

Help?

Hello,
I am trying to remove commas and "" from a xlcsv record by macro.

I am getting:

"%!
XGF
9999 SETBUFSIZE
(,) SETDBSEP
QSTRIP_on
(GuntherIPEP.jdt) SETJDT
(IPEP.dbm) STARTDBM",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,

I need it to be:

%!
XGF
9999 SETBUFSIZE
(,) SETDBSEP
QSTRIP_on
(GuntherIPEP.jdt) SETJDT
(IPEP.dbm) STARTDBM

The code I am using is:
Rows("1:1").Select
Selection.Insert Shift:=xlDown
ActiveCell.FormulaR1C1 = _
"%!" & Chr(10) & "XGF" & Chr(10) & "9999 SETBUFSIZE" & Chr(10) &
"(,) SETDBSEP" & Chr(10) & "QSTRIP_on" & Chr(10) & "(GuntherIPEP.jdt) SETJDT"
& Chr(10) & "(IPEP.dbm) STARTDBM"
With ActiveCell.Characters(Start:=1, Length:=91).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic

Does anyone have any suggestions of how to remove the commas delimiters and
the "" shown in the above that I can incorporate into the macro?
 
H

Help?

I have figured out how to get rid of the commas and now I get:
"%!
XGF
9999 SETBUFSIZE
(,) SETDBSEP
QSTRIP_on
(GuntherIPEP.jdt) SETJDT
(IPEP.dbm) STARTDBM"

I would like to remove the "" around this now? How would I accomplish this?
Would I tell my programming to control the CSV formatting not to recognize
the , so that the "" wouldn't happen? How?
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top