string - 调用替换匹配时如何计算替换字符串中的 lisp 表达式？

Question

我正在尝试格式化以下表格的多行制表符分隔数据

ID  Name    Duration    Start_Date  Finish_Date Predecessors    Successors  Resource_Group  Deadline    Constraint_Type 

使用下面的 lisp 代码进入字段列表。

(while (re-search-forward "\\(.*\\)\t\\(.*\\)\t\\(.*\\)\t\\(.*\\)\t\\(.*\\)\t\\(.*\\)\t\\(.*\\)\t\\(.*\\)\t\\(.*\\)\t\\(.*\\)\t\\(.*\\)\t\\(.*\\)\t\\(.*\\)\t\\(.*\\)\t\\(.*\\)\t\\(.*\\)" nil t)
    (replace-match 
"* \\2
   :PROPERTIES:
   :task_id: \\1
   :duration: \\3
   :start: \\4
   :finish: \\5
   :predecessors: \\6
   :successors: \\7
   :resource_group: \\8
   :deadline: \\9
   :constraint_type: \\,(match-string 10)
   :END:"
nil nil))

代码按预期执行，直到到达第 10 个向后引用的匹配字符串。我发现反向引用大于 9 的组的解决方案是使用 lisp 函数(匹配字符串 10)。当以交互方式使用 replace-regexp 时，如果替换字符串中的 lisp 代码前面有'\,'，并且 ./(match-string 10) 在以交互方式调用 replace-regexp 时确实表现得像我预期的那样；

但是，上述代码块中的\\,(match-string 10) 会产生错误。我已经尝试了一个、两个、三个、四个等 '\'，但它要么产生相同的错误，要么打印一个文字字符串。有谁知道使用此函数的方法或引用大于 9 的组号的方法吗？

非常感谢!

Answer 1

不是在替换字符串中使用 \DIGIT 序列，它似乎不支持大于 9 的数字，您可以自己显式构造替换字符串。像这样的东西:

(replace-match
 (concat "* " (match-string 2) "\n"
         "   :PROPERTIES:\n"
         "   :task_id: "         (match-string 1)  "\n"
         "   :duration: "        (match-string 3)  "\n"
         "   :start: "           (match-string 4)  "\n"
         "   :finish: "          (match-string 5)  "\n"
         "   :predecessors: "    (match-string 6)  "\n"
         "   :successors: "      (match-string 7)  "\n"
         "   :resource_group: "  (match-string 8)  "\n"
         "   :deadline: "        (match-string 9)  "\n"
         "   :constraint_type: " (match-string 10) "\n"
         "   :END:")
 nil t)

哦，顺便说一句，replace-match 不支持 \,(...) 结构，只有 query-replace-regexp.

编辑:另请注意，\,(...) 不会简单地进入替换字符串。那里有很多魔法。要查看幕后情况，请在 query-replace-regexp 之后使用 C-x ESC ESC。