FIND IN ARRAY

[sal21]

I rfill array with:

....

Code: Select all

 ReDim Preserve ARRAY_IMGLIST(P1)
            ARRAY_IMGLIST(P1) = P1 & "|" & Split(STATO, "-")(1)
            P1 = P1 + 1

...

is a good idea to find item with:

If InStr(1, Join((ARRAY_IMGLIST)), vbNullChar, TR) >= 1 Then
Debug.Print IDX
End If

in my case i need to get the P1

NOTE:
ARRAY_IMGLIST is Variant dimensioned
TR is the second part of array ( Split(STATO, "-")(1))

[HansV]

What is IDX?

[sal21]

What is IDX?

i need to fill IDX with the result, sorry, i have used for test

[HansV]

Code: Select all

    Dim S As String
    Dim P As Long
    Dim Q As Long
    S = "|" & Join(ARRAY_IMGLIST, "|") & "|"
    P = InStr(S, "|" & TR & "|")
    If P > 0 Then
        Q = InStrRev(S, "|", P - 1)
        IDX = Mid(S, Q + 1, P - Q - 1)
        Debug.Print IDX
    End If

[sal21]

Code: Select all

    Dim S As String
    Dim P As Long
    Dim Q As Long
    S = "|" & Join(ARRAY_IMGLIST, "|") & "|"
    P = InStr(S, "|" & TR & "|")
    If P > 0 Then
        Q = InStrRev(S, "|", P - 1)
        IDX = Mid(S, Q + 1, P - Q - 1)
        Debug.Print IDX
    End If

Super!

[sal21]

Code: Select all

    Dim S As String
    Dim P As Long
    Dim Q As Long
    S = "|" & Join(ARRAY_IMGLIST, "|") & "|"
    P = InStr(S, "|" & TR & "|")
    If P > 0 Then
        Q = InStrRev(S, "|", P - 1)
        IDX = Mid(S, Q + 1, P - Q - 1)
        Debug.Print IDX
    End If

Super!

Hummmmm

But you use and if and if, but Is to check if item existst or not?
In this case all item are il list...

[HansV]

Sorry, what exactly are you asking?

[sal21]

Sorry, what exactly are you asking?

'M WRONG, SORRY.
ALL IS OK.

[sal21]

Code: Select all

    Dim S As String
    Dim P As Long
    Dim Q As Long
    S = "|" & Join(ARRAY_IMGLIST, "|") & "|"
    P = InStr(S, "|" & TR & "|")
    If P > 0 Then
        Q = InStrRev(S, "|", P - 1)
        IDX = Mid(S, Q + 1, P - Q - 1)
        Debug.Print IDX
    End If

bro...
possible to use this code as function, to pass the parameter TR and return F?

[HansV]

Code: Select all

Function GetIndex(TR)
    Dim S As String
    Dim P As Long
    Dim Q As Long
    S = "|" & Join(ARRAY_IMGLIST, "|") & "|"
    P = InStr(S, "|" & TR & "|")
    If P > 0 Then
        Q = InStrRev(S, "|", P - 1)
        GetIndex = Mid(S, Q + 1, P - Q - 1)
    End If
End Function

[sal21]

Code: Select all

Function GetIndex(TR)
    Dim S As String
    Dim P As Long
    Dim Q As Long
    S = "|" & Join(ARRAY_IMGLIST, "|") & "|"
    P = InStr(S, "|" & TR & "|")
    If P > 0 Then
        Q = InStrRev(S, "|", P - 1)
        GetIndex = Mid(S, Q + 1, P - Q - 1)
    End If
End Function

tks.

[SpeakEasy]

Find in (string) array? This is the sort of thing the Filter method is designed for!

e.g.

Code: Select all

    Dim filterresult() As String
    filterresult = Filter(ARRAY_IMGLIST(), TR)
    If UBound(filterresult) <> -1 Then IDX = Split(filterresult(0), "|")(0) 'IDX

[sal21]

Find in (string) array? This is the sort of thing the Filter method is designed for!

e.g.

Code: Select all

    Dim filterresult() As String
    filterresult = Filter(ARRAY_IMGLIST(), TR)
    If UBound(filterresult) <> -1 Then IDX = Split(filterresult(0), "|")(0) 'IDX

nice!
Tks

but for function, for pass TR?

[SpeakEasy]

Code: Select all

Function GetIndex(TR)
    Dim filterresult() As String
    filterresult = Filter(ARRAY_IMGLIST(), TR)
    If UBound(filterresult) <> -1 Then GetIndex = Split(filterresult(0), "|")(0)
End Function

[rory]

Just bear in mind that Filter returns any items that contain the searched value. They don't have to be an exact match. So for example filtering for "test" would match "latest" too.