Emacs: मैं एक defis में एक lisp समारोह के साथ regexp कैसे बदल सकता हूँ?

Question

उदाहरण के लिए मैं सभी पाठ कोष्ठक,(), UPCASE में बनाना चाहता हूं। यह सहभागी निम्न करने के लिए तुच्छ है:

M-x query-replace-regexp 
replace: "(\(.+?\))" 
with : "(\,(upcase \1))" 

इसके बजाय मैं एक defun जो कि क्या करेंगे लिखना चाहते हैं:

(defun upcs() 
    (interactive) 
    (goto-char 1) 
    (while (search-forward "(\\(.+?\\))" nil t) (replace-match "(\\,(upcase \\1))" t nil))) 

लेकिन यह काम नहीं करता! जबकि निम्न काम करता है (यह foo और bar parenthesized ग्रंथों के संलग्न कर देता है):

सभी की

(defun HOOK() 
    (interactive) 
    (goto-char 1) 
    (while (search-forward-regexp "(\\(.+?\\))" nil t) (replace-match "(foo \\1 bar)" t nil))) 

Answer 1

तो यह समस्या हल करता है।

(defun put-in-par (str) 
    (concat "(" str ")")) 

(defun upcs-luke() 
    (interactive) 
    (goto-char 1) 
     (while (search-forward-regexp "(\\([^\\)]+\\))" nil t) 
      (replace-match (put-in-par (upcase (match-string 1))) t nil))) 

सहायता के लिए बिलसी और ल्यूक गिरविन के लिए धन्यवाद।

Answer 2

सबसे पहले, आप अपने पहले समारोह में search-forward उपयोग कर रहे हैं। यह एक नियमित अभिव्यक्ति के बजाय एक स्ट्रिंग अक्षर लेता है। आपको search-forward-regexp का उपयोग करना चाहिए, जैसा कि आप अपने दूसरे फ़ंक्शन में करते हैं।

दूसरे, जबकि इस कोड query-replace-regexp के लिए एक मूल्य की जगह के रूप में मान्य है, मुझे नहीं लगता कि आप इसे replace-match को पारित कर सकते हैं:

(\\,(upcase \\1))

आप search-forward-regexp द्वारा पाया मैच का मूल्य प्राप्त कर सकते हैं match-string फ़ंक्शन का उपयोग कर।

अंत में, मुझे यकीन नहीं है कि आपकी खोज नियमित अभिव्यक्ति सही है।

(defun upcs() 
    (interactive) 
    (goto-char 1) 
     (while (search-forward-regexp "(\\([^\\)]+\\))" nil t) 
      (replace-match (upcase (match-string 1)) t nil))) 

Answer 3

ल्यूक के जवाब लगभग काम करता है, लेकिन काफी नहीं:

मैं आप इन पंक्तियों के साथ कुछ की जरूरत है। मूल पोस्टर चाहता था कि सभी पाठ जो कोष्ठक में संलग्न थे, ऊपरी मामले में परिवर्तित हो गए हों, जबकि ल्यूक का कोड कोड को ऊपरी मामले में परिवर्तित कर देता है और साथ ही साथ ब्रांड्स को हटा देता है। रेगेक्स में मामूली संशोधन सही समाधान प्रदान करता है:

(defun upcs() 
(interactive) 
(goto-char 1) 
    (while (search-forward-regexp "\\([^\\)]+\\)" nil t) 
     (replace-match (upcase (match-string 1)) t nil))) 

Answer 4

यह बहुत उपयोगी था, धन्यवाद।

वेब पर अधिक उदाहरण डालने के हित में, मैं इस से चला गया:

(replace-regexp "\([\%\)\”\"]\..?\)[0-9]+" "\1") 

(जो काम नहीं किया है, लेकिन regexps कि इंटरैक्टिव मोड में काम किया है इस्तेमाल किया है)

इसके लिए:

(while (re-search-forward "\\([\\%\\\"\\”]\\)\\.?[0-9]+" nil t) 
    (replace-match (match-string 1) t nil)) 

मुझे आंतरिक उद्धरण चिह्न से पहले तीन बैकस्लैश की आवश्यकता थी।