Aligning strings within a fixed width

 2009-06-05    Strings    0    226

With the functions below you can align a string (left, center or right) within a fixed width, this might be useful when you e.g. create reports with fix-width column formats.

Function AlignLeft(varItem As Variant, intWidth As Integer) As String
Dim strResult As String, i As Integer
    strResult = CStr(varItem)
    i = intWidth - Len(strResult)
    If i > 0 Then
        strResult = strResult & Space(i)
    End If
    If Len(strResult) > intWidth Then
        strResult = Left$(strResult, intWidth)
    End If
    AlignLeft = strResult
End Function

Function AlignCenter(varItem As Variant, intWidth As Integer) As String
Dim strResult As String, i As Integer
    strResult = CStr(varItem)
    i = intWidth \ 2 - Len(strResult) \ 2
    If i > 0 Then
        strResult = Space(i) & strResult
    End If
    If Len(strResult) > intWidth Then
        strResult = Left$(strResult, intWidth)
    End If
    AlignCenter = strResult
End Function

Function AlignRight(varItem As Variant, intWidth As Integer) As String
Dim strResult As String, i As Integer
    strResult = CStr(varItem)
    i = intWidth - Len(strResult)
    If i > 0 Then
        strResult = Space(i) & strResult
    End If
    AlignRight = strResult
End Function