Page 1 of 1

Alternative regex solution?

Posted: Fri Jul 26, 2013 10:21 am
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)
...............................................................