Locked Funcion LTrim y RTrim "Espacios" [By Pink]

[Expermicid]

[lenguaje=autoit]#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[/lenguaje]

 

[lenguaje=autoit]#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[/lenguaje]

Edited February 16, 2014 by Expermicid