Separar texto de numeros

[jafl318]

Buenos Dias,

Mi duda es la siguiente tengo una caja de texto la cual me almacena un texto combinado con un numero es decir: tambor plastico por 227 Kg y necesito extraer solo el numero (227) para poder hacer un claculo.

he leido de la funcion split pero aun no se como opera bien.

Gracias para los que me puedan ayudar.

[David]

Tal vez algo así te sirva:

Código vb:

Dim Texto As String
Dim sTexto() As String
Dim Looping As Byte
 
Texto = "tambor plastico por 227 Kg"
'Convertir la cadena en un arreglo, usando como separador el espacio " "
sTexto = Split(Texto, " ")
'Recorrer todos los elementos obtenidos
For Looping = 0 To UBound(sTexto)
    'Si es numérico salir del bucle
    If IsNumeric(sTexto(Looping)) Then Exit For
Next Looping
MsgBox sTexto(Looping)
 

[jafl318]

Gracias David,

es perfecta tu solucion.....

Gracias por colaborar con foros asi..

[jafl318]

ven pero tengo una duda...

el numero que necesito que me saque no me lo esta sacando sera que la funcion IsNumeric no esta funcionando bien?

solo quiero que me saque el numero que esta en ese campo.

[David]

Depende de la cadena de texto que tengas para que funcione correctamente. Como sólo mostraste un patrón, te indiqué el código que podría servir en el caso, si muestras otros patrones que pudiera tener podría ayudarte mejor.

[jafl318]

es simplemente esto:

el codigo esta bien pero no me muestra el x numero que tenga esa caja.

es asi:

en una caja de texto donde esciben algo cualquier cosa, pero el escrito siempre va a llevar un numero, es ese numero que necesito almacenarlo en una variable para operarlo. solo el numero mas no el texto.

[David]

Entonces cambia un poco la situación, tal vez convendría usar una expresión regular:

Código vb:

Dim regExp As Object
Dim Texto As String
Texto = "Cualquier texto con numeros 125"
Set regExp = CreateObject("VBScript.RegExp")
regExp.Pattern = "(\d+)"
If regExp.Test(Texto) Then
    MsgBox regExp.Execute(Texto)(0).Value
End If
Set regExp = Nothing
 

[jafl318]

David....Eres grande...

gracias por tus respuestas con la ultima lo pude completar y funciono..

Slds y Gracias.

[way2park]

Hola david!!!

Mira yo necesitaba algo como te habia dicho jaf pero al reves. Osea queria sacar el texto solo
y arme esto con tu codigo. No creo que sea la forma mas profesional de hacerlo pero lo pongo por si alguien le sirve

Código:

   
    Dim Texto As String
    Dim sTexto() As String
    Dim Looping As Byte
    Dim textoF as string  
   
    Texto = "mi linea 30"
    'Convertir la cadena en un arreglo, usando como separador el espacio " "
    sTexto = Split(Texto, " ")
    'Recorrer todos los elementos obtenidos
    For Looping = 0 To UBound(sTexto)
        'Si es numérico salir del bucle
        If IsNumeric(sTexto(Looping)) Then
           Exit For
        else
           textoF=textoF & " " & sTexto(Looping)
        endif
    Next Looping
    MsgBox textoF

y asi saco como en este caso "mi linea" lo que si a mi me sirvio porque los caracteres especiales o los numeros estan al final, calculo que si los numeros estan en el medio del texto habria que continuar el bucle y pasar por alto los numeros. en fin

Gracias por tu codigo !!!