str_replace dans Lisp?

Question

Y at-il une fonction similaire à str_replace de PHP dans Lisp?

http://php.net/manual/en/function.str-replace.php

Answer 1

Il y a une bibliothèque appelée cl-ppcre:

(cl-ppcre:regex-replace-all "qwer" "something to qwer" "replace") 
; "something to replace" 

installer via quicklisp.

Answer 2

Je pense qu'il n'y a pas une telle fonction dans la norme. Si vous ne voulez pas utiliser une expression régulière (cl-ppcre), vous pouvez utiliser ceci:

(defun string-replace (search replace string &optional count) 
    (loop for start = (search search (or result string) 
          :start2 (if start (1+ start) 0)) 
     while (and start 
        (or (null count) (> count 0))) 
     for result = (concatenate 'string 
            (subseq (or result string) 0 start) 
            replace 
            (subseq (or result string) 
              (+ start (length search)))) 
     do (when count (decf count)) 
     finally (return-from string-replace (or result string)))) 

EDIT: Shin Aoyama a souligné que cela ne fonctionne pas pour remplacer, par exemple, "\"" avec "\\\"" en "str\"ing". Depuis que je considère maintenant ce qui précède comme assez lourde je propose la mise en œuvre donnée dans le Common Lisp Cookbook, ce qui est beaucoup mieux:

(defun replace-all (string part replacement &key (test #'char=)) 
    "Returns a new string in which all the occurences of the part 
is replaced with replacement." 
    (with-output-to-string (out) 
    (loop with part-length = (length part) 
      for old-pos = 0 then (+ pos part-length) 
      for pos = (search part string 
          :start2 old-pos 
          :test test) 
      do (write-string string out 
          :start old-pos 
          :end (or pos (length string))) 
      when pos do (write-string replacement out) 
      while pos))) 

Je aime particulièrement l'utilisation de with-output-to-string, qui effectue généralement mieux que concatenate.