Vista - How to insert an entry at first position of a Scripting.Dictionary ?

When I create a Scripting.Dictionary with a command like

Set objLines = CreateObject("Scripting.Dictionary")

I can later add entries at the end with a command

objLines.Add strLine, True

But what if I want to insert them at the first position (and shift the existing lines
one position to the end).

A similar question applies to ArrayLists:

Set arrList = CreateObject("System.Collections.ArrayList")

How can I achieve an insert at the first position for this Object?

Thomas

On Mar 16, 3:06*am, t.lebre...@xxxxxx (Thomas Lebrecht) wrote:Can you explain why you want/need to do this, since it is my belief
that a fundamental purpose of a dictionary is to make such an action
unnecessary. Rather, the Key is used to address items in the
dictionary, irrespective of their relative position in it.

Without a clearer understanding of the exact objective, the best I can
say is that the dictionary will need to be rebuilt. That is,
temporary arrays of keys and items would need to be made from the
current state of the dictionary, the dictionary emptied, the new first
items added and then the arrays of keys and items added back in. This
might be fine for simple lists, but would get slower and slower as the
dictionary grew.

Sorting an ArrayList might provide what you need, if a suitable index
arrangement can be constructed, but more information about the details
of your problem and objective are needed, at least as far as I am
concerned.

Tom Lavedas
***********
http://there.is.no.more/tglbatch/

Thomas Lebrecht wrote:You can use a disconnected recordset. Something like:

Const adUseClient = 3
Const adOpenStatic = 3
Const adLockBatchOptimistic = 4
Const adInteger = 3
Const adVarChar = 200
Const adDate = 7
Const adTypeBinary = 1

Set oRs = Server.CreateObject("ADODB.Recordset")
oRs.ActiveConnection = Nothing
oRs.CursorLocation = adUseClient
oRs.CursorType = adOpenStatic

oRs.Fields.Append "Name", adVarChar, 255
oRs.Fields.Append "Size", adInteger
oRs.Fields.Append "Description", adVarChar, 255

oRs.Open

oRs.AddNew
oRs(0) = "Anything.txt"
oRs(1) = 100
oRs(2) = "Anything really"

oRs.Sort = "Name" ' "Name DESC" for descending sort

--
..::[ Hz ]::.

"T Lavedas" <tglbatch@xxxxxx> wrote in message
news:c871ea76-ce32-4779-93bc-5f33d0b27928@xxxxxx
On Mar 16, 3:06 am, t.lebre...@xxxxxx (Thomas Lebrecht) wrote:Can you explain why you want/need to do this, since it is my belief
that a fundamental purpose of a dictionary is to make such an action
unnecessary. Rather, the Key is used to address items in the
dictionary, irrespective of their relative position in it.

Without a clearer understanding of the exact objective, the best I can
say is that the dictionary will need to be rebuilt. That is,
temporary arrays of keys and items would need to be made from the
current state of the dictionary, the dictionary emptied, the new first
items added and then the arrays of keys and items added back in. This
might be fine for simple lists, but would get slower and slower as the
dictionary grew.

Sorting an ArrayList might provide what you need, if a suitable index
arrangement can be constructed, but more information about the details
of your problem and objective are needed, at least as far as I am
concerned.

Tom Lavedas
***********
http://there.is.no.more/tglbatch/

-------------------

Entries in a dictionary object have no order. Likewise, items in a recordset
have no order, unless the recordset is sorted.

--
Richard Mueller
MVP Directory Services
Hilltop Lab - http://www.rlmueller.net
--

Thomas,

I think that everybody thinks: Why is Thomas using a scripting directory and
codes like it is VB6 or VBA?"

Can you describe your problem so that you can get an answer in a truly
managed code way?

Cor


"Thomas Lebrecht" wrote:

On Mar 16, 8:25*pm, "Richard Mueller [MVP]" <rlmueller-
nos...@xxxxxx> wrote:I'm not certain what your point is. Conceptually, what you say is
true. That is what my first statement was trying to convey. However,
in a practical sense they have the order in which the data is 'added'
to the set. Witness the fact that the conversion of items and keys to
arrays results in the elements being in that order in each of the
arrays. For example, ...

Set objList = CreateObject("Scripting.Dictionary")

objList.Add "One", 1
objList.Add "Three", 3
objList.Add "Two", 2

arrKeys = objList.Keys
arrItems = objList.Items

wsh.echo Join(arrKeys, vbTab), vbNewline & Join(arrItems, vbTab)

If your point was that the OP was confused about the purpose and use
of a dictionary object, I would agree. Again, that is exactly what I
was trying to get across. If that's not your point, you'll need to
explain, because I'm too dense to understand it.

Tom Lavedas
***********
http://there.is.no.more/tglbatch/

Oh, I think what you mean now. The text on a page in a book needs to be
in a certain order. Sorting it would make it unreadable.

I think this is what you want:

'###############################################################################
'# Run it using CScript
'#
'# Code by Hz - 2009
'###############################################################################

Dim oAl
Set oAl = CreateObject("System.Collections.ArrayList")
oAl.Add "First line"
oAl.Add "Second line"
oAl.Add "Third line"
oAl.Add "Fifth line"
Show oAl

'# Insert at the specified index (zero based)
oAl.Insert 3, "Fourth line"
Show oAl

Set oAl = Nothing

Sub Show(ByVal inArr)
Dim OutText
For Each Item In inArr
OutText = OutText & " " & Item
Next
Trim(OutText)
WScript.Echo OutText
End Sub

--
..::[ Hz ]::.

I was too quick to post my code. Here is a better version

---------------------------

'###############################################################################
'# Run it using CScript
'#
'# Code by Hz - 2009
'###############################################################################

Option Explicit

Dim oAl
Set oAl = CreateObject("System.Collections.ArrayList")
oAl.Add "First line"
oAl.Add "Second line"
oAl.Add "Third line"
oAl.Add "Fifth line"
Show oAl

oAl.Insert 3, "Fourth line"
Show oAl

Set oAl = Nothing

Sub Show(ByVal inArr)
Dim OutText, Item
For Each Item In inArr
WScript.Echo Item
Next
WScript.Echo
End Sub

---------------------------

Output:
First line
Second line
Third line
Fifth line

First line
Second line
Third line
Fourth line
Fifth line
--
..::[ Hz ]::.

Hz wrote:Clarification:

The textLINES on a page in a book needs to be in a certain order.
Sorting them would make it unreadable.

--
..::[ Hz ]::.