Wie kann ich eine für jede Schleife in einem Array verwenden?

Question

Ich habe ein Array von Strings:

Dim sArray(4) as String 

ich in der Anordnung durch die einzelnen String werde:

for each element in sarray 
    do_something(element) 
next element 

do_something nimmt einen String als Parameter

ich einen Fehler Gang bin immer das Element als String:

ByRef Argument Mismatc h

Sollte ich das Element in einen String oder etwas konvertieren?

Answer 1

Element eine Variante sein muss, Sie können es also nicht als String deklarieren. Ihre Funktion sollte eine Variante akzeptieren, wenn es sich um eine Zeichenfolge handelt, solange Sie sie ByVal übergeben.

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 

Die andere Option besteht darin, die Variante in eine Zeichenfolge zu konvertieren, bevor sie übergeben wird.

do_something CStr(element) 

Answer 2

A für jede Schleifenstruktur ist mehr um das Sammlungsobjekt entworfen. A For..Jede Schleife benötigt einen Variant-Typ oder -Objekt. Da Ihr „Element“ Variable als eine Variante Ihre „do_something“ eingegeben wird Funktion benötigen einen Variantentyp zu akzeptieren, oder Sie können Ihre Schleife so etwas wie dies ändern:

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

Ich benutze die Counter-Variable wie Fink suggeriert. Wenn Sie möchten, für jeden und passiert ByRef (die effizienten für lange Strings sein kann) Sie werfen müssen, um Ihr Element als String CStr mit

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

was ist mit dieser einfachen InArray Funktion:

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