Question

我正在尝试格式化下面窗体的多行TAB分隔数据

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函数（match-string 10）。当以交互方式使用replace-regexp时，如果替换字符串中的lisp代码前面带有'\，'，则会对其进行评估，而./（match-string 10）的行为与我预期的交互式调用replace-regexp时的行为相同;

但是，上面代码块中的\\，（匹配字符串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 来窥视窗帘。

在调用replace-match时如何评估替换字符串中的lisp表达式？

1 个答案: