Postada em 01/07/2004 17:03 hs
Armando,
aqui eu criei uma função que faz isso, e + algumas coisas.
vc escolhe o Caracter que irá preencher e se irá preencher p/ direita ou esquerda
'Colocar a função em um Modulo ou Classe
Public Enum Alinhamento
Direita = True
Esquerda = False
End Enum
Function PreencheCaracter(strTexto As String, intQuantidade As Integer, strCaractere As String, Optional Alinhamento As Alinhamento) As String
' Preenche a String (strTexto) com uma Quantidade(intQuantidade) de
' um Caracter(strCaracter) a Direita ou Esquerda (Alinhamento)
Dim intContador As Integer
PreencheCaracter = strTexto
For intContador = 1 To intQuantidade - Len(strTexto)
If Alinhamento = Direita Then
PreencheCaracter = strCaractere & PreencheCaracter
Else
PreencheCaracter = PreencheCaracter & strCaractere
End If
Next
End Function
Depois vc substitui as chamadas da função pmask, chamando esta função.
________________________ Té + Que NIMB role bons Dados! 
|
