Array, Coppie, Controllo...

[Freedom]

Ora ho un problòema con l'array.


Ci sono due array:
A = "Acqua, Terra, Cielo, Amore"
B = "Terra, Amore"

Dunque,

vorrei confromùntare A con B. In pratica dovrebbe uscirmi una cosa del genere:

If Array A = Array B Then Coincidono = "si"

[optime]

fai due join e confronti le stringhe di risulta. that easy!

[Freedom]

Originariamente inviato da optime
fai due join e confronti le stringhe di risulta. that easy!

easy? VVoVe:

Esempio?

[Baol74]

Optime intende una cosa del genere.

Questi due array sono diversi:
Ar1 = "B","C"
Ar2 = "C","B"

Function IsEqualArray(byRef Ar1,ByRef Ar2,CompareMode)
IsEqualArray = StrComp(Join(ar1),Join(ar2),CompareMode)=0
End Function

[Freedom]

Originariamente inviato da Baol74
Optime intende una cosa del genere.

Questi due array sono diversi:
Ar1 = "B","C"
Ar2 = "C","B"

Function IsEqualArray(byRef Ar1,ByRef Ar2,CompareMode)
IsEqualArray = StrComp(Join(ar1),Join(ar2),CompareMode)=0
End Function

Ma funge questa?

[optime]

Originariamente inviato da Freedom
Ma funge questa?

la provasti?

[Freedom]

Originariamente inviato da optime
la provasti?

La provai: non funzionò

[Baol74]

E come lo provasti? accusì?

If IsEqualArray(Ar1,Ar2,1) then
 Response.Write "Gli array stanno equali"
End if

[Freedom]

Originariamente inviato da Baol74
E come lo provasti? accusì?

If IsEqualArray(Ar1,Ar2,1) then
 Response.Write "Gli array stanno equali"
End if

Provandola accusì, mi dice accusì:

Errore di compilazione di Microsoft VBScript (0x800A0401)
Prevista fine istruzione

Ar1 = "B" ,"C"

[optime]

Originariamente inviato da Freedom
Provandola accusì, mi dice accusì:

Errore di compilazione di Microsoft VBScript (0x800A0401)
Prevista fine istruzione

Ar1 = "B" ,"C"

e da quando si usa fare in codesta maniera per costruir l'array?