1

我有一个地区：

Items Quantity Amount
"Item A" 423 63
"Item B and C" 27 169
"Item D " 6 199

我想创建上述区域的组织表：

|Items          | Quantity| Amount|
----------------|------------------
|"Item A"       |  423    | 63    |
|"Item A and C" |  27     | 169   |
|"Item D"       |  6      | 199   |

当前的建议是选择区域并用于C-c |创建表格，但这会根据元素之间的空格创建表格。它无法对项目列进行分组。有没有办法可以分组

4

2 回答 2

2

您可以编写自己的 Emacs Lisp 函数，该函数将转换两个 sexp 之间的所有白字符（不仅是空格），并用,当前活动区域中的替换它们。

(defun my/convert-region ()
  (interactive)
  (save-window-excursion
    (narrow-to-region (region-beginning) (region-end))
    (goto-char (point-min))
    (forward-sexp)
    (while (< (point) (buffer-end 1))
      (let ((beg (point)))
        (if (= (point) (line-end-position))
            (forward-char)
          (progn
            (forward-sexp)
            (backward-word)
            (delete-region beg (point)))
          (insert ",")))
      (forward-sexp))
    (goto-char (point-min))
    (widen)))

我在这样的活动区域检查了这个：

Items        Quantity   Amount
"Item A" 423 63
"Item B and C" 27 169
"Item D " 6 199

运行M-x my/convert-region后改为：

Items,Quantity,Amount
"Item A",423,63
"Item B and C",27,169
"Item D ",6,199

您可以将此功能添加到配置文件并将其绑定到某些键。

如果您希望此函数将此区域转换为同一函数中的组织表，只需添加org-table-convert-region调用。

(defun my/convert-region-to-org-table ()
  (interactive)
  (save-window-excursion
    (narrow-to-region (region-beginning) (region-end))
    (goto-char (point-min))
    (forward-sexp)
    (while (< (point) (buffer-end 1))
      (let ((beg (point)))
        (if (= (point) (line-end-position))
            (forward-char)
          (progn
            (forward-sexp)
            (backward-word)
            (delete-region beg (point)))
          (insert ",")))
      (forward-sexp))
    (org-table-convert-region (point-min) (point-max) '(4))
    (goto-char (point-min))
    (widen)))

对于相同的输入：

Items        Quantity   Amount
"Item A" 423 63
"Item B and C" 27 169
"Item D " 6 199

我得到以下结果：

| Items        | Quantity | Amount |
| Item A       |      423 |     63 |
| Item B and C |       27 |    169 |
| Item D       |        6 |    199 |

不幸的是，引号在转换过程中被 org-mode 删除。

(defun my/convert-region-to-org-table-with-header ()
  (interactive)
  (save-window-excursion
    (narrow-to-region (region-beginning) (region-end))
    (goto-char (point-min))
    (forward-sexp)
    (while (< (point) (buffer-end 1))
      (let ((beg (point)))
        (if (= (point) (line-end-position))
            (forward-char)
          (progn
            (forward-sexp)
            (backward-word)
            (delete-region beg (point)))
          (insert ",")))
      (forward-sexp))
    (org-table-convert-region (point-min) (point-max) '(4))
    (goto-char (point-min))
    (org-ctrl-c-minus)
    (widen)))

然后输出将如下所示：

| Items        | Quantity | Amount |
|--------------+----------+--------|
| Item A       |      423 |     63 |
| Item B and C |       27 |    169 |
| Item D       |        6 |    199 |

如果有人感兴趣，我可以解释代码是如何工作的。这个答案已经很长了，所以当我不确定它是否对任何人有用时，我现在不会这样做。

希望有帮助。

于 2018-04-02T02:54:28.530 回答
0

在这些情况下，我通常会创建一个 emacs 宏：

将光标放在表格的第二行（因为您的第一行不包含引号，所以它不会在那里工作）。按 f3 然后：

  • 钙
  • 然后按管道：“|”
  • 按“删除”删除第一个双引号
  • 搜索下一个双引号 Cs "
  • 删除双引号并添加另一个管道符号
  • 用 C-right 移动一个单词
  • 添加另一个管道
  • 铈
  • 添加另一个管道
  • 用光标下移一行
  • 按 f4 关闭 marco

当您现在按 f4 时，它应该再次执行相同的操作。如果一切顺利，那么您可以通过 C-任何您想要的数字和“f4”轻松执行该命令数百次。

完成后，您也可以简单地在第一行添加管道一次。现在按 org-table 内的“tab”将对齐所有内容。

希望有帮助。

于 2018-03-02T16:17:51.627 回答