Autor Tema: Obtener solo los numeros de un string  (Leído 16210 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Psyke1

  • Megabyte
  • ***
  • Mensajes: 130
  • Reputación: +11/-7
  • VBManiac
    • Ver Perfil
    • h-Sec
Re:Obtener solo los numeros de un string
« Respuesta #15 en: Enero 16, 2011, 01:35:59 pm »
PD:  ;D comprueven la velocidad (Mi Basura de Codigo) le gana a MrFrog

Me da que estás equivocado. ???
Seguramente, no has compilado el proyecto, en el IDE no nos mostrará lo mismo. ;)
También debes compilarlo quitando la comprobación de límites de arrays.



Cadena larga : 10000 dígitos
Cadena corta : 35 dígitos
Testeado compilado usando la clase CTiming.cls.

Resultado:


DoEvents! :P

VanHan

  • Bytes
  • *
  • Mensajes: 23
  • Reputación: +3/-3
  • .:: [ vHn ] ::.
    • Ver Perfil
    • [VanHan WebSite]
Re:Obtener solo los numeros de un string
« Respuesta #16 en: Enero 16, 2011, 02:14:30 pm »
 ;D Bueno me interesó el post, y me puse a comprobar con mis computadoras las velocidades que imprimia el proyecto en el Form.

Muestro mis resultados:







Es notable quien ha ganado...

PD: Lea tenes q agregar al FORO un Resise Screen...

Salu2
[vHn]

.:: I'm GeeK ::.

LeandroA

  • Administrador
  • Petabyte
  • *****
  • Mensajes: 1128
  • Reputación: +151/-8
    • Ver Perfil
Re:Obtener solo los numeros de un string
« Respuesta #17 en: Enero 16, 2011, 02:31:48 pm »
@VanHan, Que es un Resise Screen para un foro, perdona la ignorancia, es algun tipo de complemento, para que sirve?

Saludos.

VanHan

  • Bytes
  • *
  • Mensajes: 23
  • Reputación: +3/-3
  • .:: [ vHn ] ::.
    • Ver Perfil
    • [VanHan WebSite]
Re:Obtener solo los numeros de un string
« Respuesta #18 en: Enero 16, 2011, 03:06:37 pm »
Hola Lea, es un script/addons/plugin/complemento que sirve para achicar el tamaño de la imagen cuando supera los márgenes de los threads...

Algo asi...
Mira: http://custom.simplemachines.org/mods/index.php?mod=1769

PD: si no me lograas entender avisame por PM q te muestro otro foro q lo hace...

Salu2
[vHn]
« última modificación: Enero 16, 2011, 03:21:35 pm por xkiz »
.:: I'm GeeK ::.

xkiz ™

  • Moderador Global
  • Gigabyte
  • *****
  • Mensajes: 283
  • Reputación: +30/-11
    • Ver Perfil
    • xkiz ™
Re:Obtener solo los numeros de un string
« Respuesta #19 en: Enero 16, 2011, 03:20:06 pm »
@VanHan los hots de imagenes, casi siempre al subir una imagen te da varias opciones y una de ellas es un thumbnail(miniatura) con un link a la imagen original...

VanHan

  • Bytes
  • *
  • Mensajes: 23
  • Reputación: +3/-3
  • .:: [ vHn ] ::.
    • Ver Perfil
    • [VanHan WebSite]
Re:Obtener solo los numeros de un string
« Respuesta #20 en: Enero 16, 2011, 04:09:34 pm »
@xkiz Esa no es la idea, la idea es poner una imgágen con buena calidad y que el foro se encargue mediante un script de hacerle un resise... De esta forma podemos apreciar la calidad de la imágen...

Lea aca tenes algo interesante:

Under Admin -> Gallery Configuration -> Settings
"Resize Images if too large"  make sure that is checked

O sino: http://zbcode.com/topic/1716756/1/

SAlu2
[vHn]
« última modificación: Enero 16, 2011, 06:24:30 pm por xkiz »
.:: I'm GeeK ::.

wolf_kof

  • Visitante
Re:Obtener solo los numeros de un string
« Respuesta #21 en: Enero 17, 2011, 02:59:35 pm »
ya sabia que Mrs.Frog era mas rapido, pero solo queria divagar un rato  8)  ::)

estebanjb

  • Bit
  • Mensajes: 1
  • Reputación: +0/-0
    • Ver Perfil
Re:Obtener solo los numeros de un string
« Respuesta #22 en: Enero 27, 2015, 12:44:08 pm »

Gente este método no falla nunca y es lo más rápido que hay.

Código: [Seleccionar]
Public Class Form1

    Private Function obtenerNumeros(pTexto As String)
        Dim i As Integer = 0
        Dim retorno As String = Nothing
        While i < pTexto.Length
            If pTexto(i) >= "0" And
                pTexto(i) <= "9" Then
                retorno += pTexto(i)
            End If
            i += 1
        End While
        Return retorno
    End Function

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        MsgBox(obtenerNumeros(TextBox1.Text))
    End Sub

End Class


coco

  • Administrador
  • Terabyte
  • *****
  • Mensajes: 548
  • Reputación: +63/-3
    • Ver Perfil
Re:Obtener solo los numeros de un string
« Respuesta #23 en: Enero 29, 2015, 07:53:55 pm »

Gente este método no falla nunca y es lo más rápido que hay.

Código: [Seleccionar]
Public Class Form1

    Private Function obtenerNumeros(pTexto As String)
        Dim i As Integer = 0
        Dim retorno As String = Nothing
        While i < pTexto.Length
            If pTexto(i) >= "0" And
                pTexto(i) <= "9" Then
                retorno += pTexto(i)
            End If
            i += 1
        End While
        Return retorno
    End Function

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        MsgBox(obtenerNumeros(TextBox1.Text))
    End Sub

End Class


Hola, 3 cosas:
1º Reviviste un thread de hace 4 años.
2º el codigo que vos propones es de .NET
3º es mas lento tu codigo, debido a que .NET toma como objetos a los strings, inclusive al "0" y "9". Esto implica que al hacer la comparacion de si es mayor o igual, o menor o igual, se llaman a las funciones sobrecargadas de ambos objetos para comprobar lo mismo. La funcion IsNumeric de VB6 simplemente chequea si el ascii de tal caracter está entre los limites, similar a lo que propones vos, pero comprobando numericamente el ascii (lo cual es mas rapido ya que son 3 lineas en assembly).
'-     coco
(No me cabe: Java, Python ni Pascal)
SQLite - PIC 16F y 18F - ARM STM32 - ESP32 - Linux Embebido - VB6 - Electronica - Sonido y Ambientacion