我用下列的代码替换字符串中的子字符串，同时收集被替换的字符串， (let ((mystring "This is a three") (start 0) (mylist nil)) (while (string-match "th" mystring start) (setq start (match-end 0)) (push (match-string 0 mystring) mylist) (setq mystring (replace-match "ha" nil nil mystring 0)) ) (mapconca…

用 replace-regexp-in-string 的话，比如想把 "1-3-2" 中的数字替换成对应的英文单词，并且搜集这些数字： (let (matches) (list (replace-regexp-in-string "[0-9]" (lambda (s) (let ((match (match-string 0 s))) (push match matches) (pcase match ("1" "one") ("2" "two") ("3" "t…

替换并同时收集被替换的字符

Emacs-Lisp

twlz0ne 2018 年5 月 14 日 03:36 2

隐约感觉会是这个问题：

不过我对代码也不敏感，除非你直接给个一键执行的出错例子。