!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.
Eliminar espacio duplicados
Moderator: Flipeador
- wernser412
- Posts: 14
- Joined: 10 Apr 2023, 21:08
- wernser412
- Posts: 14
- Joined: 10 Apr 2023, 21:08
Re: Eliminar espacio duplicados
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
- Posts: 183
- Joined: 24 Dec 2019, 12:02
- Contact:
Re: Eliminar espacio duplicados
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
Re: Eliminar espacio duplicados
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%"