Mislio sam da unutar VBA postoji funkcija tipa ArrayDiff.
ono sto sam dosada uspio napraviti je sljedce:
Trazeni_File_Array = Array(Left(Lista_P, Duzina_Liste_P))
Lista_Imena = Array(Left(Lista, Duzina_Liste))
x = True
For i = LBound(Trazeni_File_Array) To UBound(Trazeni_File_Array)
If Trazeni_File_Array(i) <> Lista_Imena(i) Then
x = False
Exit For
End If
Next i
If x = True Then
MsgBox "Match"
Else
MsgBox "Item " & Trazeni_File_Array(i) & " does not match"
End If
Na ovaj nacin uspijem dobiti da li prvi i drugi array imaju istu vrijednost.
Medjutim osim ove vrijednosti trebao bih i pronaci element unutar Array-a koji je razlicit od elemenata drugog Array-a.
Probao sam sljedece:
Tabelle1.Cells(10, 1) = Trazeni_File_Array
Tabelle1.Cells(10, 2) = Lista_Imena
c = Asc(Trazeni_File_Array(i)) - Asc(Lista_Imena(i))
Tabelle1.Cells(10, 3) = c
Medjutim bez uspjeha. Vrijednost c je uvijek 0. Ima li tko ideju kako izdvojiti razlicit element iz Array-a.