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…
5 comentarios:
funciona excelente, gracias,
pd: la variable i esta sin utilizar.
//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;
}
//en c# (y me imagino que en vb.net tambien:
string valor = cadena.TrimStart('0')
Gracias muchachon. Ya esta aplicado en mi sistemita
Saludos
Gracias por sus comentarios, me alegra que les sea de ayuda, saludos :)
Publicar un comentario