Here is my implementatio of collectio. It is faster and uses less memory. Every operation can be completed in log time in the worst case scenario. I'v been using it for the last 20 years and maybe now is time to share it with the world.
Source can be found here:
https://sourceforge.net/projects/van...htycollection/
Here is an example of how to use it
Source can be found here:
https://sourceforge.net/projects/van...htycollection/
Here is an example of how to use it
Code:
Private Sub Command1_Click()
Dim c As New VMMC, i As Long
c.Cols = 2
c.ColType(0) = vmeInteger
c.ColType(1) = vmeString
' add million items at the end
For i = 0 To 1000000
c.Add , i
c(i, , 0) = i
c(i, , 1) = Str(i)
Next
' delete 500000 items from the middle
For i = 0 To 500000
c.Remove Int(c.Count / 2)
Next
' update values
For i = 0 To c.Count - 1
c.Cell(i, , 0) = 1000000 - i
Next
MsgBox c.Count
End Sub