Question

我成功地以交互方式使用replace-regexp，用非引用版本替换下面显示的缓冲区中的每个引用文本实例。我搜索的正则表达式是

\"\([^\"]*\)\"

我插入的NEWTEXT是\ 1.

* "PROJECT START"
:PROPERTIES:
:ID: 1
:Unique_ID: 17
:DURATION: "0 days"
:TYPE: "Fixed Work"
:OUTLINE_LEVEL: 1
:END:

交互式地，aboe文本变成了下面的文字。

* PROJECT START
:PROPERTIES:
:ID: 1
:Unique_ID: 17
:DURATION: 0 days
:TYPE: Fixed Work
:OUTLINE_LEVEL: 1
:END:

我尝试通过插入以下两行来以编程方式执行相同的搜索和替换

(while (re-search-forward "\"\([^\"]*\)\"" nil t)
  (replace-match "\1" nil nil ))

在缓冲区的顶部并执行，但它只返回nil而没有找到一个匹配。

当我省略

时

\( \)

将\ 1分组并替换为\＆amp;

(while (re-search-forward "\"[^\"]*\"" nil t)
  (replace-match "\&" nil nil ))

我将每个引用的字符串替换为'＆amp;'。

* &
:PROPERTIES:
:ID: 1
:Unique_ID: 17
:DURATION: &
:TYPE: &
:OUTLINE_LEVEL: 1
:END:

我在这些功能的文档中看到的所有内容都表明他们应该识别这些特殊字符，并且在此论坛上对其他问题的回答中使用的示例使用这些特殊字符。

任何人都可以帮助我理解为什么分组和\＆amp;，\ N，\字符没有被正确解释？

Answer 1

你需要为“（”，“）”和“\ 1”转义“\”。即：

(while (re-search-forward "\"\\([^\"]*\\)\"" nil t)
  (replace-match "\\1" nil nil ))