9

有时，我在 Emacs 中有这样的文本文件：

some text     123     17
other text    1       0
still more    12      8
last one      1234    123

我想右对齐数字（使用空格），将其更改为如下所示：

some text      123     17
other text       1      0
still more      12      8
last one      1234    123

在 Emacs 中如何做到这一点？

4

1 回答 1

13

align-regexp可以做到这一点。标记区域，然后使用：

C-uM-x align-regexp RET \(\s-+[0-9]*\)[0-9] RET -1 RET 4 RET y

这应该是最简单的方法。

（编辑：事实上，你甚至不需要分离出最后一个数字；\(\s-+[0-9]+\)对于正则表达式也同样有效。）

查看交互式提示和C-hf align-regexp RET变量align-rules-list以了解实际执行的操作。

值得注意的部分是，通过为组指定负数，align-regexp设置justify属性：

`justify'   
It is possible with `regexp' and `group' to identify a
character group that contains more than just whitespace
characters.  By default, any non-whitespace characters in
that group will also be deleted while aligning the
alignment character.  However, if the `justify' attribute
is set to a non-nil value, only the initial whitespace
characters within that group will be deleted.  This has
the effect of right-justifying the characters that remain,
and can be used for outdenting or just plain old right-
justification.

或者，各种表格编辑选项也可以处理这个问题（例如 org、ses、表格捕获/发布），或者您可以使用 elisp 替换模式来处理。

例如，如果文件已经使用空格进行对齐（如果没有，您可以使用untabify删除制表符）并且所有行的长度相同（即尾随空格是如果最后一列的长度不同，则在某些行上需要）。

C-M-% \([0-9]+\)\([[:space:]]+\) RET \,(format (concat "%" (number-to-string (1- (length \&))) "d ") (string-to-number \1)) RET

于 2012-06-05T14:39:49.627 回答