|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Datas/Números/Strings)
|
|
 |
Título da Dica: Alinhando uma String PADL <- PadC <-> PadR->
|
 |
|
|
|
Postada em 20/10/2006 por Milton Grobe
milgrobe@hotmail.com
------------------------------------------------------------------------------------------
' Ajusta o texto para nLen caracteres preenchendo com espaços a esquerda
Public Function PadR(cText, nLen As Integer) As String
Dim nTam As Integer
Dim cTexto As String
nTam = nLen - Len(Trim(cText))
If nTam > 0 Then
PadR = Space(nTam) & Trim(cText)
Else
PadR = Right(Trim(cText), nLen)
End If
End Function
------------------------------------------------------------------------------------------
' Ajusta o texto para nLen caracteres preenchendo com espaços a Direita
Public Function PadL(cText, nLen As Integer) As String
Dim nTam As Integer
Dim cTexto As String
nTam = nLen - Len(Trim(cText))
If nTam > 0 Then
PadL = Trim(cText) & Space(nTam)
Else
PadL = Left(Trim(cText), nLen)
End If
If Trim(cText) = "" Then
PadL = Space(nTam)
End If
End Function
------------------------------------------------------------------------------------------
' Ajusta o texto para nLen caracteres preenchendo com espaços a esquerda e a Direita
Public Function PadC(cText, nLen As Integer) As String
Dim nTam As Integer
Dim nLeft As Integer
Dim nRight As Integer
Dim cTexto As String
nTam = nLen - Len(Trim(cText))
If nTam > 0 Then
nLeft = Int(nTam / 2)
nRight = nTam - nLeft
PadC = Space(nLeft) & Trim(cText) & Space(nRight)
Else
PadL = Left(Trim(cText), nLen)
End If
If Trim(cText) = "" Then
PadC = Space(nTam)
End If
End Function
|
|
|
|
|
