Solved

collections.Queue with a definite capacity where old objects expire

Posted on 2006-06-22
9
240 Views
Last Modified: 2010-04-24
Hello,

This is in VB.Net although C# may be acceptable too if it can be translated.

I'd like to use something FIFO like System.Collections.Generic.Queue but I'd also like it to have a maximum capacity so that if there are too many items in the queue, the oldest items will fall out of the queue (or expire) as new items are added. I don't want this queue to grow indefinitely.

Is there any way to do this, or is there another object like Queue that has this functionality?

In case you're still confused, this is what I need..

Queue (with a maximum capacity of 3):
(Empty)

This Queue (though I'm not sure if it can be done) should have a maximum size of 3.

When I add in A,B,C, in that order, A will be in 0, B will be in 1, and C will be in 2, like this:

0) A
1) B
2) C

But if I add a fourth item D, A will expire, B will be in 0, C will be in 1, and D will be in 2, like this:

Queue:
0) B
1) C
2) D

I also need to pull items off the stack in a FIFO manner (like Queue's .dequeue), like this (from the B,C,D queue):

Dequeue (pop B off the stack), Dequeue (pop C off the stack) then the stack will look like this:

0) D

Thanks in advance!

Jake
0
Comment
Question by:jakeryan
9 Comments
 
LVL 52

Expert Comment

by:Carl Tawn
ID: 16962278
I'm pretty sure you'll have to either subclass or wrap the Queue class and implement the required functionality yourself.

Maybe you'd be better of with a simple array.
0
 
LVL 85

Expert Comment

by:Mike Tomlinson
ID: 16963012
It would be easy enough to wrap an ArrayList in a Class to give you this functionality...
0
 
LVL 62

Accepted Solution

by:
Fernando Soto earned 500 total points
ID: 16963202
Hi jakeryan;

Here is a Queue Collections Class modified to do what you want.

Public Class SmallQueue1
    Inherits System.Collections.Queue

    Public Sub New()
        MyBase.New()
    End Sub

    Public Sub New(ByVal col As ICollection)
        MyBase.New(col)
    End Sub

    Public Sub New(ByVal capacity As Integer)
        ' As you only want a queue of three set the queue to be three
        ' Do not need to set the grow factor
        MyBase.New(3)
    End Sub

    Public Sub New(ByVal capacity As Integer, ByVal growFactor As Single)
        ' As you only want a queue of three set the queue to be three
        MyBase.New(3)
    End Sub

    Public Overrides Sub Enqueue(ByVal obj As Object)

        If Me.Count > 2 Then
            MyBase.Dequeue()
        End If
        MyBase.Enqueue(obj)

    End Sub

End Class

Now in the Form you can do this.

        Dim myQueue As New SmallQueue1
        myQueue.Enqueue("A")
        myQueue.Enqueue("B")
        myQueue.Enqueue("C")
        myQueue.Enqueue("D")
        myQueue.Enqueue("E")
        myQueue.Enqueue("F")
        myQueue.Enqueue("G")

        Console.WriteLine(myQueue.Dequeue())    ' Prints out E
        Console.WriteLine(myQueue.Dequeue())    ' Prints out F
        Console.WriteLine(myQueue.Dequeue())    ' Prints out G


You can modify the SmallQueue1 Calss as needed.

Fernando
0
 

Author Comment

by:jakeryan
ID: 17053283
FernandoSoto,

Based on the example you've given, that looks like it would do exactly what I need! Unfortunately, due to a more pressing bug I've had to roll back my project to a few weeks ago. I can't wait to try it out though. I just wanted to give you a heads up I didn't abandon this.

Jake
0
Threat Intelligence Starter Resources

Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.

 
LVL 62

Expert Comment

by:Fernando Soto
ID: 17053352
No problem. Let me know if you need any other help with this.

Fernando
0
 
LVL 62

Expert Comment

by:Fernando Soto
ID: 17208044
Hi Bob;

I would like to see a resolution to the problem seeming I gave jakeryan a solution that works and his statement was, "Based on the example you've given, that looks like it would do exactly what I need!"."

Yhanks;

Fernando
0
 

Author Comment

by:jakeryan
ID: 17214054
Not abandoned, I needed more time. Thank you FernandoSoto! I'm sorry I couldn't test this earlier, but due to a very nasty bug in my program popping up, I had to resort to an older version and work my way back up to present. Your queue class worked for me!
0
 
LVL 62

Expert Comment

by:Fernando Soto
ID: 17215222
No problem. Glad I was able to help. ;=)
0

Featured Post

Enabling OSINT in Activity Based Intelligence

Activity based intelligence (ABI) requires access to all available sources of data. Recorded Future allows analysts to observe structured data on the open, deep, and dark web.

Join & Write a Comment

Suggested Solutions

It’s quite interesting for me as I worked with Excel using vb.net for some time. Here are some topics which I know want to share with others whom this might help. First of all if you are working with Excel then you need to Download the Following …
The ECB site provides FX rates for major currencies since its inception in 1999 in the form of an XML feed. The files have the following format (reducted for brevity) (CODE) There are three files available HERE (http://www.ecb.europa.eu/stats/exch…
Illustrator's Shape Builder tool will let you combine shapes visually and interactively. This video shows the Mac version, but the tool works the same way in Windows. To follow along with this video, you can draw your own shapes or download the file…
This video shows how to remove a single email address from the Outlook 2010 Auto Suggestion memory. NOTE: For Outlook 2016 and 2013 perform the exact same steps. Open a new email: Click the New email button in Outlook. Start typing the address: …

744 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now