Export as sorted list

Author: josef-poetzl

source/modules/DeclarationDict.cls

@@ -556,23 +556,31 @@ Public Function LoadFromFile(ByVal FullFileName As String, Optional ByRef ErrorM
 
 End Function
 
-Public Sub ExportToFile(ByVal FullFileName As String)
+Public Sub ExportToFile(ByVal FullFileName As String, Optional ByVal ExportAsSortedList As Boolean = True)
 
+   Dim WordArray() As Variant
    Dim i As Long
 
+   WordArray = m_Words.Keys
+
+   If ExportAsSortedList Then
+      QuickSort WordArray, LBound(WordArray), UBound(WordArray)
+   End If
+
    With New ADODB.Stream
       .Type = 2
       .Charset = "utf-8"
       .Open
-      For i = 0 To m_Words.Count - 1
-         .WriteText m_Words.Keys(i), adWriteLine
+      For i = LBound(WordArray) To UBound(WordArray)
+         .WriteText WordArray(i), adWriteLine
       Next
       .SaveToFile FullFileName, adSaveCreateOverWrite
       .Close
    End With
 
 End Sub
 
+
 #If DebugPrintEnabled Then
 
 Private Sub DebugPrint(ByVal Text2Output As String, _

source/modules/modSort.bas

@@ -0,0 +1,33 @@
+Attribute VB_Name = "modSort"
+Option Compare Database
+Option Explicit
+
+Public Sub QuickSort(ByRef ArrToSort As Variant, ByVal FirstIndex As Long, ByVal LastIndex As Long)
+
+    Dim Low As Long, High As Long
+    Dim Pivot As Variant, Temp As Variant
+
+    Low = FirstIndex
+    High = LastIndex
+    Pivot = ArrToSort((FirstIndex + LastIndex) \ 2)
+
+    Do While Low <= High
+        Do While ArrToSort(Low) < Pivot
+            Low = Low + 1
+        Loop
+        Do While ArrToSort(High) > Pivot
+            High = High - 1
+        Loop
+        If Low <= High Then
+            Temp = ArrToSort(Low)
+            ArrToSort(Low) = ArrToSort(High)
+            ArrToSort(High) = Temp
+            Low = Low + 1
+            High = High - 1
+        End If
+    Loop
+
+    If FirstIndex < High Then QuickSort ArrToSort, FirstIndex, High
+    If Low < LastIndex Then QuickSort ArrToSort, Low, LastIndex
+
+End Sub