Sort contents of text file with headers alphabetically using vbs

Hi all,

I need to sort, using vb script, the contents of a text file that looks like this:

[WEBN]
Wam Es= 1
AIG Esk=1
Aviv RJF=1
[TABB]
Sch Ins=1
CMH Cap=1
AIG Esk=1
Stikem Ell=1

to have the information under the users name alphabetical like this:

[WEBN]
AIG Esk=1
Aviv RJF=1
Wam Es= 1
[TABB]
AIG Esk=1
CMH Cap=1
Sch Ins=1
Stikem Ell=1

As you can see, the only items to be sorted are those between the closing ] of a users name to the opening [ of another users name, etc.  Please note that I do not need the users sorted at all, just the data below their section.  In my example, [WEBN] can continue to come before [TABB].

I need this in vb script.  Any help would be appreciated.  Thanks.
smsstechAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Shift-3Commented:
Paste the script below into a text file with a .vbs extension.  Customize the value of the strFile variable with the location of the .ini file.  Running the script will sort the lines under each heading.

This script requires the .NET Framework to be installed.


Const ForReading = 1
Const ForWriting = 2
Const TriStateUseDefault = -2
 
strFile = "sample.ini"
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strFile, ForReading, False, TriStateUseDefault)
 
strText = objFile.ReadAll
arrText = Split(strText, vbCrLf)
objFile.Close
 
Set objFile = objFSO.OpenTextFile(strFile, ForWriting, True)
 
For Each strINILine in arrText
    If Left(strINILine, 1) = "[" Then
        If IsArray(arrSection) Then
            For Each strLine in fSortArray(arrSection)
                objFile.WriteLine strLine
            Next		
			
            Set arrSection = nothing
        End If
        objFile.WriteLine strINILine
    ElseIf Not IsArray(arrSection) Then
        ReDim arrSection(0)
        arrSection(0) = strINILine
    Else
        i = UBound(arrSection) + 1
        ReDim Preserve arrSection(i)
        arrSection(i) = strINILine
    End If
Next
 
If IsArray(arrSection) Then
    For Each strLine in fSortArray(arrSection)
        objFile.WriteLine strLine
    Next
End If
 
objFile.Close
 
Function fSortArray(arrSortThisArray)
    Set objArrayList = CreateObject("System.Collections.ArrayList" )
    For i = 0 To UBound(arrSortThisArray)
        objArrayList.Add arrSortThisArray(i)
    Next
    objArrayList.Sort
    set fSortArray = objArrayList
End Function

Open in new window

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
smsstechAuthor Commented:
Shift-3, thank you very much.  That worked like a charm.  I was originally getting a ubound error with my array and was starting to second guess myself, hence the support call as my issue was becoming urgent.  Perfect coding my man.  Cheers.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Scripting Languages

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.