Funcion LTrim y RTrim "Espacios"
Publicado: 26 Jul 2012, 15:09
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.
Saludos
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
EndFuncCó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