INDIRIZZATO A BLACKMORE

[Lucio P.]

Ciao Blackmore, se puoi gentilmente:

Questi due script in parte già corretti (avevi messo l’indice di estrazione al posto della data), mi sono accorto che salta dei casi ripetuti e non ho capito il perché.

Ho li guarda per posizione e non so in quale modo, oppure il motivo è un altro.
Ad esempio, estrazione 529 Bari il “59” è un ripetuto ma non è considerato. Idem per la 2294, 2857, 3155, 3169, 3464 etc.; puoi fare in modo e, indipendentemente dalla posizione (che forse in qualche modo condiziona la scelta), di rilevare tutte le ripetizioni consecutive?
Mi serve per delle verifiche su quanto sto facendo con i numeri spia che non riesco ancora a terminare; sto aspettando uno script ad hoc, che gentilmente l’amico in comune Mike58 sta completando.

https://dl.dropboxusercontent.com/u/182 ... IPETUTO.ls
https://dl.dropboxusercontent.com/u/182 ... IPETUTO.ls

Grazie, se puoi.
Buona giornata

[Blackmore]

Ciao Lucio, ho corretto e inserito anche la data
Ciao

Codice: Seleziona tutto

Sub Main()
   esaritroso = InputBox("Inserisci le estrazioni di controllo","Blackmore",8516)
   fin = EstrazioneFin
   ini = EstrazioneFin - esaritroso
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      For r = 1 To 1           'Analizza solo BARI
         If r = 11 Then r = 12
         For p = 1 To 5
            For p1 = 1 To 5
               a = Estratto(es,r,p)
               b = Estratto(es+1,r,p1)
            
               If b = a Then
                  co=co+1
                  Scrivi DataEstrazione(es)&"  "& (es)& "   " & FormatSpace(NomeRuota(r),5) & "  " & StringaEstratti(es,(r)) & "    " & Left(SiglaRuota(r),3) & " " & Format2(a) & " in " & p & "° Posizione",1
                  Scrivi DataEstrazione(es+1)&"  "& (es+1) & "   " & FormatSpace(NomeRuota(r),5) & "  " & StringaEstratti(es + 1,(r)) & "    " & Left(SiglaRuota(r),3) & " " & Format2(b) & " in " & p1 & "° Posizione (Ripetuto in estrazione consecutiva)",1
               End If
            Next
         Next
      Next
      
      If ScriptInterrotto Then Exit For
   Next
ColoreTesto 1:Scrivi:scrivi"Totale casi trovati : " & co,1
ColoreTesto 0
End Sub

Il 2° mi sembra giusto, comunque ho abilitato tutte le posizioni

Codice: Seleziona tutto

'trova un numero ripetuto in 3 estr. consecutive su 3 posizioni diverse
Sub Main()
   t = 0
   esaritroso = InputBox("Inserisci le estrazioni di controllo","Blackmore",500)
   fin = EstrazioneFin
   ini = EstrazioneFin - esaritroso
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      For r = 1 To 10
         If r = 11 Then r = 12
         For p = 1 To 5
            For p1 = 1 To 5
               For p2 = 1 To 5
                  a = Estratto(es - 1,r,p)
                  b = Estratto(es,r,p1)
                  c = Estratto(es + 1,r,p2)
                  If b = a And c = a Then
                     co=co+1
                     'If p <> p1 And p <> p2 And p1 <> p2 Then 'se non interessano le pos. diverse mettere l'apice davanti a questa stringa
                        
                        Scrivi DataEstrazione(es-1)&"  "& (es-1) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es - 1,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(a) & " in " & p & "° Posizione"
                        Scrivi DataEstrazione(es)&"  "& (es) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(b) & " in " & p1 & "° Posizione (Ripetuto per la 2° volta consecutiva)"
                        Scrivi DataEstrazione(es+1)&"  "& (es+1) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es + 1,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(c) & " in " & p2 & "° Posizione (Ripetuto per la 3° volta consecutiva)"
                        
                     End If
                  'End If 'se non interessano le pos diverse remmare anche questo end if
               Next
            Next
         Next
      Next
      If ScriptInterrotto Then Exit For
   Next
ColoreTesto 1:Scrivi:scrivi"Totale casi trovati : " & co,1
ColoreTesto 0
End Sub

[Lucio P.]

GRAAAAAAAAAAZIE BLACK, A BUON RENDERE SE CI SARA' OCCASIONE.
UN CARO SALUTO E BUONA SERATA.