Autor
|
Tema: Numeros dentro de una cadena (Leído 9,023 veces)
|
Fabricio
Desconectado
Mensajes: 115
|
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
|
|
|
En línea
|
|
|
|
h0oke
Desconectado
Mensajes: 2.059
Coder ~
|
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.
|
|
|
En línea
|
|
|
|
Novlucker
Ninja y
Colaborador
Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
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
|
|
|
En línea
|
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD "Hay dos cosas infinitas: el Universo y la estupidez humana. Y de la primera no estoy muy seguro." Albert Einstein
|
|
|
Fabricio
Desconectado
Mensajes: 115
|
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
|
|
|
En línea
|
|
|
|
h0oke
Desconectado
Mensajes: 2.059
Coder ~
|
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!
|
|
|
En línea
|
|
|
|
Fabricio
Desconectado
Mensajes: 115
|
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
|
|
|
En línea
|
|
|
|
h0oke
Desconectado
Mensajes: 2.059
Coder ~
|
La verdad no la conozco. A lo sumo se me ocurre utilizar val() en una función definida por ti.
|
|
|
En línea
|
|
|
|
Fabricio
Desconectado
Mensajes: 115
|
Si yo tambien busque en la web y no encontre gracias saludos
|
|
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
no existe lo que se pide pides
|
|
« Última modificación: 11 Noviembre 2009, 19:26 pm por ░▒▓BlackZeroҖ▓▒░ »
|
En línea
|
The Dark Shadow is my passion.
|
|
|
cobein
|
Private Sub Form_Load() Dim sVal As String
sVal = "ad123123ssss"
Debug.Print sVal Like "*#*"
sVal = "adssss"
Debug.Print sVal Like "*#*" End Sub
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Almacenar números en cadena
Programación C/C++
|
Nobody12
|
0
|
3,658
|
19 Diciembre 2010, 15:04 pm
por Nobody12
|
|
|
[PREGUNTA] Compilar con una cadena de texto (mala descripcion lean dentro)
Programación Visual Basic
|
79137913
|
7
|
3,300
|
29 Enero 2011, 06:44 am
por .mokk.
|
|
|
Comprimir cadena de numeros hexadecimales
Criptografía
|
yercaos
|
1
|
6,269
|
22 Febrero 2011, 18:22 pm
por APOKLIPTICO
|
|
|
Guardar numeros de cadena en variable[python]
Scripting
|
Ricardo95
|
2
|
6,930
|
13 Junio 2011, 23:22 pm
por Ricardo95
|
|
|
reemplasar una cadena de numeros con bat
Scripting
|
craniu
|
2
|
2,581
|
31 Marzo 2012, 17:56 pm
por Eleкtro
|
|