Alternative regex solution?

Q&A's, tips, howto's
Post Reply
reinier maliepaard
Posts: 6
Joined: Fri Jul 05, 2013 5:34 pm

Alternative regex solution?

Post by reinier maliepaard »

Hello,

The following code adds to one or more apostroph's a backslash only when the (first) apostroph is preceded by a lowercase letter. My two-step-solution works, but I -newLisp newbie- have doubts on it. Does someone has a better idea? Thanks in advance.

Regards,
Reinier
...............................................................
(setq mcString "C''' g''''' c' A''")

;first step
(replace "([a-g])([']+)" mcString (append $1 "\\" $2) 0)

;second step
(while (find "\\''" mcString)
(replace "\\''" mcString "\\'\\'")
)

;result is ok: C''' g\'\'\'\'\' c\' A''
(println "result: " mcString)
...............................................................

Post Reply