Regular expressions: Difference between revisions
Content added Content deleted
No edit summary |
|||
| Line 551: | Line 551: | ||
(progn |
(progn |
||
(insert (format "%s found in: %s\n" word str) ) |
(insert (format "%s found in: %s\n" word str) ) |
||
(setq regex (format "^. |
(setq regex (format "^.+%s" word) ) |
||
(setq str (replace-regexp-in-string regex (format "left %s" word) str) ) |
(setq str (replace-regexp-in-string regex (format "left %s" word) str) ) |
||
(setq regex (format "%s. |
(setq regex (format "%s.+$" word) ) |
||
(setq str (replace-regexp-in-string regex (format "%s right" word) str) ) |
(setq str (replace-regexp-in-string regex (format "%s right" word) str) ) |
||
(insert (format "result: %s\n" str) )) |
(insert (format "result: %s\n" str) )) |
||