Listato scomposizione cinquina

[solare]

In pratica si tratta di analizzare la cinquina di una coppia di ruote consecutive e scomporre le rispettive cinquine, faccio un esempio:
Cinquina sortita a Bari il 6 Nov. 30 76 68 60 40
Cinquina sortita a Ca stessa data 34 3 59 16 54
Ora il listato deve scomporre tutti i numeri che formano le due cinquine e visualizzare soltanto i numeri che hanno almeno due presenze, esempio in questione:
Bari 3,0,7,6,6,8,6,0,4,0
Cagliari 3,4,3,5,9,1,6,5,4

Adesso contiamo le presenze dei singoli numeri
0 Presenze 3
1 Presenze 1
3 Presenze 3
4 Presenze 3
5 Presenze 2
6 Presenze 4
7 Presenze 1
8 Presenze 1
9 Presenze 1
Adesso prendiamo in considerazione i numeri con almeno 2 presenze e dobbiamo riformare tutte le coppie possibili con i numeri presi in considerazione. Il tutto o in parte andrà messo in gioco nelle rispettive ruote.
Questa è una mia idea spero che qualche bravo amico possa fare un listato.
esempio se avessimo i numeri 1-2-3 il risultato sarebbe 12-13-21-31-32-23-21 ecc. ecc.
Grazie

 

[solare]

Ho trovato questo listato che è un pò simile a quello che ho chiesto.
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 Then ' escludo le combinazioni di gemelli
If nNum(i) & nNum < 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)
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

 

[Alien.]

Ho trovato questo listato che è un pò simile a quello che ho chiesto.
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 Then ' escludo le combinazioni di gemelli
If nNum(i) & nNum < 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)
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

Troppo bello ma non da pronostico visto i risultati mi son detto ma questa è l'isola del tesoro poi in fondo......acqua.