elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Numeros dentro de una cadena
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 Ir Abajo Respuesta Imprimir
Autor Tema: Numeros dentro de una cadena  (Leído 6,382 veces)
Fabricio

Desconectado Desconectado

Mensajes: 115


Ver Perfil
Numeros dentro de una cadena
« en: 11 Noviembre 2009, 15:14 »

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:
'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 Desconectado

Mensajes: 2.059


Coder ~


Ver Perfil WWW
Re: Numeros dentro de una cadena
« Respuesta #1 en: 11 Noviembre 2009, 15:21 »

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
Moderador Global
***
Desconectado Desconectado

Mensajes: 10.683

Yo que tu lo pienso dos veces


Ver Perfil
Re: Numeros dentro de una cadena
« Respuesta #2 en: 11 Noviembre 2009, 15:23 »

Estas comparando una cadena, y debes de comparar caracteres

Código
  1. Dim Texto As String
  2. Dim i As Integer, contador As Integer
  3. contador = 0
  4.  
  5. Texto = "e32er"
  6.  
  7. For i = 1 To Len(Texto)
  8. If IsNumeric(Mid(Texto, i, 1)) Then
  9. contador = contador + 1
  10. End If
  11. Next
  12.  
  13. 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 Desconectado

Mensajes: 115


Ver Perfil
Re: Numeros dentro de una cadena
« Respuesta #3 en: 11 Noviembre 2009, 15:53 »

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
En línea

h0oke


Desconectado Desconectado

Mensajes: 2.059


Coder ~


Ver Perfil WWW
Re: Numeros dentro de una cadena
« Respuesta #4 en: 11 Noviembre 2009, 15:56 »

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 Desconectado

Mensajes: 115


Ver Perfil
Re: Numeros dentro de una cadena
« Respuesta #5 en: 11 Noviembre 2009, 16:13 »

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 Desconectado

Mensajes: 2.059


Coder ~


Ver Perfil WWW
Re: Numeros dentro de una cadena
« Respuesta #6 en: 11 Noviembre 2009, 16:26 »

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 Desconectado

Mensajes: 115


Ver Perfil
Re: Numeros dentro de una cadena
« Respuesta #7 en: 11 Noviembre 2009, 17:00 »

Si yo tambien busque en la web y no encontre
 gracias
saludos
En línea

BlackZeroX (Astaroth)
Wiki

Desconectado Desconectado

Mensajes: 3.128


I'Love...!¡.


Ver Perfil WWW
Re: Numeros dentro de una cadena
« Respuesta #8 en: 11 Noviembre 2009, 18:43 »

no existe lo que se pide pides
« Última modificación: 11 Noviembre 2009, 19:26 por ░▒▓BlackZeroҖ▓▒░ » En línea




CScript (Actualizado 26/06/2013).

FileX <-- Re-modelando...
Web Principal-->[ Blog(VB6/C/C++) | Host File | Scan Port) ]

The Dark Shadow is my passion.
El infierno es mi Hogar, mi novia es Lilit y el metal mi relig
cobein


Desconectado Desconectado

Mensajes: 759



Ver Perfil WWW
Re: Numeros dentro de una cadena
« Respuesta #9 en: 11 Noviembre 2009, 19:17 »

Código:
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

http://www.advancevb.com.ar
Más Argentino que el morcipan
Aguante el Uvita tinto, Tigre, Ford y seba123neo
Karcrack es un capo.
Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Almacenar números en cadena
Programación C/C++
Nobody12 0 2,663 Último mensaje 19 Diciembre 2010, 15:04
por Nobody12
[PREGUNTA] Compilar con una cadena de texto (mala descripcion lean dentro)
Programación Visual Basic
79137913 7 1,966 Último mensaje 29 Enero 2011, 06:44
por .mokk.
Comprimir cadena de numeros hexadecimales
Criptografía
yercaos 1 4,474 Último mensaje 22 Febrero 2011, 18:22
por APOKLIPTICO
Guardar numeros de cadena en variable[python]
Scripting
Ricardo95 2 5,260 Último mensaje 13 Junio 2011, 23:22
por Ricardo95
reemplasar una cadena de numeros con bat
Scripting
craniu 2 1,461 Último mensaje 31 Marzo 2012, 17:56
por Eleкtro
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines