Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
?
Solved

Sort contents of text file with headers alphabetically using vbs

Posted on 2008-10-27
2
Medium Priority
?
452 Views
Last Modified: 2010-04-21
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.
0
Comment
Question by:smsstech
2 Comments
 
LVL 38

Accepted Solution

by:
Shift-3 earned 2000 total points
ID: 22815004
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
 

Author Closing Comment

by:smsstech
ID: 31510324
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

Featured Post

Technology Partners: 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

This script will sweep a range of IP addresses (class c only, 255.255.255.0) and report to a log the version of office installed. What it does: 1.)      Creates log file in the directory the script is run from (if it doesn't already exist) 2.)      Sweep…
Active Directory replication delay is the cause to many problems.  Here is a super easy script to force Active Directory replication to all sites with by using an elevated PowerShell command prompt, and a tool to verify your changes.
Learn the basics of modules and packages in Python. Every Python file is a module, ending in the suffix: .py: Modules are a collection of functions and variables.: Packages are a collection of modules.: Module functions and variables are accessed us…
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…
Suggested Courses

578 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