cómo colapsar espacios en blanco en una región?

Question

Digamos que tengo este archivo de texto tabulado:

field1  variable_length_field variable_length_field 
aaaaaa  aaaa      aaaaaaaaa 
bbbbbb  bbbbbbbbbbbbbbbbbbbb  bbbb 

Como puedo transformarla en:

field1 variable_length_field variable_length_field 
aaaaaa aaaa aaaaaaaaa 
bbbbbb bbbbbbbbbbbbbbbbbbbb bbbb 

Sé que podría utilizar replace-regexp en la región, pero las expresiones regulares de Emacs no vienen de forma natural . Estaba buscando algo como delete-whitespace-rectangle, pero eso no hace lo que esperaba, o lo estoy usando mal. Tener la capacidad de hacer esto por columnas Sería deseable también, es decir:

field1  variable_length_field variable_length_field 
aaaaaa  aaaa aaaaaaaaa 
bbbbbb  bbbbbbbbbbbbbbbbbbbb bbbb 

Answer 1

Esta función debe hacer el truco:

(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 " "))))) 

Y, puesto que la cuestión se ha actualizado para aplicarse a espacios en una rectángulo, intente esto:

(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

¿Está utilizando un IDE? Si está utilizando algo como Eclipse, puede formatear las opciones de espacio en blanco dentro de él. (En Eclipse, presione CTRL + 3 y busque 'formateador'. ¡Me disculpo por no recordar la ruta exacta!) Luego, debería poder resaltar todo y presionar ctrl + shift + G para auto = formatear todo.

¡Avísenos si ayuda! (O, si desea convertir el código que lo hará, háganos saber el idioma.)

Answer 3

Puede ocuparse de los requisitos de su rectángulo usando las funciones de edición de rectángulo de cua-mode *.

1. M-xcua-selection-modeRET o (cua-selection-mode 1)
   (yo mismo, tienen activada esta función de forma permanente).

2. Marque el rectángulo dentro del cual desea colapsar el espacio en blanco, usando C-RET y las teclas de movimiento normales.

3. Call cua-replace-in-rectangle:
   M-r\s-+RETSPCRET

4. C-RET de nuevo para finalizar la edición rectángulo.

(*) Esto no funcionará si necesita campos a la derecha del rectángulo que se mantengan alineados, como en este caso lo que se necesita para insertar nuevos espacios para compensar las que se han extraído. Puede usar 2C-split y 2C-merge o simplemente matar/tirar del rectángulo más a la derecha para evitarlo.

Answer 4

realmente no responder a su pregunta, pero no es

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] 

que es útil cuando se desea eliminar los espacios en blanco en uno de los casos. Puede ser adecuado para un caso macro donde las eliminaciones están en líneas aleatorias sin un patrón fijo.