Código de Visual Basic para Aplicaciones - Rellenar con un caracter a la izquierda o derecha

<<>>
Imágen de perfil
Val: 14
Ha disminuido 1 puesto en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Rellenar con un caracter a la izquierda o derechagráfica de visualizaciones


Visual Basic para Aplicaciones

estrellaestrellaestrellaestrellaestrella(1)
Publicado el 29 de Noviembre del 2019 por Ramón
387 visualizaciones desde el 29 de Noviembre del 2019
A falta de una función similar a LPAD O RPAD, mi funcion podría servirte para cubrir ese vacio.

xCadena es la cadena a Convertir.
Número es la longitud total que debe tener la cadena.
Caracter es en sí el caracter a agregar a la cadena, si no mandas nada se asume null string, lo que no tendría sentido.
Izquierda es una variable boleana que por default tieneel valor de True para indicar que el caracter se debe agregar a la izquierda, por supuesto False envia a la derecha.

Requerimientos

No tiene mas requerimientos que el paso de parámetros.

La forma de uso es

x="3"

x= Rellena(x,5, "0")

regresa: x="00003"

y="9"

y= Rellena(y,5, "0", false)

regresa: y="90000"

Versión 1.0
estrellaestrellaestrellaestrellaestrella(1)

Publicado el 29 de Noviembre del 2019gráfica de visualizaciones de la versión: Versión 1.0
388 visualizaciones desde el 29 de Noviembre del 2019
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
Function Rellena(xCadena As String, Numero As Integer, Optional ByVal Caracter As String = vbNullString, Optional ByVal Izquierda As Boolean = True) As String
    If Izquierda Then
        Rellena = String$(Numero - Len(Trim$(xCadena)), Caracter) + xCadena
    Else
        Rellena = xCadena + String$(Numero - Len(Trim$(xCadena)), Caracter)
    End If
End function



Comentarios sobre la versión: Versión 1.0 (1)

Edgardo bravo
2 de Diciembre del 2019
estrellaestrellaestrellaestrellaestrella
Excelente
Responder

Comentar la versión: Versión 1.0

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s5695