Código: Seleccionar todo
#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
EndFuncCódigo: Seleccionar todo
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
