MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Add Quotation Marks to Data in a file


Assuming those entries 6 x 6 are strings inside Mathematica, you could
just replace them using string expressions.

In[1]:=
xpr[1]={{a,b,"6 x 6"},{c,"5 x 4",z}};
ExportString[xpr[1],"CSV"]

Out[2]=
a,b,6 x 6
c,5 x 4,z

In[3]:=
xpr[2]=xpr[1]/.blah_String:>
        StringReplace[blah,(a__~~"x"~~b__):>"\""~~a~~"x"~~b~~"\""];
ExportString[xpr[2],"CSV"]

Out[4]=
a,b,"6 x 6"
c,"5 x 4",z

On 9/21/06, JOHN ERB <john_c_erb at prodigy.net> wrote:
> I have a comma-separated file (CSV) that looks like
>
> Circle, 6 x 6, 5, 0.23
> Circle, 7 x 7, 5, 0.29
> ...
>
> How do I add quotation marks around the second element
> so that when I export the data to an CSV file, I get
>
> Circle, "6 x 6", 5, 0.23
> Circle, "7 x 7", 5, 0.29
> ...
>
> Thank you
> John C. Erb
>
>


-- 
http://chris.chiasson.name/


  • Prev by Date: FormatType styles in StyleSheets
  • Next by Date: Re: TEXT SIZE 12 ?
  • Previous by thread: Add Quotation Marks to Data in a file
  • Next by thread: Re: Add Quotation Marks to Data in a file