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

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


+  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 9,023 veces)
Fabricio

Desconectado Desconectado

Mensajes: 115


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

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 pm »

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 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 pm »

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 pm »

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 pm »

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 pm »

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 pm »

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 pm »

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

BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


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

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


Desconectado Desconectado

Mensajes: 759



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

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 3,658 Último mensaje 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 Último mensaje 29 Enero 2011, 06:44 am
por .mokk.
Comprimir cadena de numeros hexadecimales
Criptografía
yercaos 1 6,269 Último mensaje 22 Febrero 2011, 18:22 pm
por APOKLIPTICO
Guardar numeros de cadena en variable[python]
Scripting
Ricardo95 2 6,930 Último mensaje 13 Junio 2011, 23:22 pm
por Ricardo95
reemplasar una cadena de numeros con bat
Scripting
craniu 2 2,581 Último mensaje 31 Marzo 2012, 17:56 pm
por Eleкtro
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines