Dictionary içinde arama

[tamer42]

Merhaba,

Aşağıdaki Dictionary ile ilgili kodda; aranan ifadeyi tam yazmadan TRUE sonucunu nasıl alabiliriz?

Tam ifadeyi yazmadan bulmanın bir yöntem var mıdır?

Sub GetKeyDict()
Dim dict
Set dict = CreateObject("Scripting.Dictionary")
dict.Add "utensil", "spork"
Debug.Print dict.exists("utens*")
End Sub

teşekkürler,
iyi akşamlar.

 

[veyselemre]

Sub GetKeyDict()
    Dim dict
    Dim strNames As Variant
    Dim strSubNames As Variant
    
    Set dict = CreateObject("Scripting.Dictionary")
    dict.Add "utensil", "spork"
    dict.Add "utensil2", "spork2"
    
    strNames = dict.keys
    
    strSubNames = Filter(strNames, "uten", True, vbTextCompare)
    
    MsgBox "Found " & UBound(strSubNames) - LBound(strSubNames) + 1 & " names." & vbCr & Join(strSubNames, vbCr)

End Sub

 

[tamer42]

Sub GetKeyDict()
    Dim dict
    Dim strNames As Variant
    Dim strSubNames As Variant
   
    Set dict = CreateObject("Scripting.Dictionary")
    dict.Add "utensil", "spork"
    dict.Add "utensil2", "spork2"
   
    strNames = dict.keys
   
    strSubNames = Filter(strNames, "uten", True, vbTextCompare)
   
    MsgBox "Found " & UBound(strSubNames) - LBound(strSubNames) + 1 & " names." & vbCr & Join(strSubNames, vbCr)

End Sub

teşekkürler Veysel Hocam,
iyi ki varsınız!

 

[tamer42]

Sub GetKeyDict()
 

End Sub

Veysel Hocam bir şey daha sorabilir miyim?
Aşağıdaki kodda strSubNames dizisine filtre ettiğimiz key değerlerini alabiliyoruz,
ilave olarak; ikinci bir dizi içine de bu key' lere karşılık gelen Item değerlerini almak için aşağıdaki kodu oluşturdum ama;
bunun farklı bir yöntemi var mıdır?

teşekkürler, iyi akşamlar.

Sub GetKeyDict()
    Dim dict, dc
    
    Dim arr
    Dim strNames As Variant
    Dim strSubNames As Variant
    
    Set dict = CreateObject("Scripting.Dictionary")
    dict.Add "utensil", "spork"
    dict.Add "utensil2", "spork2"
    
    strNames = dict.keys
    
    strSubNames = Filter(strNames, "uten", True, vbTextCompare)
    
    a = UBound(strSubNames) - LBound(strSubNames) + 1
    
    
    a = UBound(strSubNames) - LBound(strSubNames) + 1
     
    ReDim arr(a - 1)
    
   For i = LBound(strSubNames) To UBound(strSubNames)
        arr(i) = dict(strSubNames(i))

    Next i

End Sub

 

[Ziynettin]

Sub GetKeyDict()
    Dim dict, dc
    Dim arr
    Dim strNames As Variant
    Dim strSubNames As Variant
    
    Set dict = CreateObject("Scripting.Dictionary")
    dict.Add "utensil", "spork"
    dict.Add "pazzz", "vvvv"
    dict.Add "utensil2", "spork2"

    strNames = dict.keys
    
    strSubNames = Filter(strNames, "ten", 1, vbTextCompare)
    
     x = LBound(strSubNames) + 1
     y = UBound(strSubNames) + 1

    ReDim arr(x To y, 1 To 2)

   For i = x To y
        n = n + 1
        arr(n, 1) = strSubNames(i - 1)
        arr(n, 2) = dict(strSubNames(i - 1))
    Next i
    
    [A2].Resize(n, 2) = (arr)
    
End Sub

 

[tamer42]

Sub GetKeyDict()
    Dim dict, dc
    Dim arr
    Dim strNames As Variant
    Dim strSubNames As Variant
   
    Set dict = CreateObject("Scripting.Dictionary")
    dict.Add "utensil", "spork"
    dict.Add "pazzz", "vvvv"
    dict.Add "utensil2", "spork2"

    strNames = dict.keys
   
    strSubNames = Filter(strNames, "ten", 1, vbTextCompare)
   
     x = LBound(strSubNames) + 1
     y = UBound(strSubNames) + 1

    ReDim arr(x To y, 1 To 2)

   For i = x To y
        n = n + 1
        arr(n, 1) = strSubNames(i - 1)
        arr(n, 2) = dict(strSubNames(i - 1))
    Next i
   
    [A2].Resize(n, 2) = (arr)
   
End Sub

Hocam ilgi ve alakanız için teşekkürler,

strSubNames = Filter(strNames, "ten", 1, vbTextCompare)

burada içerenler yerine içermeyenleri almak istersek; nasıl bir düzenleme yapılbilir?

iyi Çalışmalar.

 

[Haluk]

    strSubNames = Filter(strNames, "ten", False, vbTextCompare)

.

 

[tamer42]

    strSubNames = Filter(strNames, "ten", False, vbTextCompare)

.

bu kadar kolay mıydı Haluk Hocam
çok teşekkürler