Re: eliminate some characters inside a file
- To: mathgroup at smc.vnet.net
- Subject: [mg34729] Re: eliminate some characters inside a file
- From: "John Jowett" <John.Jowett at cern.ch>
- Date: Tue, 4 Jun 2002 03:41:38 -0400 (EDT)
- References: <adca4e$1lp$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hello, here's a simple method. If you copy the small Notebook expression
below and paste it into the Front End, it will take you through the steps:
(* Beginning of notebook expression*)
Notebook[{
Cell["Choose directory where the files are:", "Text"],
Cell[BoxData[
\(SetDirectory["\<C:\\Documents and
Settings\\jjowett\\Desktop\\fixdata\\\
\>"]\)], "Input"],
Cell["Get a list of the files", "Text"],
Cell[BoxData[
\(filesToFix = FileNames["\<*.txt\>"]\)], "Input"],
Cell["Pick one just to show how", "Text"],
Cell[BoxData[
\(testFile = First[filesToFix]\)], "Input"],
Cell[BoxData[
\(Import[testFile, "\<Text\>"]\)], "Input"],
Cell[BoxData[
\(StringReplace[
Import[testFile, "\<Text\>"], {"\<\"\>" -> "\<\>", "\<,\>" -> "\<
\>"}]\
\)], "Input"],
Cell[BoxData[
\(Export["\<fixed\>" <> testFile,
StringReplace[
Import[testFile, "\<Text\>"], {"\<\"\>" -> "\<\>", "\<,\>" -> "\< \
\>"}], "\<Text\>"]\)], "Input"],
Cell["\<\
Wrap up the method as a pure function and Map it over all the files\
\>", "Text"],
Cell[BoxData[
\(\(Export["\<fixed\>" <> #,
StringReplace[
Import[#, "\<Text\>"], {"\<\"\>" -> "\<\>", "\<,\>" -> "\<
\>"}], \
"\<Text\>"] &\) /@ filesToFix\)], "Input"]
}
]
(* end of notebook expression*)
Hope this helps,
John Jowett
My home page: http://cern.ch/jowett/
"A.M." <moreno at alumnos.uva.es> wrote in message
news:adca4e$1lp$1 at smc.vnet.net...
> Hi everybody,
>
> this is my question: I´ve got a large numbers o files with the next
> appearance:
>
> "12,56,12,14"
> "13,56,25,36"
> "14,58,465,7"
> .
> .
> .
>
> and I need Mathemathica to eliminate " " and changes , by blank space to
> obtain the next:
> 12 56 12 14
> 13 56 25 36
> 14 58 465 7
> .
> .
> .
> If anybody can help me I would be very pleased
>
> thanks
>
>