por p@li » 06 Jul 2006 11:56
Private Sub Prueba()
Dim Resultado As String
'si la cadena a completar es menor que la cant de caracteres se le agregan tantos espacios para llegar a la cantidad pedida
Resultado = CompletarCadena("esto es solamente un ejemplo", 60)
MsgBox """" & Resultado & """" & Chr(13) & "(" & Len(Resultado) & " caracteres)"
'si es menor la palabra a completar es cortada hasta ajustarse a la cantidad pedida
Resultado = CompletarCadena("esto es solamente un ejemplo", 10)
MsgBox """" & Resultado & """" & Chr(13) & "(" & Len(Resultado) & " caracteres)"
End Sub
Function CompletarCadena(ByVal Cadena As String, ByVal Caracteres As Long) As String
If Len(Cadena) < Caracteres Then
CompletarCadena = Cadena & Space(Caracteres - Len(Cadena))
Else
CompletarCadena = Left(Cadena, Caracteres)
End If
End Function