Funcion de asp para llenar una cadena con un caracter X

[dauphins]

Amigos, pregunto cual es la funcion que me permite llenar una cadena de cualquier caracter ya sea ala izquierda o derecha indicando cuantos se repetiran.

Ejm:

palabra = "Asp"

llenarEspacioFinal("Asp", "*", 3)

resultado = Asp***

Algo asi.

Gracias.

[inerte15]

se me ocurre:
palabra = "asp"
PalabraLen =Len(palabra) ' te dice cuantas palabras tiene

' total = 3
' cumplir total de palabras = 5
Tpalabra = (totalPalabra - palabraLen) ' TPalabra = (5-3) = 2

if Tpalabra =2 then
palabra = palabra & "**"

elseif Tpalabra = 3 then
palabra = palabra & "***";

end if

[mc_quake]

function llena(palabra,caracter,cant,posicion)

'creamos cadena de caracteres repetidos a agregar
for 1 to cant
caracteres = caracteres&caracter
next

if posicion = 1 Then ' 1 agrega al final los caracteres
cadena = palabra&caracter
ElseIf posicion = 2 Then ' 2 agrega al inicio los caracteres
cadena = catarcer&palabra
End if

llena = cadena

end Function


y se llama asi

texto = "Hola"

response.write(llena(texto,"*",4,1))

esto mosgtraria por pantalla

Hola****

si el 1 lo cambias por 2 te mostraria

****Hola

[Joch_pa]

otra seria (para agregar a la derecha) utilizar la siguiente funcion (es recursiva, no iterativa, yo la hice) utilízala si la consideras apropiada, al ser recursiva, tienes sus pros y contras, pero es muy sencilla y entendible

Código ASP:

function Llena( vP , vC , vN)
    Llena = vP
    if vN>=1 then Llena = Llena (vP & vC , vC , vN-1 )
end function
 
variable = "ASP"
response.Write Llena(variable,"*",3)
 

Código Resultado:

ASP***
 

[AWesker]

Buenas funciones...

Pero si quieres complicarte menos puedes usar la función PadLeft o PadRight.

Un ejemplo usando Padleft sería así:


Dim Cadena As String
Dim relleno As Char
cadena = "hola mundo"
relleno = "*"
Label1.Text = (cadena.PadLeft(15, relleno)) 'Veras "*****hola mundo".
Label2.Text = (cadena.PadLeft(2, relleno)) ' Veras "hola mundo".

Saludos...