adding list to dictionary or array

[22strider]

Hello Friends

Is it possible to add values to array or dictionary that can be used as a look up list?
I would like to add following list and later check if certain value starts with values in this list or not.

FP-*
TJ-*
TP-*
WP-*
BR-*
HS-*

I am not sure if adding wild card "*" to the list is a good idea or not.

Thanks
Rajesh

 

[tigeravatar]

Rajesh,

One way is to use a delimited string containing what you want to check, and then check to see if the item is in that string or not like so:

Sub tgr()
    
    Dim strCheck As String
    Dim strTemp As String
    
    strCheck = " FP TJ TP WP BR HS "
    strTemp = "FP-123"
    
    
    If InStr(1, strCheck, " " & Left(strTemp, 2) & " ", vbTextCompare) > 0 Then
        'strTemp was found inside strCheck
        'Do something
        MsgBox "Found!"
    Else
        'strtemp was not found inside strcheck
        MsgBox "Not Found"
    End If
    
End Sub

 

[22strider]

Hello

Interesting take; I'll give it a try and let you know how it worked. Another bit of complication is that the entries for 'strCheck' don't always have 2 characters. Some are of 1 and 3 characters as well.

Thanks
Rajesh

 

[22strider]

Question for you; why did you add space " " before and after Left(strTemp, 2)?
in the same line why did you add space before and after entries in 'strCheck'?
My instinct was to compare 'FP-' with first 3 characters of 'strTemp'

 

[tigeravatar]

That was to avoid partial matches. If you're looking for just "a", it would find a match in "abc", but with the spaces, " a " no longer matches " abc ".

As for the differing lengths, it could probably be worked out, but I'd need some examples. If you want to go the array/dictionary route though, that is also doable, though the code is a bit longer.