HELP! Sorting Numbers From Text File!

[kapaka2]

ok so there are 300 numbers in a text file, they are all out of order and im just trying to print all of them in order from smallest to biggest

i really need some help, please dont just direct me to another topic about this unless its exactly like the help i need

this is teh code i have so far, but it wont work

thank you so much, hopefully someone knows whats wrong

Dim nom(1 To 300)
Private Sub Form_Load()
Dim count As Single
Open "NUMBERS.TXT" For Input As #1
Do While EOF(1) = False
    count = count + 1
    Input #1, nom(count)
Loop
Close #1
End Sub
 
Private Sub cmdCalculate_click()
Call Sort
Call Show
End Sub
 
Private Sub Showz()
Dim i As Integer
 
picOutput.Cls
For i = 1 To 300
    picOutput.Print nom(count)
Next i
End Sub
Private Sub Sort()
Dim passNum As Single, count2 As Single
'Bubble sort table in descending order by population
For passNum = 1 To 299
    For count2 = 1 To 300 - passNum
            If nom(count2) > nom(count2 + 1) Then
            temp = nom(count2)
            nom(count2) = nom(count2 + 1)
            nom(count2 + 1) = temp
            End If
            Next count2
    Next passNum
End Sub

[kapaka2]

double post, i came up with some new code but it prints the first number everytime instead of going to the next

cant any of you guys just look at my code for one sec and try to figure something out

Dim nom(1 To 500) As Single
Private Sub cmdDumb_Click()
Dim count As Single, flag As Boolean
Open App.Path & "\7Data.Txt" For Input As #1
For i = 1 To 100
    Input #1, nom(i)
Do
count = 1
flag = 0
If nom(count) > nom(count + 1) Then
temp = nom(count)
nom(count) = nom(count + 1)
nom(count + 1) = temp
flag = 1
End If
picOutput.Print temp
count = count + 1
Loop Until flag = 0
Next i
Close #1
End Sub

[DigiRev]

cant any of you guys just look at my code for one sec and try to figure something out

Dim nom(1 To 500) As Single
Private Sub cmdDumb_Click()
Dim count As Single, flag As Boolean
Open App.Path & "\7Data.Txt" For Input As #1
For i = 1 To 100
    [COLOR=Red]Input #1, nom(i)[/COLOR]
Do
count = 1
flag = 0
If nom(count) > nom(count + 1) Then
temp = nom(count)
nom(count) = nom(count + 1)
nom(count + 1) = temp
flag = 1
End If
picOutput.Print temp
count = count + 1
Loop Until flag = 0
Next i
Close #1
End Sub

Try using Line Input instead of just Input.

Also, a quicker way, if the file isn't too big, is to load the entire file at once into an array, and then sorting that array.

Here's an example:

Option Explicit
 
Private Sub Command1_Click()
    Dim lonFF As Long, strData() As String
    Dim lonLoop As Long
    
    'Get an available file handle.
    lonFF = FreeFile
    
    Open "C:\numbers.txt" For Input As #lonFF
        'Load the entire contents of the file into strData variable
        'while splitting it into an array.
        strData() = Split(Input(LOF(lonFF), lonFF), vbNewLine)
    Close #lonFF
    
    'Sort the array.
    ShellSortNumbers strData()
    
    lonFF = FreeFile
    
    'Open the output file.
    Open "C:\numbers (sorted).txt" For Append As #lonFF
        
        'Loop through sorted array and print to file.
        For lonLoop = 0 To UBound(strData())
            Print #lonFF, strData(lonLoop)
        Next lonLoop
        
    Close #lonFF
    
End Sub
 
'MSDN's version of sorting numbers (SLOW).
'Replace with your own.
Sub ShellSortNumbers(vArray As Variant)
  Dim lLoop1 As Long
  Dim lHold As Long
  Dim lHValue As Long
  Dim lTemp As Long
 
  'startTime = Time()
  lHValue = LBound(vArray)
  Do
    lHValue = 3 * lHValue + 1
  Loop Until lHValue > UBound(vArray)
  Do
    lHValue = lHValue / 3
    For lLoop1 = lHValue + LBound(vArray) To UBound(vArray)
      lTemp = vArray(lLoop1)
      lHold = lLoop1
      Do While vArray(lHold - lHValue) > lTemp
        vArray(lHold) = vArray(lHold - lHValue)
        lHold = lHold - lHValue
        If lHold < lHValue Then Exit Do
      Loop
      vArray(lHold) = lTemp
    Next lLoop1
  Loop Until lHValue = LBound(vArray)
  'endTime = Time()
  'timeToSort = endTime - startTime
  'timeTaken = timeTaken & ";   Shell Sort: " & timeToSort
End Sub

[westconn1]

Try using Line Input instead of just Input.

who said the file had lines?

do a search on this forum for quick sort or bubble sort