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