总结了一些实用的文本处理的函数。 搜索 1.根据正则 REGEXP 搜索文本 STRING，返回匹配的数量 (defun tps-search-count (string regexp) (let ((start 0) (count 0)) (save-match-data (while (string-match regexp string start) (cl-incf count) (setq start (match-end 0)))) count)) (tps-search-count "Treat a man as