Jak mogę użyć a dla każdej pętli w tablicy?

Question

Mam tablicę łańcuchów:

Dim sArray(4) as String 

ja jadę przez każdy ciąg w tablicy:

for each element in sarray 
    do_something(element) 
next element 

do_something pobiera ciąg jako parametr

Otrzymuję odejście błędzie element jako ciąg:

ByRef Argument Mismatc h

Czy powinienem konwertować element na ciąg lub coś takiego?

Answer 1

Element musi być wariantem, więc nie możesz zadeklarować go jako ciąg. Twoja funkcja powinna zaakceptować wariant, jeśli jest ciągiem, o ile przekazujesz go przez ByVal.

Public Sub example() 
    Dim sArray(4) As string 
    Dim element As variant 

    For Each element In sArray 
     do_something (element) 
    Next element 
End Sub 


Sub do_something(ByVal e As String) 

End Sub 

Inną opcją jest przekonwertowanie wariantu na ciąg przed jego przekazaniem.

do_something CStr(element) 

Answer 2

A dla każdej struktury pętli jest bardziej zaprojektowany wokół obiektu kolekcji. Pętla For..Each wymaga typu wariantu lub obiektu. Ponieważ zmienna „Element” jest wpisane jako wariant swoją funkcję „do_something” będą musieli zaakceptować typ wariantu, można też modyfikować swoją pętlę na coś takiego:

Public Sub Example() 

    Dim sArray(4) As String 
    Dim i As Long 

    For i = LBound(sArray) To UBound(sArray) 
     do_something sArray(i) 
    Next i 

End Sub 

Answer 3

Używam zmiennej licznika, jak sugeruje Fink. Jeśli chcesz dla każdego i przekazać ByRef (który może być bardziej efektywny dla długich ciągów) trzeba oddać elementu jako ciąg znaków z wykorzystaniem CStr

Sub Example() 

    Dim vItm As Variant 
    Dim aStrings(1 To 4) As String 

    aStrings(1) = "one": aStrings(2) = "two": aStrings(3) = "three": aStrings(4) = "four" 

    For Each vItm In aStrings 
     do_something CStr(vItm) 
    Next vItm 

End Sub 

Function do_something(ByRef sInput As String) 

    Debug.Print sInput 

End Function 

Answer 4

co o tej prostej funkcji inArray:

Function isInArray(ByVal stringToBeFound As String, ByVal arr As Variant) As Boolean 
For Each element In arr 
    If element = stringToBeFound Then 
     isInArray = True 
     Exit Function 
    End If 
Next element 
End Function