Creating a sorted file.

[Yankeepop]

I wrote a membership program for our local senior center but I can't figure out how to create a alphabetized file so I can send it to a printer.

For instance:

File Names.dat contains
Mary
Jack
Sally
Andrew

I need to create a new alphabetized file.

I know a simple bubble sort routine will do this but I don't know how to do it. Can someone please help me?

[Pradeep1210]

Try this:

Dim myNames() As String = File.ReadAllLines("C:\File Names.dat")
Dim sortedNames = (From name As String In myNames Order By name).ToArray
File.WriteAllLines("C:\File Names.dat", sortedNames)

[Pradeep1210]

Umm... C# code:

string[] myNames = File.ReadAllLines("C:\\File Names.dat");
string[] sortedNames = (from name in myNames orderby name select name).ToArray();
File.WriteAllLines("C:\\File Names.dat", sortedNames);

[Yankeepop]

Thanks Predeep. I'm using VB5.0 I'm just looking for a simple bubble sort routine to open an existing file and create a new sorted file.

[scottlafoy]

Here in the C# section might not be the best place to post a vb5 question, it could take a long time for someone to give you a usable responce.

[Yankeepop]

Thank you Scottlafoy

This is the first time I used the forum and didn't realize I was in the C# section.

I'll repost in the right section if I can figure out this forum.

[Pradeep1210]

Try something like this:

(not tested code)

Private Sub SortArray(ByRef TheArray() As String)
    Dim temp As String, i As Integer, j As Integer
    For i = 0 To UBound(TheArray)
        For j = i To UBound(TheArray)
            If TheArray(i) > TheArray(j) Then
                temp = TheArray(i)
                TheArray(i) = TheArray(j)
                TheArray(j) = temp
            End If
        Next
    Next
End Sub

[RobDog888]

Thread Moved

[akhileshbc]

Based on Rhino's idea in this post: http://www.vbforums.com/showpost.php...34&postcount=2

Option Explicit

Private Sub Form_Load()
Dim strTemp As String
Dim FF As Integer
FF = FreeFile '~~> Get free file handle
Open "c:\abc.txt" For Input As #FF  '~~~> open the file for reading data
While Not EOF(FF)
  Line Input #FF, strTemp
  List1.AddItem strTemp '~~~> Adding the names to the list
Wend
Close #FF
Open "c:\abc.txt" For Output As #FF '~~~>Saving back, the sorted names
Dim i As Integer
For i = 0 To List1.ListCount - 1
  Print #FF, List1.List(i)
Next
Close #FF
MsgBox "finished"
End Sub

List1's Sorted property was set to True at design time