İki dizinin toplanması

Question

Aynı boyuttaki iki diziyi karşılaştırmanın bir yolu var mıdır? Dizilerin boyutu fazla 1.

Örneğin, dizinler (i, j, k, ...) ile dizi arra unsurları indeksleri (i, j, k, ...) için olan dizi arrB elemanlarına eşit sadece gerçek değerini alan bir fonksiyon olabilir olabilir önemlidir tüm indeksler; ve diğer durumlar için değeri False. "For Each...In arrA" veya en az iç içe "For i=LBound(arrA,1) to UBound(arrA,1)...Next" kullanmak için günaha olduğunu biliyorum, ancak bu çözüm çok boyutlu diziler için zarif ve etkili görünmüyor. Şimdiden çok teşekkürler. Bu bağlantısından

Answer 1

: Compare two arrays and return matches

firstArr = Array("John", "Jacob", "Sam", "Bill") 
secondArr = Array("Jen", "Bill", "Mike", "Steve", "John") 
dim matchArr() 
for i=0 to ubound(firstArr) 
    for j=0 to ubound(secondArr) 
     if strComp(firstArr(i), secondArr(j), 1)=0 then 
      on error resume next 
      redim preserve matchArr(ubound(matchArr)+1) 
      if err.number<>0 then redim matchArr(0) : err.clear 
      on error goto 0 
      matchArr(ubound(matchArr))=firstArr(i) 
     end if 
    next 
next 
on error resume next 
wscript.echo "The number of matches is " & ubound(matchArr)+1 
if err.number<>0 then wscript.echo "No match is reported." : err.clear 
on error goto 0 
'etc etc other stuff