Pasar texto a numero - VB-MUNDO

Insomnia17 · #1 (**permalink**) 10-11-2004, 10:12:23

Hola

Creo que existe una funcion para pasar una cadena de caracteres a numero, es decir, por ejemplo tengo en un String el valor "semana_44.xls" y quiero obtener solo el numero (44).

Creo que la funcion cogia los primeros numeros que encontraba y se quedaba solo con esa parte.

No se si he sido lo suficientemente preciso o si estare mezclando conceptos con el lenguaje SQL pero espero que alguien pueda aclarar mis dudas.

--Gracias--

acalanto · #2 (**permalink**) 10-11-2004, 11:11:22

Existen varias funciones de conversión tales como Val(), Cdbl(), CLng() t Csng(), pero ninguna de ellas te convertirá la cadena seman_44.xls a un valor numérico, incluso valores formateados tales como "3.456.654,231" tampoco te los transformará correctamente.

Puedes hacerte una función más o menos como la siguiente:

Código:

Public Function ExtractNums(cadena as string) as variant
    dim cadnum as string, i as integer
    cadnum=""
    for i=1 to len(cadena)
        if isnumeric(mid(cadena,i,1)) then 
            cadnum=cadnum + mid(cadena,i,1)
        end if 
    next i
    ExtractNum = val(cadnum)
end function

Esta función es únicamente una sugerencia y será necesario que la adaptes a tus necesidades concretas.

Insomnia17 · #3 (**permalink**) 10-11-2004, 12:50:11

Gracias por la ayuda, me sera de utilidad. No se de donde habia sacado la idea de que existia una funcion para hacerlo directamente.

--Gracias--