Por Geymer Morales Cruz

Compartiendo Información...

Método para eliminar ceros a la izquierda en Visual Net

Saludos amig@s, en el siguiente post les mostrare un método con la cual ustedes podrán eliminar todos los ceros a la izquierda de una cadena determina, pues bien por ejemplo tenemos lo siguiente:

Dim sinceros as string
sinceros = CadenaSinCeros(cadena)

Donde sinceros es una varible tipo string y CadenaSinCeros() es el método que realizara el procedimiento, dicho método recibirá por parámetro una cadena y retornara el valor pero sin ceros a la izquierda. Por ejemplo supongamos que cadena=000123, al invocar el método y enviar dicha información este retornara 123, pues sin más el método:

    Public Function CadenaSinCeros(ByVal sEntrada As String) As String
        Dim i As Integer, j As Integer, sIntermedio As String
        For j = 1 To Len(sEntrada)
            If Mid(sEntrada, j, 1) <> "0" Then
                sIntermedio = Mid(sEntrada, j)
                Exit For
            End If
        Next
        CadenaSinCeros = sIntermedio
    End Function

Espero les sea de utilidad, a mi me ayudo bastante. Hasta la próxima…

4 comentarios:

Antonias dijo...

funciona excelente, gracias,
pd: la variable i esta sin utilizar.

jcmxo dijo...

//en C#

public static string quitaCerosIzq_mxo(string valor)
{
int j;

for (j = 0; j < valor.Length; j++)
{
if(valor.Substring(j,1) != "0")
{
valor = valor.Substring(j, valor.Length - j);
break;
}

}

return valor;
}

Cacho dijo...

//en c# (y me imagino que en vb.net tambien:

string valor = cadena.TrimStart('0')

Isaac Hernandez Serrano dijo...

Gracias muchachon. Ya esta aplicado en mi sistemita
Saludos