3) Che vuol dire? io mi riferivo ai numeretti estratti che non sono scomponibili...
altra cosa
Non hai spiegato come gestire gli zerati.
esempio questa estrazione la vuoi utilizzare ugualmene?
40 50 3 5 15
se teniamo buono lo zero come cadenza otteniamo queste cifre
0,1,3,4,5
e avremo questi numeri
1,2,3,4,5,10,13,14,15,30,31,34,45,40,41,43,45,50,51,53,54
E' quello che vuoi? Dal momento che hai risposto "tutte le estrazioni" prendo per buona tutte...altrimenti avresti dovuto dire tutte escluse quelle in cui sono sortiti.......etc
Tra i numeri ricomposti non ho messo i gemelli (non hai dato istruzioni in merito)
Sul NB si lo so.... ho già visto ed è ovvio che >90 vanno scartati l'ho già impostato su altro listato (come specificato lo script era mirato
solo alla tua estrazione di esempio in cui la cifra 9 non era presente ed era una prima bozza... )
Sulla faccenda complicata, mi devi dire tu perchè così anche affinandolo sui particolari,
è e resta un listato che dal punto di vista lottistico non serve a nulla.
Ho cambiato totalmente un blocco iniziale. Così posso gestire gli zerati che andranno, nella ricomposizione, a creare altri zerati.
Per la selezione del periodo da elaborare agisci sulla barra in basso oppure segui le istruzioni sul listato dove è pronta una riga che analizza 200 estrazioni.
Codice:
Option Explicit
Sub Main
' 0904_14c Rosanna x Solare
'http://forum.lottoced.com/f12/script-x-nuova-ricerca-106381/
Dim Es,ESf,r,p,i,y,c,nColpi,nColpo,xNum,sRis,sCifre,Fine
ReDim nNumeri(0),nNum(10),nCifre(9)
nColpi = 6
r=ScegliRuota
'ATTENZIONE PER SELEZIONARE UN PERIODO DI ELABORAZIONE AGIRE SULLA BARRA IN BASSO DELLE ESTRAZIONI
'------------------------------------------
For Es = EstrazioneIni To EstrazioneFin
'For Es = EstrazioneIni-200 To EstrazioneFin ' OPPURE METTERE APICE ALLA RIGA PRECEDENTE E TOGLIERLO A QUESTA
AvanzamentoElab EstrazioneIni,EstrazioneFin,Es
ReDim nNumeri(0),nNum(10)
For i= 0 To 9
nCifre(i)=-1
Next
For p = 1 To 5 ' con questo ciclo for carico sul vettore nNum le cifre scomposte così come si presentano
For i= 0 To 9
If nCifre(i)<0 And Decina(Estratto(Es,r,p))= i Then nCifre(i)=1
If nCifre(i)<0 And Cadenza(Estratto(Es,r,p))=i Then nCifre(i)=1
Next
Next
xNum=0 : sCifre=""
For i= 0 To 9
If nCifre(i)=1 Then xNum=xNum+1 : nNum(xNum)=i : sCifre=sCifre& " "& i
Next
Call ColoreTesto(0)
Call Scrivi(DataEstrazione(Es) & " " & SiglaRuota(r) & " " & StringaEstratti(Es,r))
Call Scrivi(xNum & " Cifre valide: " & sCifre)
ReDim nNumeri(xNum)
For i = 1 To xNum
If nNum(i)>0 Then nNumeri(i) = nNum(i) ' carico le cifre trovate sul vettore nNumeri escluso eventuali zero
Next
c = xNum ' contatore combinazioni a 2 a 2 anche invertite delle cifre trovate - esclusi gemelli - lo inizializzo alle cifre trovate
For i = 1 To xNum
For y = 1 To xNum
If nNum(i) <> nNum(y) Then ' escludo le combinazioni di gemelli
If nNum(i) & nNum(y) < 91 Then
If nNum(i)<>0 Then ' con questo evito la ripetizione dei numeretti
c = c + 1 ' incremento il contatore per ogni combinazione
ReDim Preserve nNumeri(c) ' indicizzo il vettore mantenendo i dati pregressi
nNumeri(c) = CInt(nNum(i) & nNum(y))
End If
End If
End If
Next
Next
If nNum(1)=0 Then c=c-1 ' in caso di cifra 0 sottraggo 1 dal totale dei numeri finali perchè lo zero non è valido
Call ColoreTesto(2)
Call Scrivi("Tot numeri elaborati: " & c & " =>> " & StringaNumeri(nNumeri))
Call ColoreTesto(1)
'-------------------------------------------------------------
nColpo = 0
sRis = ""
Scrivi "----Sortite nei " & nColpi & " colpi successivi -----"
If Es + nColpi > EstrazioneFin Then Fine = EstrazioneFin Else Fine = Es + nColpi
For ESf = Es + 1 To Fine
nColpo = nColpo + 1
sRis = nColpo & "° " & DataEstrazione(ESf)
For i = 1 To c
If Posizione(ESf,r,nNumeri(i)) > 0 Then sRis = sRis & " " & nNumeri(i)
Next
Call Scrivi(sRis)
Next
Call Scrivi
Next
End Sub
comunque grazie, non avevo seguito quella discussione.
