Utilizamos cookies propias y de terceros. [Más información sobre las cookies].
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Wiki
Dejar sólo números en una cadena - Visual Basic
Lenguaje de programación Visual Basic

Os mostramos la siguiente función Visual Basic, a la que se le pasa una cadena como parámetro y la devuelve sólo con números y puntos. Le quita cualquier otro carácter que contenga (letras o caracteres especiales), dejando sólo los números y los puntos.

Esta función Visual Basic es útil para formatear cadenas, para trabajar con números.


Function dejarNumerosPuntos(cadenaTexto As String) As String
  Const listaNumeros = "0123456789."
  Dim cadenaTemporal As String
  Dim i As Integer

  cadenaTexto = Trim$(cadenaTexto)
  If Len(cadenaTexto) = 0 Then
    Exit Function
  End If
 
  cadenaTemporal = ""

  For i = 1 To Len(cadenaTexto)
    If InStr(listaNumeros, Mid$(cadenaTexto, i, 1)) Then
      cadenaTemporal = cadenaTemporal + Mid$(cadenaTexto, i, 1)
    End If
  Next
  dejarNumerosPuntos = cadenaTemporal
End Function
Un ejemplo de uso:
  ipPublica = Trim(dejarNumerosPuntos(ipPublica))
  obtenerIPPublica = ipPublica




Publicado el: 2009-08-28

Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A