Formatting Strings


This function allows the user to left, right, or center text within a specified length.

EG.

format "Hello" right justified within a length of 10 characters.

" Hello"

option Explicit

Const LJ = 0
Const RJ = 1
Const CJ = 2

Function FormatLen(StringtoFormat as Variant, _
                   LengthtoFormat as Variant, _
                   optional Justify as Variant) as string

    Dim Temp as string
    
    If IsNumeric(LengthtoFormat) = true And IsNumeric(Justify) = _
                                   true then
        If len(StringtoFormat) >= LengthtoFormat then
            FormatLen = Left$(StringtoFormat, LengthtoFormat)
        else
            If IsMissing(Justify) Or Justify = LJ then
                Temp = StringtoFormat & Space(LengthtoFormat - _
                       len(StringtoFormat))
                FormatLen = Temp
            ElseIf Justify = RJ then
                Temp = Space(LengthtoFormat - len(StringtoFormat)) & _
                       StringtoFormat
                FormatLen = Temp
            ElseIf Justify = CJ then
                 Temp = Space((LengthtoFormat \ 2) - (len(StringtoFormat) _
                        \ 2))
                 Temp = Temp & StringtoFormat
                 Temp = Temp & Space(LengthtoFormat - len(Temp))
                 FormatLen = Temp
            else
                MsgBox "Could not format string!", vbOKOnly
            End If
        End If
    else
        MsgBox "Could not format string!", vbOKOnly
    End If

End Function

Download Format.bas (2k)



Comments

  • There are no comments yet. Be the first to comment!

Leave a Comment
  • Your email address will not be published. All fields are required.

Top White Papers and Webcasts

  • Live Event Date: December 11, 2014 @ 1:00 p.m. ET / 10:00 a.m. PT Market pressures to move more quickly and develop innovative applications are forcing organizations to rethink how they develop and release applications. The combination of public clouds and physical back-end infrastructures are a means to get applications out faster. However, these hybrid solutions complicate DevOps adoption, with application delivery pipelines that span across complex hybrid cloud and non-cloud environments. Check out this …

  • Due to internal controls and regulations, the amount of long term archival data is increasing every year. Since magnetic tape does not need to be periodically operated or connected to a power source, there will be no data loss because of performance degradation due to the drive actuator. Read this white paper to learn about a series of tests that determined magnetic tape is a reliable long-term storage solution for up to 30 years.

Most Popular Programming Stories

More for Developers

RSS Feeds