Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

rellenar a la izquierda con ceros

2,296 views
Skip to first unread message

mp

unread,
Jun 9, 2008, 1:04:53 PM6/9/08
to
Hola, tengo que transformar un numero digitado en un
textbox de un winform. Ej '125' a '00000125'. Es para un numero de
factura.
No encuentro la forma de hacerlo con la instruccion FORMAT.... o algo
parecido.
Gracias por la ayuda

MP


Leonardo Azpurua

unread,
Jun 9, 2008, 1:33:21 PM6/9/08
to

"mp" <mpe...@terra.cl> escribió en el mensaje
news:%23VB4zLl...@TK2MSFTNGP02.phx.gbl...

Hola.

Suponiendo que el valor está contenido en una caja de texto llamada
txNumFact, y que el valor correctamente formateado debe volver a esa misma
caja, puedes escribir:

Try
txNumFact.Text = Long.Parse(txNumFact.Text).ToString("00000000")
Catch Ex As Exception ' (*)
MsgBox("Formato de numero inválido")
End Try

(*) La única excepción que podría producirse es debida a un formato inválido
digitado por el usuario. Lo correcto sería usar el tipo de excepcion
correcto, pero no tengo a mano la ayuda.

Salud!


SoftJaén

unread,
Jun 9, 2008, 1:30:49 PM6/9/08
to
"mp" escribió:

> tengo que transformar un numero digitado en un
> textbox de un winform. Ej '125' a '00000125'. Es para
> un numero de factura.
> No encuentro la forma de hacerlo con la instruccion FORMAT.... o algo
> parecido.

Hola:

Si el número siempre va a ser entero y a tener ocho dígitos, puedes utilizar
la función String.Format de la siguiente manera:


TextBox2.Text = String.Format("{0:00000000}", _
Convert.ToInt32(TextBox1.Text))

Un saludo

--
Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.


mp

unread,
Jun 9, 2008, 3:42:26 PM6/9/08
to
ok, muchas gracias a ambos por su valioso aporte.

MP

"Leonardo Azpurua" <l e o n a r d o [arroba] m v p s [punto] o r g> escribió
en el mensaje news:u$MF4ZlyI...@TK2MSFTNGP05.phx.gbl...

SergioT

unread,
Jun 26, 2008, 11:20:11 AM6/26/08
to
Hola

por que no utilizas el método PadLeft asi:

dim s as string
s=me.textbox1.text.trim.PadLeft(10,"0")

eso te asigna en "s" un texto con 10 elementos identados a la derecha y que
rellena lo que falta a la izquierda con ceros

salu2
SergioT
http://sergiotardio.blogspot.com

"mp" <mpe...@terra.cl> escribió en el mensaje de
noticias:#VB4zLly...@TK2MSFTNGP02.phx.gbl...

javier...@gmail.com

unread,
Sep 7, 2015, 1:05:04 PM9/7/15
to
Muchas gracias a mi me funciono lo del padleft
0 new messages