AutoIT Alternativa Trim() [By DuNeD@i]

[Expermicid]

[lenguaje=autoit]#cs #############################################################################

Autor: 'DuNeD@i'

Fecha: 11/07/2012

Alternativa a Función Trim()

Explicación: Devuelve una cadena quitando todos los espacios existentes

Uso: Msgbox (0, '', _Trim('H o l a M u n d o ?')) -> Devuelve 'HolaMundo?'

#ce #############################################################################

Func _Trim($Dat)

Dim $x, $i, $t, $Final

For $x = 1 to StringLen ($Dat)

$i = StringMid($Dat, $x, 1)

$t = StringIsSpace($i)

if $t = 0 Then

$Final = $Final & $i

Else

EndIf

Next

Return $Final

EndFunc [/lenguaje]

Funcion explicada:

[lenguaje=autoit]Func _Trim($Dat)

Dim $x, $i, $t, $Final ;Declaramos variables

For $x = 1 to StringLen ($Dat) ; Iniciamos un bucle recorriendo toda la longitud de la cadena

$i = StringMid($Dat, $x, 1) ; Vamos cogiendo caractéres, de uno en uno; esta función devuelve una subcadena de una cadena, parámetros(cadena, inicio, numero de caracteres que coje)

$t = StringIsSpace($i); Revisa si una cadena contiene solamente caracteres de espacios en blanco

if $t = 0 Then ; Si el espacio es en blanco

$Final = $Final & $i ;Almacenamos en una variable, los valores que devolvió.

Else

EndIf

Next

Return $Final ;Retorna lo almacenado

EndFunc[/lenguaje]

Autor: DuNeD@i

Fuente: UDT