Novità

Per gli esperti come confrontare array

Cinzia27

Premium Member
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
 
Ciao Cinzia,

Ho solo Spaziometria con cui provare.

Forse potrebbe essere qualcosa di simile ?

Codice:
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

:)
 
Fantastico, Joe.
Bravissimo.
Riusciamo ad avere una stringa in ordine decrescente quando i numeri sono ripetuti eliminare le ripetizioni?
Grazie mille
 
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
 
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.

Codice:
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

:)
 
Ultima modifica:
Grazie.

L'ho modificato un pochino per controllare

se era in grado di gestire casi più complicati

cioè con le 4 lunghette mescolate.

:)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 31 luglio 2025
    Bari
    42
    35
    89
    51
    34
    Cagliari
    54
    34
    02
    77
    57
    Firenze
    73
    01
    07
    15
    04
    Genova
    71
    28
    17
    03
    67
    Milano
    72
    37
    26
    09
    63
    Napoli
    04
    46
    83
    68
    31
    Palermo
    62
    18
    36
    34
    52
    Roma
    37
    44
    49
    67
    32
    Torino
    51
    17
    56
    48
    41
    Venezia
    36
    04
    85
    81
    41
    Nazionale
    08
    52
    01
    24
    05
    Estrazione Simbolotto
    Nazionale
    21
    19
    01
    17
    43

Ultimi Messaggi

Indietro
Alto