Doppio ambo con vertibile

[lottomoney]

Buongiorno, ho cercato nel forum se esisteva già uno script, ma non l'ho trovato, per la ricerca nel quadro estrazionale di un doppio ambo uguale e che abbia anche il vertibile di uno dei due numeri. Mi spiego meglio con un esempio:
Estrazione n. 40 del 04/04/2017
RUOTA 1o estr. 2o estr. 3o estr. 4o estr. 5o estr.
Bari 81 69 68 6 63
Cagliari 10 40 34 19 69
Firenze 47 78 72 65 25
Genova 39 1 27 75 42
Milano 44 47 86 60 37
Napoli 42 23 40 33 2
Palermo 18 42 77 70 5
Roma 74 9 25 43 33
Torino 32 15 33 82 49
Venezia 60 59 62 84 71
Nazionale 30 52 59 9 82

Le ruote e le posizioni non hanno nessun vincolo.

Sarei veramente grato a chi voglia prendersi in carico questo lavoro. Grazie.
lottomoney

[Master]

Ciao lottomoney
Controlla questo se va bene, ho evidenziato i casi isotopi in grassetto

Codice: Seleziona tutto

Sub Main()
   Scrivi "Ricerca per Lottomoney [Forum Lottopassion]":Scrivi
   ce = CInt(InputBox("Quante estrazione vuoi controllare? ","estrazione",50))
   fin = EstrazioneFin
   ini = fin - ce
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      k = 0
      For r1 = 1 To 10
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               n1 = Estratto(es,r1,p1): n2 = Estratto(es,r1,p2)
               For r2 = r1 + 1 To 11
                  If r2 = 11 Then r2 = 12
                  For p3 = 1 To 4
                     For p4 = p3 + 1 To 5
                        a = Estratto(es,r2,p3): b = Estratto(es,r2,p4)
                        If n1 = b And n2 = Vert(a) Or n1 = Vert(b) And n2 = a Or n1 = Vert(a) And n2 = b Or n2 = Vert(b) And n1 = a Then
                           casi = casi + 1
                           Scrivi String(80,"-") & " caso n° " &(casi)
                           Scrivi DataEstrazione(es) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
                           " >  < " & Format2(n1) & "." & Format2(n2) & " >" & " Pos " & " " & Format2(p1) & " " & Format2(p2),Iif(p2 = p4 And p1 = p3,1,0)
                           Scrivi DataEstrazione(es) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
                           " >  < " & Format2(a) & "." & Format2(b) & " >" & " Pos " & " " & Format2(p3) & " " & Format2(p4),Iif(p2 = p4 And p1 = p3,1,0)
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
   Next
End Sub
 

[lottomoney]

Ciao Master, grandissimo.
L'unica cosa che ci sono SOLAMENTE i doppi ambi con uno dei numeri vertibile, si può avere anche con
il doppio ambo normale?
Grazie mille

[Master]

Ciao lottomoney
Non avevo capito bene,ho fatto riferimento all'esempio.
Intendi aggiungere allo script anche la ricerca degli ambi ripetuti senza il vertibile?

[lottomoney]

Se ti è possibile, si grazie.

[Master]

Ciao lottomoney
Vedi se così va bene..

Codice: Seleziona tutto

 Sub Main()
   Scrivi "Ricerca per Lottomoney [Forum Lottopassion]":Scrivi
   ce = CInt(InputBox("Quante estrazione vuoi controllare? ","estrazione",50))
   fin = EstrazioneFin
   ini = fin - ce
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      k = 0
      For r1 = 1 To 10
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               n1 = Estratto(es,r1,p1): n2 = Estratto(es,r1,p2)
               For r2 = r1 + 1 To 11
                  If r2 = 11 Then r2 = 12
                  For p3 = 1 To 4
                     For p4 = p3 + 1 To 5
                        a = Estratto(es,r2,p3): b = Estratto(es,r2,p4)
                        If n1 = b And n2 = Vert(a) Or n1 = Vert(b) And n2 = a Or n1 = Vert(a) And n2 = b Or n2 = Vert(b) And n1 = a _
                           Or n1 = a And n2 = b Or n1 = b And n2 = a Then
                           casi = casi + 1
                           Scrivi String(80,"-") & " caso n° " &(casi)
                           Scrivi DataEstrazione(es) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
                           " >  < " & Format2(n1) & "." & Format2(n2) & " >" & " Pos " & " " & Format2(p1) & " " & Format2(p2),Iif(p2 = p4 And p1 = p3,1,0)
                           Scrivi DataEstrazione(es) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
                           " >  < " & Format2(a) & "." & Format2(b) & " >" & " Pos " & " " & Format2(p3) & " " & Format2(p4),Iif(p2 = p4 And p1 = p3,1,0),False
                           If n1 = a And n2 = b Or n1 = b And n2 = a Then Scrivi Space(4) & " Rip"
                           If n1 = b And n2 = Vert(a) Or n1 = Vert(b) And n2 = a Or n1 = Vert(a) And n2 = b Or n2 = Vert(b) And n1 = a Then Scrivi Space(4) & " Vert"
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
   Next
End Sub


[lottomoney]

STRAORDINARIO

Grazie mille Master

lottomoney

[lottomoney]

Permetti una domanda Master? :
questo codice è valido anche per excel? oppure ci sono delle variabili e/o delle stringhe da modificare?
Grazie.
lottomoney

[Master]

ciao lottomoney
Credo che il codice così com'è non gira in Excel, occorreranno modifiche che non conosco.
Per i dati che mi servono a volte utilizzo il tasto destro per esportare l'output dello script, niente di più
Buona serata

[lottomoney]

Scusami MASTER, saresti così gentile, se è possibile, da inserire la ricerca anche per il Doppio ambo con numeri doppi vertibili?
tipo questo:
BA 71 22
MI 29 17

Grazie mille e scusami nuovamente.
lottomoney