Convertir número almacenado como texto Visual Basic [SOLUCIONADO]

Los desafíos en la manipulación de datos suelen ser una constante cuando trabajamos con lenguajes de programación, y en el ámbito de la programación con Visual Basic no es diferente. A menudo, nos encontramos con la necesidad de manejar números que, por diversas circunstancias, han sido almacenados como texto. Este escenario es recurrente en aplicaciones que se integran con sistemas externos, leen archivos de texto o se enfrentan a bases de datos con diseño de tipos de datos poco rigurosos.

Entendiendo la Problemática de Datos Almacenados como Texto

Dentro del trabajo con Visual Basic, es común que variables numéricas terminen representadas en forma de cadenas de texto (strings). Este hecho puede obedecer a distintos factores como incompatibilidades de tipos de datos durante la importación, exportación o simplemente a formas poco adecuadas de almacenamiento de datos en su origen.

Transformar esta cadena de texto de nuevo a un tipo numérico es una operación frecuentemente requerida, sea para realizar operaciones matemáticas, para pasar este dato a otro sistema que requiere un número o sencillamente para adherirse a buenas prácticas de programación que buscan preservar la naturaleza de los datos.

Visual Basic y la Función CInt

Visual Basic ofrece varias funciones que ayudan en la conversión de tipos de datos. Una de las más comunes es CInt, que convierte cualquier expresión numérica o de cadena en un entero de 32 bits.

Function ConvertirTextoANumero(texto As String) As Integer
    ConvertirTextoAEntero = CInt(texto)
End Function

Copiar

Sin embargo, al trabajar con esta función es importante tener en cuenta que si la cadena de texto no tiene un formato apropiado (por ejemplo, contiene letras o símbolos no numéricos), la función generará un error en tiempo de ejecución.

La Versatilidad de la Función Val

Otra alternativa es la función Val, que proporciona un modo más permisivo de extraer números de una cadena, ignorando cualquier caracter que no sea numérico hasta llegar a uno que no corresponda.

Function ObtenerNumeroDeTexto(texto As String) As Double
    ObtenerNumeroDeTexto = Val(texto)
End Function

Copiar

Con Val, si la cadena comienza con espacios o caracteres numéricos, se realizará la conversión hasta alcanzar un caracter que no pueda interpretarse como parte del número. Sin embargo, esta función siempre devuelve un número de tipo Double.

Manejo de Casos Especiales con IsNumeric y CDbl

El uso de IsNumeric puede ayudarte a prevenir errores al trabajar con cadenas de texto que podrían no ser números. Esta función es útil para validar si una cadena puede ser convertida a un número o no.

Function TextoEsConvertibleANumero(texto As String) As Boolean
    TextoEsConvertibleANumero = IsNumeric(texto)
End Function

Copiar

Cuando se confirma que la cadena es numérica, se puede utilizar CDbl para realizar una conversión segura a un tipo de dato Double, que puede manejar números decimales y enteros extensos.

Function ConvertirTextoADouble(texto As String) As Double
    ConvertirTextoADouble = CDbl(texto)
End Function

Copiar

Este ejemplo demuestra cómo se puede combinar IsNumeric con CDbl para una conversión de datos más resiliente a errores:

Function ConvertirTextoSeguro(texto As String) As Variant
    If IsNumeric(texto) Then
        ConvertirTextoSeguro = CDbl(texto)
    Else
        ConvertirTextoSeguro = Nothing
    End If
End Function

Coparin a more advanced conversion, handling various data formats

Uso de Convert y TryCast para Tipos Personalizados

En ciertos escenarios, puede ser necesario realizar una conversión a tipos de datos no estándar, como estructuras o clases definidas por el usuario. En estos casos, Visual Basic ofrece la instrucción Convert y la operación TryCast.

Function ConvertirTextoAObjetoPersonalizado(texto As String) As MiTipoPersonalizado
    ConvertirTextoAObjetoPersonalizado = Convert.ChangeType(texto, GetType(MiTipoPersonalizado))
End Function

Copiar