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

  • Java developers know that testing code changes can be a huge pain, and waiting for an application to redeploy after a code fix can take an eternity. Wouldn't it be great if you could see your code changes immediately, fine-tune, debug, explore and deploy code without waiting for ages? In this white paper, find out how that's possible with a Java plugin that drastically changes the way you develop, test and run Java applications. Discover the advantages of this plugin, and the changes you can expect to see …

  • Corporate e-Learning technology has a long and diverse pedigree. As far back as the 1980s, companies were adopting computer-based training to supplement traditional classroom activities. More recently, rich web-based applications have added streaming audio and video, real-time collaboration and other new tools to the e-Learning mix. At the same time, the growing availability of informal learning tools--a category that includes everything from web searches to social media posts--are having a major impact on …

Most Popular Programming Stories

More for Developers

Latest Developer Headlines

RSS Feeds