Numeros dentro de una cadena

[Fabricio]

Hola a todos deseo saber si existe una funcion que me permita saber si hay uno o mas números dentro de una cadena
uso este codigo pero no me sirve

Código [Seleccionar] Expandir


'en el txt ingreso e32er
text1.text = "e32er"
If Is Numeric(text1.text)  then 'esto no me funciona por que da falso por mas
                                                    'que la cadena tenga texto


gracias
saludos

[h0oke]

Podrías indexar la cadena, a partir de ello crear un string con los números, una lista de números, o simplemente si existe al menos un número devolver true.

[Novlucker]

Estas comparando una cadena, y debes de comparar caracteres

Código (vb) [Seleccionar] Expandir

Dim Texto As String
Dim i As Integer, contador As Integer
contador = 0

Texto = "e32er"

For i = 1 To Len(Texto)
If IsNumeric(Mid(Texto, i, 1)) Then
contador = contador + 1
End If
Next

MsgBox "Se han encontrado " & contador & " caracteres numéricos en el texto"

Saludos

[Fabricio]

Hola gracias por responder
la solucion de determx no la entendi  igual te agradezco el haberme respondido

la solucion de Novlucker  ya lo habia pensado pero mi pregunta se referia a si existe una función propia de VB 6 que haga lo que Novlucker plantea o sea tomar la cadena y ver si hay un numero

gracias
saludos

[h0oke]

Me refería a lo que hizo Novlucker. El indexado de una cadena, es separarla por caracteres, luego puedes ir almacenando cada caracter que cumpla la condición (IsNumeric), en una lista, o concatenarlo en un string, o solo devolver true o false, o devolver la cantidad de caracteres, como hizo Novlucker.

Un saludo!

[Fabricio]

Existe una función propia de VB 6 que haga lo queuds plantean o sea pasarle la cadena y que me devuelva true o false segun si la cadena tiene un numero o no

[h0oke]

La verdad no la conozco. A lo sumo se me ocurre utilizar val() en una función definida por ti.

[Fabricio]

Si yo tambien busque en la web y no encontre
gracias
saludos

[BlackZeroX]

no existe lo que se pide pides

[cobein]

Código [Seleccionar] Expandir

Private Sub Form_Load()
    Dim sVal As String

    sVal = "ad123123ssss"

    Debug.Print sVal Like "*#*"

    sVal = "adssss"

    Debug.Print sVal Like "*#*"
End Sub