数字的emacs字符串插入矩形向量？答案

【问题标题】：emacs string-insert-rectangle vector of numbers?数字的emacs字符串插入矩形向量？
【发布时间】：2012-04-12 22:22:37
【问题描述】：

如何使用 emacs string-insert-rectangle 操作将数字向量添加到一系列行中？例如，我的 emacs 缓冲区中有一堆文本条目的缩短版本：

element01   8   111111111011010000100000001100101000001111101111011111111000
element01   8   111101101010101001111111111000111110111111011110100101010111
element01   8   111111011001001110111010111111100111010110101011111010110011
element01   8   111111111111111111111111010111101101011101011111000001100000
element01   8   111100111111011111100110110000001011110101000011111011111101
element01   8   111001001011000000011100000101001001100101101011101101011011
element01   8   111011111101101111111111111101101010111110111011111101011011
element01   8   101101111101101111000110111101111010111011101111001101001011
element02   6   110101110101100101100101000111010101110111001001101111111011
element02   6   111001011001001011101110111100111101101011111111111011111101
element02   6   101111100111010111111010010101111101111111101101111011111011
element02   6   111101111111111100111110110111101011111001001101101100111111
element02   6   111111010111101111010011110111001100001000101010111111111101
element02   6   111110111001101111111100111011110000011011100100100111111010
element03   13  110011011111111111101011100111111110011111110100111010011111
element03   13  100011101000111110101101000000000001110110110011110110111101
element03   13  101100011100011111110111110110101101111111110110110100101111
element03   13  111111011110101110101011010111110000010111111011100100011111
element03   13  011100110110110111100101110101111110111100101110010111110011
element03   13  100111111111100100111110110110111111111101011101110110110111
element03   13  101111111111110101110110111011111110111101110110111111111111
element03   13  111110010111110110101111110110111111111110101111111101110011
element03   13  100111111101110110110110111110111010111110110011111111110111
element03   13  110100110111110110110100111010110100110110110110110101111111
element03   13  011111011010111101101001011100111110010111111011111101011010
element03   13  011101111110010000111000000101101010111110100010110110110110
element03   13  110100110110110010101010100011100011000000110011011100110100
element03   13  010101101010110010111100101001001010111001100111110000011011
[...]

我想在第二列和第三列之间添加一列，如下所示：

element01   8   id1 111111111011010000100000001100101000001111101111011111111000
element01   8   id2 111101101010101001111111111000111110111111011110100101010111
element01   8   id3 111111011001001110111010111111100111010110101011111010110011
element01   8   id4 111111111111111111111111010111101101011101011111000001100000
element01   8   id5 111100111111011111100110110000001011110101000011111011111101
element01   8   id6 111001001011000000011100000101001001100101101011101101011011
element01   8   id7 111011111101101111111111111101101010111110111011111101011011
element01   8   id8 101101111101101111000110111101111010111011101111001101001011
element02   6   id9 110101110101100101100101000111010101110111001001101111111011
element02   6   id10    111001011001001011101110111100111101101011111111111011111101
element02   6   id11    101111100111010111111010010101111101111111101101111011111011
element02   6   id12    111101111111111100111110110111101011111001001101101100111111
element02   6   id13    111111010111101111010011110111001100001000101010111111111101
element02   6   id14    111110111001101111111100111011110000011011100100100111111010
element03   13  id15    110011011111111111101011100111111110011111110100111010011111
element03   13  id16    100011101000111110101101000000000001110110110011110110111101
element03   13  id17    101100011100011111110111110110101101111111110110110100101111
element03   13  id18    111111011110101110101011010111110000010111111011100100011111
element03   13  id19    011100110110110111100101110101111110111100101110010111110011
element03   13  id20    100111111111100100111110110110111111111101011101110110110111
element03   13  id21    101111111111110101110110111011111110111101110110111111111111
element03   13  id22    111110010111110110101111110110111111111110101111111101110011
element03   13  id23    100111111101110110110110111110111010111110110011111111110111
element03   13  id24    110100110111110110110100111010110100110110110110110101111111
element03   13  id25    011111011010111101101001011100111110010111111011111101011010
element03   13  id26    011101111110010000111000000101101010111110100010110110110110
element03   13  id27    110100110110110010101010100011100011000000110011011100110100
element03   13  id28    010101101010110010111100101001001010111001100111110000011011
[...]

