Extraer solo numericos de una cadena

[Saul Piña Hernandez]

Saludos, estoy tratando de obtener el peso de una bascula, ahora bien, ya se que lo mas dificil ya lo hice, pero ya se me acabaron las neuronas para pensar, (cuando ya estas un poco cansado se te cierra todas las ideas, je,je)

Me podrìan ayudar para obtener solo los numeros que se extrae del input de la bascula?

la cadena es la siguiente:

DATO=thisform.oleBascula.input

a lo cual la cadena es: +  0.375  Kgs

Me gustaria obtener nada mas 0.375 y ponerlo en un textbox.

muchas gracias..

[Víctor Hugo Espínola Domínguez]

lcDato = "+  0.375  Kgs"

lnDato = VAL(CHRTRAN(CHRTRAN(lcDato, CHRTRAN(lcDato, "0123456789.", ""), ""), ".", SET("Point")))

Saludos,

Víctor.

Lambaré - Paraguay.

[Fernando D. Bozzo]

Ahi va otra solución:

SET POINT TO '.'
SET SEPARATOR TO ','
? VAL(GETWORDNUM('+  0.375  Kgs', 2))

Los SET son fundamentales.

Saludos.-

[Luis Maria Guayan]

-- Extraer la parte numérica de una cadena --
http://comunidadvfp.blogspot.com/2002/02/extraer-la-parte-numerica-de-una-cadena.html

Luis María Guayán
Tucumán, Argentina
_______________________________
Comunidad Visual FoxPro en Español
http://comunidadvfp.blogspot.com

[Saul Piña Hernandez]

Buenos dias!! Excelente, cualquiera de los tres me ayudó. gracias por la ayuda

[Fabio Ramirez]

Yo solo le agregaria a  lo de victor Hugo

lo siguiente:

ROUND(VAL(CHRTRAN(CHRTRAN(lcDato, CHRTRAN(lcDato, "0123456789.", ""), ""), ".", SET("Point"))),3)

para que no te redonde..! 

Bye

[Carlos Miguel FARIAS]

Podría ser con...

LOCAL ARRAY la AS STRING

ln = ALINES(la, dato, 5, " ")  && Separa las partes por los blancos, quita los blancos de cada parte ln=cantidad de partes

lnValor = VAL(la[2])  && Obtiene el valor numérico requerido

Saludos: Miguel, La Pampa (RA)

Larga Vida y Prosperidad

Que la Fuerza los acompañe