Emacs Lisp中的strpos

Question

是否有一個本地Emacs Lisp函數，其行爲如同strpos() in PHP？它應該返回當前緩衝區中給定字符串第一次出現的位置。函數search-forward很好，但它修改了字符位置。

Answer 1

你可以這樣做：

;; does not modify match-data 
(string-match-p (regexp-quote "string") (buffer-string)) 

或

;; does modify match-data 
(string-match (regexp-quote "string") (buffer-string)) 

但這些呼叫使字符串，這是不實際的副本。更好的解決方案是使用這個：

(defun my-strpos (string) 
    "mimic strpos" 
    (save-excursion 
    (save-match-data 
     (goto-char (point-min))    ; or not 
     (when (search-forward string nil t) 
     (match-beginning 0))))) 

它也取決於你想要做什麼後，找到位置。 match data的文檔可能會有用。如果要使用match-data後綴，請將呼叫移除至'save-match-data。

Answer 2

對應於PHP strpos，要搜索某個字符串在另一字符串的函數，是從cl包search：

(require 'cl) 
(search needle haystack :start2 offset) 

如果你要搜索一個緩衝區內的字符串，使用search-forward。由於這會更改當前緩衝區和該緩衝區內的點，因此需要將函數包裝在save-excursion中;這是一個常見的Emacs Lisp習慣用法。您還應該在save-match-data中包裝您的功能，以免干擾您的代碼的任何調用的搜索。

(save-match-data 
    (save-excursion 
    (set-buffer haystack) 
    (goto-char (or offset (point-min))) 
    (let ((pos (search-forward needle nil t))) 
     ...)))