如何在 emacs 中使用 string-insert-rectangle 之类的东西来添加这个新的第三列，增加数量？

PS：我知道我可以使用 bash/perl/python/etc 脚本来做到这一点，在这个问题中，我想问是否可以使用 emacs 轻松完成。

【问题讨论】：

标签： text emacs

【解决方案1】：

我认为最简单的解决方法是在第一行标记原来第三列的第一个字符，将点移动到最后一行的相同字符，然后键入：

CuCxrNRET id%d RET

rectangle-number-lines 是一个交互式编译的 Lisp 函数 `rect.el'。

它绑定到 C-x r N.

(rectangle-number-lines START END START-AT &optional FORMAT)

在区域矩形前面插入数字。

START-AT，如果非零，应该是一个开始的数字数数。 FORMAT，如果非零，应该是要传递的格式字符串与行数一起“格式化”。交互调用时带有前缀参数，提示输入 START-AT 和 FORMAT。

regexp-replace 和宏技术都是极好的通用工具，但矩形数字线几乎是针对这个问题定制的。

编辑：当时我没有注意到，但事实证明这是 Emacs 24 中的一个新功能。早期版本的 Emacs 会将这个序列转换为 C-x r n（下case n) 运行一个完全不同的函数。

【讨论】：

有办法倒数吗？
没有内置到这个命令中，没有（虽然我想到一个数字前缀参数可以用来指示步长值，作为一个方便的增强）。

【解决方案2】：

这是一个关于如何使用键盘宏来解决它的日志。 AFAIK 你不能只用string-insert-rectangle 来解决这个问题。

在需要寄存器输入的地方，我使用了 a

C-1 C-x r n
           number-to-register
C-x (      kmacro-start-macro
C-M-f      forward-sexp [3 times]
C-M-b      backward-sexp
C-u C-x r i
           insert-register
C-x r +    increment-register
C-x )      kmacro-end-macro
C-SPC      set-mark-command
M->        end-of-buffer
C-x C-k r  apply-macro-to-region-lines

【讨论】：

【解决方案3】：

您可以直接使用query-replace-regexp，通过添加匹配计数\# 的新列。

匹配查找由空格分隔的 3 列，这些列将存储在子匹配字符串 \1 到 \3 中。被替换的字符串使用匹配计数添加一个新列。

版本 1（更简单，但从 0 开始）：

M-x query-replace-regexp RET
^\(\w+\)\ +\(\w+\)\ +\(\w+\)$ RET
\1 \2 id\# \3 RET

注意我使用空格进行匹配和替换。您可以改用标签。

版本 2（使用 lisp 通过+1 函数自定义行数）：

M-x query-replace-regexp RET
^\(\w+\)\ +\(\w+\)\ +\(\w+\)$ RET
\,(format "%s %s id%d %s" \1 \2 (+1 \#) \3) RET

【讨论】：

【解决方案4】：

这是在 emacs 中实现的一种方法，不幸的是，这种方法不使用字符串插入矩形。此外，这种方法粗鲁地假设每行有 10 个以上的字符。如果不是这样，就会发生欢闹。 M-x doit 将调用它。

(defun doit ()
  (interactive)
  (save-excursion
    (beginning-of-buffer)
     (let ((n 1))
      (while (< (point) (point-max))
        (forward-char 10)
        (insert "id" (int-to-string n) " ")
        (end-of-line)
        (forward-line)
        (incf n)))))

【讨论】：