How to fix this issue with storing an expression as a String and returning it with ToExpression

Question

( Update: Note the "." in the expression, this is most likely what causes the problem. )**

Starting point of my question is the following code, which works as expected:

StringReplace[#,RegularExpression[" id=\".*\""] -> ""] &["nilo id=\"jaap\" de roock"]

Above, we see a pure function which removes substrings of type id="foo bar" from a string.

I want to store the pure function as a key/value pair in an association ( which will be persisted to some medium eventually ). I have done this before and usually works as expected.

I usually do this as follows:

data = <|parser -> "code"|>; 

where code represents the Mathematica code in question and if the code contains quotes (") then they are escaped as \".

A simple example of the procedure is the following:

"jaap" <> " en " <> "wim"
(* Out: "jaap en wim" *)

ass = <|"parser" -> "\"jaap\"<>\" en \"<> \"wim\""|>
(* Out: <|"parser" -> "jaap"<>" en "<> "wim"|> *)

ToExpression[ass["parser"]]
(* Out: "jaap en wim" *)

Now, when I apply this method to the code in question:

ass = <|"parser" -> ""|>

and attempt to insert the expression

StringReplace[#,RegularExpression[" id=\".*\""] -> ""] &["nilo id=\"jaap\" de roock"]

between the quotes where all quotes are escaped, Mathematica does not execute the command.

Like

"StringReplace[#,RegularExpression[\" id=\\".*\\ "\"]\[Rule]\"\"]&

No error is displayed but the dot is highlighted.

What have I done wrong? Is there an alternative?

Answer 1

For storing arbitrary expressions to file and re-read them, using Compress and Uncompress will usually prevent from exactly the problems you have seen. Compress generates an ASCII string which will have no problems when transfered to a file and frees you from dealing with escaping characters and mostly also from encoding problems. Of course that will also work for other use cases where you need to serialize an arbitrary Mathematica expression. The only drawback I know is that you of course can not see what the content is when opening the files with an editor and you only can re-read it with Mathematica. For larger expression you get the extra benefit that the compressed data will be smaller and thus faster to write and read.

Here is the most simple version which would work to save:

filecontent = Compress[arbitraryExpression];
Export["file.txt",filecontent,"Text"];

and this is to read:

arbitraryExpression = Uncompress[Import["file.txt","Text"]]

if speed is relevant, as the compressed string is an ASCII string, you can even use BinaryWrite to save the filecontent and use FromCharacterCode@BinaryRead to read the string. Don't forget to Close the files when using that approach, otherwise you might collect some open file handles...