Per gli esperti come confrontare array

[Cinzia27]

Chiedo se possibile, con uno script

vorrei confrontare il primo array con gli altri 3, il secondo con gli altri due, infine il terzo con l'ultimo.
Se gli elementi comuni sono più di un tot (ad es. 3 o di più) mi dovrebbe scrivere l'array di turno
che sto confrontando e a fianco o sotto gli array che soddisfano la condizione.

n( 1 )= Array(1,2,3,4,5,6)
n( 2 )= Array(1,2,4,9,30,38)
n( 3 )= Array(1,4,9,39,35,4)
n( 4 )= Array(1,5,4,6,29,80)

Grazie per quello che potete fare

 

[joe]

Ciao Cinzia,

Ho solo Spaziometria con cui provare.

Forse potrebbe essere qualcosa di simile ?

Option Explicit
Sub Main
   Dim N(4),I,II,Pt
   N(1) = Array(1,2,3,4,5,6)
   N(2) = Array(1,2,4,9,30,38)
   N(3) = Array(1,4,9,39,35,4)
   N(4) = Array(1,5,4,6,29,80)
   For I = 1 To UBound(N) - 1
      For II = I + 1 To UBound(N)
      Pt = PuntiSuArray (N(I),N(II))
      'If Pt >= 3 Then 
         Scrivi I & "-" & II & " " & StringaNumeri (N(I),,True) & " <> " &  StringaNumeri (N(II),,True) & " Pt " & Pt
      'End If  
      Next
   Next
End Sub

 

[Cinzia27]

Fantastico, Joe.
Bravissimo.
Riusciamo ad avere una stringa in ordine decrescente quando i numeri sono ripetuti eliminare le ripetizioni?
Grazie mille

 

[Cinzia27]

Ad es. queste 2 formazioni hanno 4 elementi in comune

51 55 58 62 73 74 ------ 51 55 58 62 79 80

Il risultato dovrebbe essere
51.55.58.62.73.74.79.80

 

[joe]

Cinzia,

avevo capito una cosa molto più difficile da codificare,

e mi sono indirizzato a realizzare quanto mi ero preposto.

Ho dovuto riscrivere, la seconda parte del codice per farla aderire

all'esempio della tua richiesta.

Intanto ringrazio, come sempre, Salvo e gli altri attenti lettori.

Option Explicit
Sub Main
'Script By Joe
   Dim N(4),I,II,Pt,X,Y
   N(1) = Array(51,55,58,62,73,74)
   N(2) = Array (1,5,4,6,29,80)
   N(3) = Array(1,4,9,39,35,4)
   N(4) = Array(51,55,58,62,79,80)
   For I = 1 To UBound(N) - 1
      For II = I + 1 To UBound(N)
         Pt = PuntiSuArray(N(I),N(II))
         If Pt >= 3 Then
            ReDim Nu(90)
            Scrivi I & "+" & II & " " & StringaNumeri(N(I),,True) & " + " & StringaNumeri(N(II),,True) & " = ",0,0
            For X = 0 To UBound(N(I))
               Nu(N(I)(X)) = N(I)(X)
            Next
            For Y = 0 To UBound(N(II))
               Nu(N(II)(Y)) = N(II)(Y)
            Next
            Scrivi StringaNumeri(Nu,,True)
         End If
      Next
   Next
End Sub

 

[Cinzia27]

Bellissimo script.
Proprio come lo volevo.
Grazie infinite Joe!

 

[joe]

Grazie.

L'ho modificato un pochino per controllare

se era in grado di gestire casi più complicati

cioè con le 4 lunghette mescolate.