Bueno aquí les dejo mis versiones de LTrim y RTrim, si quieres quitar los espacios de ambos lados solo combinen las funciones.
le pongo los "-" Para denotar los espacios Eliminados.

Código: Seleccionar todo

#cs -------------------------------------------------------
 AutoIt Version: 3.3.8.1
 Author..........: Pink
 Script Function...: LTrim "Elimina Los Espacios de lado Izquierdo de una Cadena
 Uso..............: LTrim(cadena)
#ce -------------------------------------------------------



$cadena="       Hola Mundo   "
;Ejemplo Uso LTrim
msgbox(0,"","-"& Ltrim($cadena)&"-")

;funcion LTrim
func LTrim($string)
local $var
local $i=0
while StringIsAlNum($var)=0
$var=stringmid($string,$i,1)
$i=$i+1
WEnd
$final = stringmid($string,$i-1)
return $final
EndFunc


Código: Seleccionar todo

#cs -------------------------------------------------------
 AutoIt Version: 3.3.8.1
 Author..........: Pink
 Script Function...: RTrim "Elimina Los Espacios de lado Derecho de una Cadena
 Uso..............: RTrim(cadena)
#ce -------------------------------------------------------



$cadena="       Hola Mundo   "
;Ejemplo RTrim
msgbox(0,"","-"& Rtrim($cadena)&"-")

;funcion RTrim
func RTrim($string)
local $var
local $len=stringlen($string)
local $i=$len
while StringIsAlNum($var)=0
$var=stringmid($string,$i,1)
$i=$i-1
WEnd
$final = stringmid($string,1,$i+1)
return $final
EndFunc
Saludos
Imagen
Responder

Volver a “Fuentes”