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
'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
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.
Estas comparando una cadena, y debes de comparar caracteres
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
Hola gracias por responder
la solucion de determx no la entendi :huh: 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
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!
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
La verdad no la conozco. A lo sumo se me ocurre utilizar val() en una función definida por ti.
Si yo tambien busque en la web y no encontre
gracias
saludos
no existe lo que se pide pides
Private Sub Form_Load()
Dim sVal As String
sVal = "ad123123ssss"
Debug.Print sVal Like "*#*"
sVal = "adssss"
Debug.Print sVal Like "*#*"
End Sub
Jajajaja... Buenisimo Cobein...!
.
muchas gracias a todos en especia a cobein voy a usar tu funcion
saludos