viernes, 8 de marzo de 2013

Extraer numeros de una cadena de texto

A Continuación tenemos un ejemplo , permitirá separas números de una cadena de texto...


Imagen
******

Código fuente
************

Paso 1.
******
'Agregamos una clase donde crearemos una función que se encargue de extraer solo números de la cadena de texto.
Public Class ucExtraer_Numero
'Creamos una función publica que se encargue de extraer solo números
    Public Function SoloNumeros(ByVal strCadena As StringAs Object
        Dim SoloNumero As String = ""
        Dim index As Integer
        For index = 1 To Len(strCadena)
            If (Mid$(strCadena, index, 1) Like "#") _
                Or Mid$(strCadena, index, 1) = "-" Then
                SoloNumero = SoloNumero & Mid$(strCadena, index, 1)
            End If
        Next
        Return SoloNumero
    End Function
End Class

Paso 2.
******
' Validamos el evento Click del button
Private Sub btnExtraer_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles btnExtraer.Click
Try
        'Hacemos referencia a la clase
        Dim oExtraer As New ucExtraer_Numero
          'Mostramos el valor  resultante de la clase
        txtSoloNumeros.Text = oExtraer.SoloNumeros(txtValor.Text)

Catch ex As Exception
  MessageBox.Show(ex.Message, "vb.net", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
 End Sub

Fuentes de Información
*******************
Recopilación de distintas fuentes.