Eliminar espacio duplicados

Esta sección es para preguntas sobre programación/scripting usando AutoHotkey.

Moderator: Flipeador

User avatar
wernser412
Posts: 14
Joined: 10 Apr 2023, 21:08

Eliminar espacio duplicados

Post by wernser412 » 17 Apr 2023, 20:52

!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.
User avatar
wernser412
Posts: 14
Joined: 10 Apr 2023, 21:08

Re: Eliminar espacio duplicados

Post by wernser412 » 18 Apr 2023, 19:05

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
User avatar
ositoMalvado
Posts: 183
Joined: 24 Dec 2019, 12:02
Contact:

Re: Eliminar espacio duplicados

Post by ositoMalvado » 25 Aug 2023, 20:36

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
}
My WEB some useful stuff
garry
Posts: 3795
Joined: 22 Dec 2013, 12:50

Re: Eliminar espacio duplicados

Post by garry » 26 Aug 2023, 15:05

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%"
Post Reply

Return to “Pedir Ayuda”