Rellenar una cadena con ceros por la izquierda
Basurero
04 de Diciembre del 2003
Hola, ¿hay alguna función en Visual Basic que haga lo contrario de Trim, RTrim o LTrim? Es decir, que en vez de quitar espacios añada un carácter para rellenarlo hasta x caracteres. Ejemplo:
miCadena = '3'
pero quiero mostrar:
miCadena = '00003'
No doy encontrado nada en los docs y me revienta porque sé que en PHP se hace str_pad($cadena, $longitud, $car_relleno, STR_PAD_LEFT) y ya está.
Gracias por anticipado
miCadena = '3'
pero quiero mostrar:
miCadena = '00003'
No doy encontrado nada en los docs y me revienta porque sé que en PHP se hace str_pad($cadena, $longitud, $car_relleno, STR_PAD_LEFT) y ya está.
Gracias por anticipado
Juan
04 de Diciembre del 2003
Te pongo dos maneras de hacerlo.
La fácil:
Text1.Text = Format(Text1.Text, "00000")
La menos fácil:
If Len(Text1.Text) < 5 Then
Text1.Text = String(5 - Len(Text1.Text), "0") & Text1.Text
End If
La fácil:
Text1.Text = Format(Text1.Text, "00000")
La menos fácil:
If Len(Text1.Text) < 5 Then
Text1.Text = String(5 - Len(Text1.Text), "0") & Text1.Text
End If
Basurero
04 de Diciembre del 2003
Anda, pues se me escapó la función format(). Al ver que hablaba de diadelasemana y primerdiadeaño en la ayuda, pasé ampliamente.
Gracias por el tip ;-)
Gracias por el tip ;-)