Solved

Smart Padding of Spaces

Posted on 2004-09-28
5
243 Views
Last Modified: 2010-04-17
Here's a snippet of a .FRM file:
   Begin VB.Label lblDescription
      BackStyle       =   0  'Transparent
      Caption          =   "lblDescription"
      Height            =   255
      Left                =   120
      TabIndex        =   6
      Top                =   1560
      Width             =   4935
   End
Observe how neatly the "=" are arranged in a vertical axis.Now suppose you're given this list -
BackStyle,Caption,Height,Left,TabIndex,Top & Width.How would you arrange it in precisely the same manner as above - with leading spaces & "="?
0
Comment
Question by:EXwithRaj
  • 2
5 Comments
 

Expert Comment

by:Daniel_Iankov
ID: 12168016
If you ate working uder Visual Studio .net  pressing  Ctrl+k and then Ctrl+F should do the trick - this is the Autoformating function, also under Edit->Advanced.
0
 
LVL 85

Accepted Solution

by:
Mike Tomlinson earned 30 total points
ID: 12169965
You have to use a MonoSpaced Font (like Courier or Courier New) and code such as the below.  If you don't want a hardcoded column width then you have to walk your data set first to determine the width of the largest item.  The code below outputs to Text1 which has its MultiLine property set to true.

Option Explicit

Private Sub Command1_Click()
    Dim separator As String
    Dim colWidth As Integer
    Dim item As Variant
    Dim items As Variant
    Dim values As Variant
   
    Text1.Text = ""
    separator = " = "
    colWidth = 15
    item = "BackStyle|0,Caption|""lbDescription"",Height|255,Left|120,TabIndex|6,Top|1560,Width|4935"
    items = Split(item, ",")
    For Each item In items
        values = Split(item, "|")
        Text1.Text = Text1.Text & trailingSpaces(values(0), colWidth) & separator & values(1) & vbCrLf
    Next
End Sub

Private Function trailingSpaces(ByVal strInput As String, ByVal columnWidth As Integer) As String
    Dim spacesNeeded As Integer
   
    spacesNeeded = columnWidth - Len(strInput)
    If spacesNeeded >= 0 Then
        trailingSpaces = strInput & Space(spacesNeeded) ' pad
    Else
        trailingSpaces = Left(strInput, columnWidth) ' truncate
    End If
End Function
0
 

Author Comment

by:EXwithRaj
ID: 12187739
Hello Daniel,have you misunderstood my question?I am interested in a VB code that would perform the task that I'd explained.But your suggestion to press some hot-keys or set some menu options is indeed mystifying!What are you up to?
0
 
LVL 85

Expert Comment

by:Mike Tomlinson
ID: 12400693
I don't think it should be deleted with points refunded since my solution does what was asked.

~IM
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Displaying an arrayList in a listView using the default adapter is rarely the best solution. To get full control of your display data, and to be able to refresh it after editing, requires the use of a custom adapter.
Entering a date in Microsoft Access can be tricky. A typo can cause month and day to be shuffled, entering the day only causes an error, as does entering, say, day 31 in June. This article shows how an inputmask supported by code can help the user a…
In this fourth video of the Xpdf series, we discuss and demonstrate the PDFinfo utility, which retrieves the contents of a PDF's Info Dictionary, as well as some other information, including the page count. We show how to isolate the page count in a…
With the power of JIRA, there's an unlimited number of ways you can customize it, use it and benefit from it. With that in mind, there's bound to be things that I wasn't able to cover in this course. With this summary we'll look at some places to go…

679 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question