Confrontare due array

[Grinder]

Si che schemo che sono...ora ho corretto! Ho bisogno dei due cerchi uniti!!! Insomma non ci devono esser doppioni!

[optime]

array 1: a b c d e f
array 2: a b c x y z

si vuole ottenere: a b c

corretto?

[Baol74]

Tutto sto casino per dire che dovevi fare l'unione di due insiemi!
E quando parlavi di somma, eliminazione cosa intendevi?

[Grinder]

Che non voglio doppioni

Voglio la somma dei due array e ottenerne un terzo senza doppioni

[Baol74]

Scusa, non so se sono io che sono confuso o tu.

Dato i due array che ha scritto optime, quali devono essere i risultati?

[optime]

a gri', sei na forza di chiarezza

array 1: a b c d e f
array 2: a b c x y z

si vuole ottenere: a b c d e f x y z

corretto?

[Baol74]

Function InString(StringList,Value,Ch)
	InString = InStr(1,Ch & StringList & Ch,Ch & Value & Ch,1)>0
End Function

Function AddArray(Ar1,Ar2)
	Dim l1,l2,Length,i,ChSep
	Dim StrArray,ArCheck
	ChSep = "|"
	l1 = uBound(Ar1)
	l2 = uBound(Ar2)
	If l1>l2 then
		StrArray = Join(Ar1,ChSep):ArCheck = Ar2:Length = l2
	Else
		StrArray = Join(Ar2,ChSep):ArCheck = Ar1:Length = l1
	End if
	For i = 0 to Length
		If Not InString(StrArray,ArCheck(i),ChSep) then StrArray = StrArray & ChSep & ArCheck(i)
	Next
	AddArray = Split(StrArray,ChSep)
End Function

AddArray(Ar1,Ar2) restituisce un array come descritto da optime.
Ar1 e Ar2 non devono avere dupplicati al loro interno.
Ar1 e Ar2 devono avere almeno un elemento.

All'interno della funzione ChSep deve essere un carattere che mai comparira negli elementi degli array. Nel caso di incertezza è meglio metterne due. Esempio ChSep = "|@"

[Grinder]

a gri', sei na forza di chiarezza

array 1: a b c d e f
array 2: a b c x y z

si vuole ottenere: a b c d e f x y z

AHAHA si, scusate, non so far di meglio!

[Baol74]

Se guardi in su, c'è la funzione.

Ciao

[optime]

potrebbe essere interessante usare un recordset disconnesso