如何折叠区域中的空白？

Question

假设我有这个列表文本文件：

field1        variable_length_field    variable_length_field
aaaaaa        aaaa                     aaaaaaaaa
bbbbbb        bbbbbbbbbbbbbbbbbbbb     bbbb

如何将其转换为：

field1 variable_length_field variable_length_field
aaaaaa aaaa aaaaaaaaa
bbbbbb bbbbbbbbbbbbbbbbbbbb bbbb

我知道我可以在该区域上使用 replace-regexp，但 Emacs 正则表达式并不是自然而然的。我一直在寻找类似 delete-whitespace-rectangle 的东西，但这并没有达到我的预期，或者我误用了它。能够为每列执行此操作也是可取的，即：

field1        variable_length_field variable_length_field
aaaaaa        aaaa aaaaaaaaa
bbbbbb        bbbbbbbbbbbbbbbbbbbb bbbb

Answer 1

这个函数应该可以解决问题：

(defun just-one-space-in-region (beg end)
  "replace all whitespace in the region with single spaces"
  (interactive "r")
  (save-excursion
    (save-restriction
      (narrow-to-region beg end)
      (goto-char (point-min))
      (while (re-search-forward "\\s-+" nil t)
        (replace-match " ")))))

并且，由于问题已更新以适用于矩形中的空间，请尝试以下操作：

(require 'rect)  
(defun just-one-space-in-rect-line (start end)
  (save-restriction
    (save-match-data
      (narrow-to-region (+ (point) start)
                        (+ (point) end))
      (while (re-search-forward "\\s-+" nil t)
        (replace-match " ")))))
(defun just-one-space-in-rect (start end)
  "replace all whitespace in the rectangle with single spaces"
  (interactive "r")
  (apply-on-rectangle 'just-one-space-in-rect-line start end))

Answer 2

没有真正回答您的问题，但当

 M-SPC runs the command just-one-space, which is an interactive
 compiled Lisp function in `simple.el'.

 It is bound to M-SPC.

 (just-one-space &optional N)

 Delete all spaces and tabs around point, leaving one space (or N spaces).

 [back]

您想一次性删除空格时，这很有用。它可能适用于删除是随机行且没有固定模式的宏观情况。

Answer 3

您可以使用 cua-mode 的矩形编辑工具*来处理您的矩形要求。

1. Mx cua-selection-mode RET 或 (cua-selection-mode 1)
   （我自己，我永久启用了此功能）。

2. 使用 C-RET 和普通移动键标记要折叠空白的矩形。

3. 调用cua-replace-in-rectangle：
   先生 \s-+ RET SPC RET

4. C再次 -RET 结束矩形编辑。

(*) 如果您需要矩形右侧的字段保持对齐，则此方法不起作用，因为在这种情况下，您需要插入新的空格来补偿已删除的空格。您可以使用 2C-split 和 2C-merge 或直接删除/拉出最右边的矩形来解决这个问题。

Answer 4

您使用 IDE 吗？如果您使用的是 Eclipse 之类的工具，那么您可以格式化其中的空白选项。 （在 Eclipse 中，按 CTRL+3 并搜索“formatter”。很抱歉没有记住确切的路径！）然后，您应该能够突出显示所有内容并按 ctrl+shift+G 自动=格式化所有内容。

如果有帮助请告诉我们！ （或者，如果您想启动执行此操作的代码，请告诉我们该语言。）

Answer 5

如果您不想使用cua-selection-mode，您可以使用矩形标记模式或鼠标选择一个矩形，然后进行空白替换。

简短版本：

Cx SPC 选择区域，然后 CM-% \s-+ Enter SPC Enter !

将用其中的单个空格替换所有连续的空白实例指定的矩形

---

长版：

1. 选择要编辑的区域

   • 您可以按住CM，然后使用mouse-1单击并拖动以选择矩形。 （不适用于我的 emacs 版本，但在 中提到官方文档。)

   • 或者将点放在您想要矩形开始的位置，点击CxSPC进入矩形标记模式并然后移动光标，使您想要的区域突出显示

2. 使用replace-regexp删除多余的空格

   • 点击CM-%激活replace-regexp，它现在应该提示您输入要搜索的模式
   • 输入 \s-+ 作为搜索模式，然后按 Enter（匹配一个或多个空格字符）
   • 输入您想要替换空格的内容，在这种情况下，您可以通过点击 SPC 然后 Enter 使用空格

3. 执行替换

   • 现在所有要替换的空格都应该突出显示
   • 点击！一次全部替换
   • 或者您可以通过点击 y 或 SPC 逐一替换它们