[ steve585 @ 04.04.2008. 19:18 ] @
Dakle kao sto i sam naslov govori trebao bih uporediti vrijednosti iz dva Array-a, te izbaciti razlicite vrijednosti. Mislio sam da unutar VBA postoji funkcija tipa ArrayDiff. ono sto sam dosada uspio napraviti je sljedce: Code: 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: Code: 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. |