Visual Basic - Extraer números

Life is soft - evento anual de software empresarial
   
Vista:

Extraer números

Publicado por Gina (8 intervenciones) el 18/11/2009 07:08:26
Hola

Tengo una tabla donde todos sus campos son de texto y se llenan en automático de unos instrumentos, en varios de estos se encuentran datos como:

"25 %"
"10 PPM"
"Res 0.5543 ", etc

De estos datos tengo que tomar algunos para sacar unas gráficas, lógicamente solo tengo que tomar el número. Pensé en una rutina para extraer caracteres 1x1 y apartar los numéricos, pero son tantos campos y registros que no se si convenga.
Alguien me puede comentar alguna otra idea?
Gracias de antemano y saludos codiales.
Atte. Gina
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Extraer números

Publicado por Pedro Luis (878 intervenciones) el 18/11/2009 09:39:18
En principo no me parece mala idea
En un módulo crea la siguiente función

Function Numero(Texto As String)
Dim N As Integer
Numero = ""
For N = 1 To Len(Texto)
If IsNumeric(Mid(Texto, N, 1)) Then Numero = Numero + Mid(Texto, N, 1)
Next
End Function

y se invoca así A=numero(Tabla!Campo) o así A=Numero("qweqe1224gr5")
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Extraer números

Publicado por jaime guerrero (29 intervenciones) el 18/11/2009 15:26:48
bueno, la rutina que estas pensando en sacarlos uno por uno es la mas correcta. ya que no sabes la posicion exacta
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar