• Home
 · 
• Coding Standards
 · 
• Text Sorting Simple and Easy

Text Sorting Simple and Easy

This is an easy, simple and quick code to sorte up a bunch of text lines, say you merged 2 text files and then use this code?.. it only care about the first letter of each line but its easy to add the full line if needed, look

Rate Text Sorting Simple and Easy

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

Revised, it was nice and simple but failed 

too many text files, thanks for all inputs


Also Add a Text1 Multi line = True 

and Command1 to a Form then dump all the code 
below into the form, please comment some more


Option Explicit


Private Sub Command1_Click()

Dim Ray() As String, Oui As Boolean, z As Byte

Dim TmpRay As New Collection

Dim i As Integer, x As Integer, y As Integer 
Dim No As Integer, Pas As Integer

z = 255

'last asc caracter also it is max up for a byte var

Oui = False

' a good name for a true false var, Oui mean Yes in french

TmpRay.Add "ÿ"

'last possible caracter Asc255 added only for the first comparason

Text1 = "FLine 1" & vbCrLf & "XLine 2" & vbCrLf & "BLine 3" & vbCrLf & "ELine 4" & vbCrLf & "HLine 5" & vbCrLf & "ALine 6" & vbCrLf & "MLine 7" & vbCrLf & "BLine 8" & vbCrLf & "GLine 9"


Ray() = Split(Text1, vbCrLf)

For Pas = 0 To UBound(Ray)

 'we splitted this amount of vdCrLt so we set it as max

For i = 0 To UBound(Ray)

 'this is how many comparason per pass

x = Asc(Left(Ray(i), 1))

If x < z Then

'it may be lower lets see if its a reapeat

No = 0

Do

No = No + 1

If Ray(i) = TmpRay(No) Then

Oui = True

'while in do loop,saw it was already there

End If

Loop Until No = TmpRay.Count 

' after No is equal to the collection we see if oui is still false

If Oui = False Then

z = x

'z reset at 255 then keep shrinking till nothing is lower

y = i

'y will hold the lowest possible line

End If

End If

Oui = False

'reset the oui to False default value

Next i

TmpRay.Add Ray(y)

'finally sorted, unique values are added to collection

z = 255 ' reset time

Oui = False ' reset time

Next Pas

TmpRay.Remove (1)

'deleting the asc255 value from the start

Text1 = ""

'to save lines i use this same bow to load the string now it need clearing

For i = 1 To TmpRay.Count

' max amount in the collection

Text1 = Text1 & TmpRay(i) & vbCrLf

'adding them to anything we want, textbox in this case

Next i

End Sub