FIND IN DICTIONARY WHITOUTH loop 1

[sal21]

...
 Set DICT = CreateObject("Scripting.Dictionary")
    DICT.RemoveAll

    For K = 0 To UBound(STRDBROWS, 2)
        ARR_FESTIVI(K) = STRDBROWS(0, K) & ANNO & "-" & STRDBROWS(1, K)
        KY = STRDBROWS(0, K) & ANNO
        ITM = STRDBROWS(1, K)
        DICT.Add KY, ITM
    Next K
...

now how to find by key in DICTIONARY, and return the related item?

 

[strongm]

Seriously?

DICT.Item(key)

 

[sal21]

TKS, bro.

How to check if item not exists based key?

 

[mintjulep]

By using ContainsKey() and ContainsValue() methods, we can check whether the specified key/value elements exist in the dictionary or not. In case, if it exists these methods will return True otherwise False.

If that's implemented in whatever version you is.

 

[strongm]

>If that's implemented in whatever version you is.

Sal21 is using a VBScript dictionary in VB6. It does not have ContainsKey() or ContainsValue() methods

But it isn't too hard to craft one, as long as we remember a minor quirk of the Dictionary object (which is that referencing a non-existent key silently creates that key ...)

[COLOR=blue]Public Function ContainsKey(Dict As Object, Key As Variant) As Boolean
    Dim oldcount As Long
    oldcount = Dict.Count
    If Dict.Item(Key) <> "" And Dict.Count = oldcount Then
        ContainsKey = True
    Else
        Dict.Remove (Key)
    End If
End Function[/color]