none
Sacar numero de un string RRS feed

  • Pregunta

  • hola que tal..,le comento el problema..,he cargado en un datatable las direcciones de calles de mis clientes..,estas direcciones ya vienen con el numero de la casa..,lo que desea hacer es quitar el numero de esa direccion y ponerlo en otro campo tipo "INT"...

    El numero de casa que contiene la direcciones siempre sera igual o mayor a tres digitos..,muchas gracias..!!

    martes, 26 de octubre de 2010 17:43

Respuestas

  • Esta función te devuelve un valor de tipo long con los caracteres numericos que tiene la cadena que le entra como parámetro. Todo dependerá de los datos que tengas en la cadena para extraiga correctamente el numero.

    Public Function SoloNumeros(ByVal strCadena As String) As Long
            Dim i As Integer
            For i = 1 To Len(strCadena)
                If Mid$(strCadena, i, 1) Like "#" Then _
                SoloNumeros = CLng(SoloNumeros & Mid$(strCadena, i, 1))
            Next i
        End Function

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

              dim valor as long=clng(SoloNumeros(Me.TextBox11.Text))
           '....... una vez extraido el valor realizar las operacion de insert o update
        End Sub

    Salu2


    nunca te acostarás sin saber una cosa más
    martes, 26 de octubre de 2010 18:39

Todas las respuestas

  • Esta función te devuelve un valor de tipo long con los caracteres numericos que tiene la cadena que le entra como parámetro. Todo dependerá de los datos que tengas en la cadena para extraiga correctamente el numero.

    Public Function SoloNumeros(ByVal strCadena As String) As Long
            Dim i As Integer
            For i = 1 To Len(strCadena)
                If Mid$(strCadena, i, 1) Like "#" Then _
                SoloNumeros = CLng(SoloNumeros & Mid$(strCadena, i, 1))
            Next i
        End Function

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

              dim valor as long=clng(SoloNumeros(Me.TextBox11.Text))
           '....... una vez extraido el valor realizar las operacion de insert o update
        End Sub

    Salu2


    nunca te acostarás sin saber una cosa más
    martes, 26 de octubre de 2010 18:39
  • Holas,
    puedes mandar el formato de la dirección? por ejemplo, el número siempre va al final?

    Un Saludo
    Jersson

    miércoles, 27 de octubre de 2010 2:46
  • hola,

    ¿Pudiste Analizar las Informaciones Que te facilitaron ?


    Enmanuel Grullard@Developer ASP.NET
    miércoles, 27 de octubre de 2010 11:49
    Moderador
  • HOla..,muchas gracias y disculpen por la tardanza en responder,esque me quede sin internet..jeje

    El codigo que me ha facilitado el Sr. babaroja me funciono muy bien.., pero existe un inconveniente..,algunas direcciones tienen este formato

    16 Proyectadas y San Carlos 1525

    San Fermin 1254 entre 16 Proyectadas y 17 Proyectadas.

    Cuando ejecuto la funcion que el Sr. Barbaroja me ha facilitado..,me devuelve la concatenacion de este modo

    161525 o 12541617

    Si la direccion es de esta forma  San Carlos 1525 la funcion fuciona de maravillas..,gracias

     

    PD:muchas gracias barbaroja..!!

    miércoles, 27 de octubre de 2010 19:43