AutoIT Alternativa a Función VAL() de Visual Basic [By DuNeD@i]

[Expermicid]

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

Autor: 'DuNeD@i'

Fecha: 10/07/2012

Función: Alternativa a Función Val() de Visual Basic

Explicación: Devuelve los números que hay en una cadena

Uso: _Val('0a1b2c3d4e5f6g7h8i9j')

Créditos: Pink, Gracias por su gran ayuda

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

Func _Val($Dat)

dim $x, $i, $t, $p, $Final

For $x = 1 to StringLen ($Dat)

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

$t = StringIsAlpha($i)

If $t == 0 Then

$p = $p & $i

Else

EndIf

Next

$Final = StringReplace($p, ' ', '')

Return $Final

EndFunc [/lenguaje]

Funcion Explicada:

[lenguaje=autoit]Func _Val($Dat)

dim $x, $i, $t, $p, $Final

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

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

$t = StringIsAlpha($i) ; Esta función revisa si una cadena contiene solamente caracteres alfabéticos. Devuelve 0 si la cadena contiene Caracteres no-alfabéticos y 1 si solo contiene caracteres alfabéticos.

If $t == 0 Then ; Si devuelve 0

$p = $p & $i ;Almacenamos en una variable, los valores que devolvió 0

Else ;sino

EndIf ; nada

Next

$Final = StringReplace($p, ' ', '') ; Reemplazamos por si existe algún espacio en la cadena, y lo quitamos

Return $Final ;Retorna lo almacenado

EndFunc[/lenguaje]

Autor: DuNeD@i

Fuente: UDT