Eliminar espacio duplicados

[wernser412]

!Hola!
Quisieran vuestra ayuda.
Estoy copiando párrafos de una obra, pero siempre cuando los pego me sale espacios duplicados o triplicados o más.

Como puedo eliminar o borrar espacios duplicados, triplicados, etc. del portapapeles, usando StrReplace o RegExReplace.

[wernser412]

Bueno encontre esto, si lo necesitan

Code: Select all

$^c:: 
 Clipboard := ""
 Send, ^c
 ClipWait 
 Loop
     { 
     StringReplace, Clipboard, Clipboard, %A_Space%%A_Space%, %A_Space%, UseErrorLevel 
     if ErrorLevel = 0
     break 
     }
return

[ositoMalvado]

Code: Select all

$^c:: 
	Clipboard := ""
	Send, ^c
	ClipWait 
	Clipboard:=ponerLindoMiTexto(Clipboard)
return



ponerLindoMiTexto(texto, extremos:=True){
	
	Loop, Parse, texto, `n
	{
		linea := A_LoopField 
		linea := RegExReplace(linea, "\s{2,}|\t", " ")
		If extremos
			linea:=Trim(linea)
		texto .= linea
	}
	If extremos
		Return Trim(texto)
	Return texto
}

[garry]

Además , mantén solo un espacio

Code: Select all

;- Además , mantén solo un espacio
e=
(
   aaa     bbbb     cccc
 ddd      eeee fff
)
aa:=RegExReplace(e,"\x20{2,}"," ")
msgbox,"%aa%"