Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Dovrebbe essere cosi grande Mike faccio un po' di controlli.La Verifica Esiti parte da sorte 1 = estratto ma trova e può trovare anche sorti superiori.
Ciao
Estrazioni Attive : 360eccolo
Codice:Sub Main Dim aP,aV,nEsiti,Ru(1) Ini = EstrazioniArchivio -(360 + 20) fin = EstrazioniArchivio - 20 fine = EstrazioniArchivio Tot = fin - Ini filtro = CInt(InputBox("Quale presenza per posizione superiore a ",,6)) r = InputBox("Quale Ruota",,1) Scrivi "Estrazioni Attive : " & Tot Scrivi "Estrazione Inizio...... " & Ini Scrivi "Estrazione Fine........ " & fin Scrivi "Filtro Posizioni sup > " & filtro,1 Scrivi "Ruota Esaminata........ " & NomeRuota(r) Scrivi Space(140) & "Script by Mike58 " & Chr(169),1,,,2 aP = Array(aP,"Posizioni","Numeri Presenti" & "<br>" & "Q.tà Presenze","Min","Max","Q.Tà", _ "Numeri Sortiti" & "<br>" & "Relativa Quantità","Ritardo Serie","Verifica da Es " & fin + 1 & " a " & fine,"Tipo Esito") Call InitTabella(aP,,,,,"Arial Black") Ru(1) = r For xx = 1 To 5 ReDim aPos(5) aPos(xx) = True For nn = 1 To 90 If EstrattoFrequenza(r,nn,Ini,fin,,,aPos) > filtro Then kk = kk + 1 ReDim Preserve rigaP(kk) rigaP(kk) = nn min = MinimoV(rigaP,1,- 1) max = MassimoV(rigaP) sr = SerieRitardo(ini,fine,rigaP,Ru,1) er = EstrattoFrequenza(r,nn,Ini,fin,,,aPos) k3 = k3 + 1 ReDim Preserve aRit(k3) aRit(k3) = er nRit = nRit & Format2(aRit(k3)) & " " ef = EstrattoFrequenza(r,nn,fin+1,fine) If ef > 0 Then k2 = k2 + 1 ReDim Preserve NumSort(k2) NumSort(k2) = nn ReDim Preserve freqNum(k2) freqNum(k2) = ef End If 'Call VerificaEsito(rigaP,ru,fin+1,2,10,,esito1,,es2) End If Next '----------------------------------------------------------------------- nEsiti = VerificaEsiti(rigaP,Ru,fin + 1,1,20,10,,esiti2,clp2,es2,id2) For x = 1 To nEsiti If nEsiti > 0 Then clpPr = id2(x) - fin ' colpi progressivi If clpPr > 21 Then Exit For Vx = "Colpo" & x & " " & FormattaStringa(clp2(x),"000") & " | " & FormattaStringa(clpPr,"000") & " | [ " & FormattaStringa(id2(x),"00000") & " ] | " & es2(x) ReDim Preserve esitiP(x) esitiP(x) = Vx & "<br>" 'FormatSpace(clpPr,2) & " ( " & id2(x) & " ) " & es2(x) riga = riga & esitiP(x) '& "<br>" rigo = rigo & esiti2(x) & "<br>" End If Next '-------------------------------------------------------------------------- If kk > 0 Then aV = Array(aV,xx,StringaNumeri(rigaP,,1) & "<br>" & nRit,min,max,kk,StringaNumeri(NumSort,,1) & "<br>" & StringaNumeri(freqNum,,1),sr,riga,rigo) Call AddRigaTabella(aV) 'riga = "" End If riga = "" rigo = "" nRit = "" k2 = 0 k3 = 0 kk = 0 Next Call SetTableWidth("100%") Call CreaTabella() End Sub
Estrazioni Attive : 360
Estrazione Inizio...... 9932
Estrazione Fine........ 10292
Filtro Posizioni sup > 6
Ruota Esaminata........ Bari
Script by Mike58 ©
Posizioni Numeri Presenti
Q.tà Presenze Min Max Q.Tà Numeri Sortiti
Relativa Quantità Ritardo Serie Verifica da Es 10293 a 10312 Tipo Esito 1 01.35.47.54.73.74.80.83
07 09 10 11 07 07 09 09 1 83 8 01.35.47.74
04.01.02.02 1 Colpo1 003 | 003 | [ 10295 ] | BA .. .. 47 74 ..
Colpo2 001 | 004 | [ 10296 ] | BA .. .. 01 .. ..
Colpo3 002 | 006 | [ 10298 ] | BA .. 01 .. .. ..
Colpo4 005 | 011 | [ 10303 ] | BA .. .. 01 .. ..
Colpo5 002 | 013 | [ 10305 ] | BA .. .. .. 01 ..
Colpo6 002 | 015 | [ 10307 ] | BA .. .. .. .. 35
Colpo7 001 | 016 | [ 10308 ] | BA .. .. .. 47 ..
Colpo8 003 | 019 | [ 10311 ] | BA .. .. 74 .. .. Ambo
Estratto
Estratto
Estratto
Estratto
Estratto
Estratto
Estratto 2 29.36.38.39.48.51.69
08 08 07 07 09 07 08 29 69 7 29.36.38.39.48
03.01.03.01.02 0 Colpo1 002 | 002 | [ 10294 ] | BA .. 29 .. .. ..
Colpo2 003 | 005 | [ 10297 ] | BA .. .. .. .. 38
Colpo3 007 | 012 | [ 10304 ] | BA .. .. .. 38 ..
Colpo4 002 | 014 | [ 10306 ] | BA 48 .. .. .. 38
Colpo5 002 | 016 | [ 10308 ] | BA .. 36 .. .. ..
Colpo6 001 | 017 | [ 10309 ] | BA .. 29 .. .. ..
Colpo7 001 | 018 | [ 10310 ] | BA .. .. .. 39 ..
Colpo8 002 | 020 | [ 10312 ] | BA .. 29 48 .. .. Estratto
Estratto
Estratto
Ambo
Estratto
Estratto
Estratto
Ambo 3 15.20.30.47.68.70.71.72.86
07 08 08 07 09 08 08 07 10 15 86 9 15.20.30.47.70.72.86
02.02.01.02.02.01.01 2 Colpo1 001 | 001 | [ 10293 ] | BA 86 .. .. .. 20
Colpo2 001 | 002 | [ 10294 ] | BA 70 .. .. .. ..
Colpo3 001 | 003 | [ 10295 ] | BA .. .. 47 .. ..
Colpo4 005 | 008 | [ 10300 ] | BA .. .. 15 .. ..
Colpo5 003 | 011 | [ 10303 ] | BA 15 70 .. .. ..
Colpo6 003 | 014 | [ 10306 ] | BA .. .. 30 .. ..
Colpo7 001 | 015 | [ 10307 ] | BA .. .. 20 .. ..
Colpo8 001 | 016 | [ 10308 ] | BA .. .. .. 47 ..
Colpo9 002 | 018 | [ 10310 ] | BA .. .. .. .. 72 Ambo
Estratto
Estratto
Estratto
Ambo
Estratto
Estratto
Estratto
Estratto 4 15.24.25.49.53.54.90
10 07 08 07 07 08 07 15 90 7 15.49.53.90
02.02.02.01 3 Colpo1 003 | 003 | [ 10295 ] | BA .. 49 .. .. ..
Colpo2 004 | 007 | [ 10299 ] | BA 53 .. .. .. ..
Colpo3 001 | 008 | [ 10300 ] | BA .. .. 15 .. ..
Colpo4 001 | 009 | [ 10301 ] | BA .. .. .. 90 ..
Colpo5 002 | 011 | [ 10303 ] | BA 15 .. .. .. ..
Colpo6 006 | 017 | [ 10309 ] | BA .. .. 49 53 .. Estratto
Estratto
Estratto
Estratto
Estratto
Ambo 5 38.53.56.57.58.63.67.79.86.88
08 09 07 07 07 08 07 09 07 08 38 88 10 38.53.58.67.79.86.88
03.02.01.01.02.01.01 3 Colpo1 001 | 001 | [ 10293 ] | BA 86 .. .. .. ..
Colpo2 003 | 004 | [ 10296 ] | BA .. .. .. .. 58
Colpo3 001 | 005 | [ 10297 ] | BA .. 67 .. .. 38
Colpo4 002 | 007 | [ 10299 ] | BA 53 .. .. .. ..
Colpo5 003 | 010 | [ 10302 ] | BA .. .. 88 .. ..
Colpo6 002 | 012 | [ 10304 ] | BA 79 .. .. 38 ..
Colpo7 002 | 014 | [ 10306 ] | BA .. .. .. 79 38
Colpo8 003 | 017 | [ 10309 ] | BA .. .. .. 53 .. Estratto
Estratto
Ambo
Estratto
Estratto
Ambo
Ambo
Estratto
Posizioni | Numeri Presenti Q.tà Presenze | Min | Max | Q.Tà | Numeri Sortiti Relativa Quantità | Ritardo Serie | Verifica da Es 10292 a 10311 | Tipo Esito |
1 | 47.54 10 11 | 47 | 54 | 2 | 47 02 | 3 | Colpo1 004 | 004 | [ 10295 ] | BA .. .. 47 .. .. Colpo2 013 | 017 | [ 10308 ] | BA .. .. .. 47 .. | Estratto Estratto |
3 | 86 10 | 86 | 86 | 1 | 86 02 | 18 | Colpo1 001 | 001 | [ 10292 ] | BA 86 .. .. .. .. Colpo2 001 | 002 | [ 10293 ] | BA 86 .. .. .. .. | Estratto Estratto |
4 | 15 10 | 15 | 15 | 1 | 15 02 | 8 | Colpo1 009 | 009 | [ 10300 ] | BA .. .. 15 .. .. Colpo2 003 | 012 | [ 10303 ] | BA 15 .. .. .. .. | Estratto Estratto |
5 | 53 10 | 53 | 53 | 1 | 53 02 | 2 | Colpo1 008 | 008 | [ 10299 ] | BA 53 .. .. .. .. Colpo2 010 | 018 | [ 10309 ] | BA .. .. .. 53 .. | Estratto Estratto |
a parte che 10 11 sono quantità di presenze e non numeri , non lo so devo raggruppare i numeri tutti trovati e verificarli a partetrovare l' esito di 10 11 47 54 86 15 53 per la sorte di ambo terno quaterna cinquina .
Hai ragione scusami intendevo trovare l' esito di 47 54 86 15 53 per la sorte di ambo terno quaterna cinquina ( numeri che appartengono a tutte e cinque le posizioni ) .Genios, i numeri con frequenza > 9 sono quelli in quel range, se vuoi altro filtro i numeri saranno raggruppati se presenti.
la funzione filtro è questa nello script valuta come meglio vuoi operare.
filtro = CInt(InputBox("Quale presenza per posizione superiore a ",,9)) ' scelta
If EstrattoFrequenza(r,nn,Ini,fin,,,aPos) > filtro Then ' condizione
per la sorte nel verifica esiti basta modificare la sorte per facilità di esiti ho scelto sorte 1 , ma se vuoi parti da sorte voluta.
nEsiti = VerificaEsiti(rigaP,Ru,fin + 1,1,20,10,,esiti2,clp2,es2,id2)
a parte che 10 11 sono quantità di presenze e non numeri , non lo so devo raggruppare i numeri tutti trovati e verificarli a parte
per ora non sò.
altre ipotesi.... non saprei cosa dirti.
Sub Main
Dim Ru(1)
Ini = 9931
fin = 10291
r = 1
filtro = 8
Ru(1) = r
Scrivi "Range Ini-fin " & Ini & " - " & fin
Scrivi "Ruota " & NomeRuota(r)
Scrivi "Filtro Presenze... > a " & filtro
Scrivi "Numeri per posizione",1,,,,,,1
For x = 1 To 5
ReDim pos(5)
pos(x) = True
For n = 1 To 90
ef = EstrattoFrequenza(r,n,Ini,fin,,,pos)
If ef > filtro Then
k = k + 1
'--------------------------------
'raggruppa numeri x posizioni
ReDim Preserve freqNum(k)
freqNum(k) = n
'---------------------------------
'raggruppa i numeri tutti trovati
kk = kk + 1
ReDim Preserve aNum(kk)
aNum(kk) = freqNum(k)
'--------------------------------
End If
Next
If k > 0 Then
Scrivi "Pos... " & x & " - " & StringaNumeri(freqNum)
End If
k = 0 'azzera contatore
Next
Scrivi
'----------------------------------------------------------------------------------------
Inix = fin + 1
Inixx = fin + 1
fine = EstrazioneFin
Scrivi kk & " Numeri Trovati in tutte le posizioni.... " & StringaNumeri(aNum),1
Scrivi "Range di Verifica " & Inix & " - " & fine,1
For es = Inix To fine
Call VerificaEsito(aNum,Ru,es,1,1,,esito,clp,es1,id)
If esito <> "" Then
rit = es-Inix
Inix = es
'--------------------------------------------
If esito = "Estratto" Then k1 = k1 + 1
If esito = "Ambo" Then k2 = k2 + 1
If esito = "Terno" Then k3 = k3 + 1
If esito = "Quaterna" Then k4 = k4 + 1
If esito = "Cinquina" Then k5 = k5 + 1
'-------------------------------------------
Scrivi GetInfoEstrazione(es) & vbTab & "Colpo... " & FormatSpace(es-Inixx,2) & " Elenco Colpi : " & rit & vbTab & es1 & vbTab & esito
End If
Next
'----------------------------------------------------------------------------------------
Scrivi
Scrivi "Totali Estratti..... " & k1
Scrivi "Totali Ambi......... " & k2
Scrivi "Totali Terni........ " & k3
Scrivi "Totali Quaterne..... " & k4
Scrivi "Totali Cinquine..... " & k5
End Sub
Mike è possibile fare il tuo ultimo script per il superenalotto ?Ok ci stavo lavorando a questa ultima richiesta.
Ho fatto uno script facile....facilitato...
Che in base al filtro presenze su posizione poi raggruppa i numeri trovati e ne verifica la sortita per sorte.
Codice:Sub Main Dim Ru(1) Ini = 9931 fin = 10291 r = 1 filtro = 8 Ru(1) = r Scrivi "Range Ini-fin " & Ini & " - " & fin Scrivi "Ruota " & NomeRuota(r) Scrivi "Filtro Presenze... > a " & filtro Scrivi "Numeri per posizione",1,,,,,,1 For x = 1 To 5 ReDim pos(5) pos(x) = True For n = 1 To 90 ef = EstrattoFrequenza(r,n,Ini,fin,,,pos) If ef > filtro Then k = k + 1 '-------------------------------- 'raggruppa numeri x posizioni ReDim Preserve freqNum(k) freqNum(k) = n '--------------------------------- 'raggruppa i numeri tutti trovati kk = kk + 1 ReDim Preserve aNum(kk) aNum(kk) = freqNum(k) '-------------------------------- End If Next If k > 0 Then Scrivi "Pos... " & x & " - " & StringaNumeri(freqNum) End If k = 0 'azzera contatore Next Scrivi '---------------------------------------------------------------------------------------- Inix = fin + 1 Inixx = fin + 1 fine = EstrazioneFin Scrivi kk & " Numeri Trovati in tutte le posizioni.... " & StringaNumeri(aNum),1 Scrivi "Range di Verifica " & Inix & " - " & fine,1 For es = Inix To fine Call VerificaEsito(aNum,Ru,es,1,1,,esito,clp,es1,id) If esito <> "" Then rit = es-Inix Inix = es '-------------------------------------------- If esito = "Estratto" Then k1 = k1 + 1 If esito = "Ambo" Then k2 = k2 + 1 If esito = "Terno" Then k3 = k3 + 1 If esito = "Quaterna" Then k4 = k4 + 1 If esito = "Cinquina" Then k5 = k5 + 1 '------------------------------------------- Scrivi GetInfoEstrazione(es) & vbTab & "Colpo... " & FormatSpace(es-Inixx,2) & " Elenco Colpi : " & rit & vbTab & es1 & vbTab & esito End If Next '---------------------------------------------------------------------------------------- Scrivi Scrivi "Totali Estratti..... " & k1 Scrivi "Totali Ambi......... " & k2 Scrivi "Totali Terni........ " & k3 Scrivi "Totali Quaterne..... " & k4 Scrivi "Totali Cinquine..... " & k5 End Sub
Range Ini-fin 9931 - 10291
Ruota Bari
Filtro Presenze... > a 8
Numeri per posizione
Pos... 1 - 35.47.54.80.83
Pos... 2 - 29.48
Pos... 3 - 68.86
Pos... 4 - 15
Pos... 5 - 53.79
12 Numeri Trovati in tutte le posizioni.... 35.47.54.80.83.29.48.68.86.15.53.79
Range di Verifica 10292 - 10312
[10292] [112] 31.08.2023 Colpo... 0 Elenco Colpi : 0 BA 86 .. .. .. .. Estratto
[10293] [113] 01.09.2023 Colpo... 1 Elenco Colpi : 1 BA 86 .. .. .. .. Estratto
[10294] [114] 02.09.2023 Colpo... 2 Elenco Colpi : 1 BA .. 29 .. .. .. Estratto
[10295] [115] 05.09.2023 Colpo... 3 Elenco Colpi : 1 BA .. .. 47 .. .. Estratto
[10299] [119] 12.09.2023 Colpo... 7 Elenco Colpi : 4 BA 53 .. .. .. .. Estratto
[10300] [120] 14.09.2023 Colpo... 8 Elenco Colpi : 1 BA .. .. 15 .. .. Estratto
[10303] [123] 19.09.2023 Colpo... 11 Elenco Colpi : 3 BA 15 .. .. .. .. Estratto
[10304] [124] 21.09.2023 Colpo... 12 Elenco Colpi : 1 BA 79 .. .. .. .. Estratto
[10306] [126] 23.09.2023 Colpo... 14 Elenco Colpi : 2 BA 48 .. .. 79 .. Ambo
[10307] [127] 26.09.2023 Colpo... 15 Elenco Colpi : 1 BA .. .. .. .. 35 Estratto
[10308] [128] 28.09.2023 Colpo... 16 Elenco Colpi : 1 BA .. .. .. 47 .. Estratto
[10309] [129] 29.09.2023 Colpo... 17 Elenco Colpi : 1 BA .. 29 .. 53 .. Ambo
[10312] [132] 05.10.2023 Colpo... 20 Elenco Colpi : 3 BA .. 29 48 .. .. Ambo
Totali Estratti..... 10
Totali Ambi......... 3
Totali Terni........
Totali Quaterne.....
Totali Cinquine.....
Sub Main
fin = EstrazioniArchivioSE - 20 '3653-20
Ini = fin - 360
filtro = 12
Scrivi "Range Ini-fin " & GetInfoEstrazioneSE(Ini) & " - " & GetInfoEstrazioneSE(fin)
Scrivi "Filtro Presenze... > a " & filtro
Scrivi "Numeri per posizione",1,,,,,,1
Scrivi String(140,"=")
For x = 1 To 6
ReDim pos(8)
pos(x) = True
pos(7) = False
pos(8) = False
For n = 1 To 90
ef = EstrattoFrequenzaSE(n,Ini,fin,pos)
If ef > filtro Then
k = k + 1
'--------------------------------
'raggruppa numeri x posizioni
ReDim Preserve freqNum(k)
freqNum(k) = n
'---------------------------------
'raggruppa i numeri tutti trovati
kk = kk + 1
ReDim Preserve aNum(kk)
aNum(kk) = freqNum(k)
'--------------------------------
End If
Next
If k > 0 Then
Scrivi "Pos... " & x & " - " & StringaNumeri(freqNum)
End If
k = 0 'azzera contatore
Next
Scrivi
'----------------------------------------------------------------------------------------
Inix = fin + 1
Inixx = fin + 1
fine = EstrazioniArchivioSE
Scrivi String(140,"=")
Scrivi kk & " Numeri Trovati in tutte le posizioni.... " & StringaNumeri(aNum),1
Scrivi "Range di Verifica " & GetInfoEstrazioneSE(Inix) & " - " & GetInfoEstrazioneSE(fine),1,,,1
Scrivi String(140,"=")
For es = Inix To fine
Call VerificaEsitoSE(aNum,es,1,1,esito,clp,es1,id)
If esito <> "" Then
rit = es - Inix
Inix = es
'--------------------------------------------
If esito = "Estratto" Then k1 = k1 + 1
If esito = "Ambo" Then k2 = k2 + 1
If esito = "Terno" Then k3 = k3 + 1
If esito = "Quaterna" Then k4 = k4 + 1
If esito = "Cinquina" Then k5 = k5 + 1
If esito = "Sestina" Then k6 = k6 + 1
'-------------------------------------------
Scrivi GetInfoEstrazioneSE(es) & vbTab & "Colpo... " & FormatSpace(es - Inixx,2) & " Elenco Colpi : " & rit & vbTab & es1 & vbTab & esito
End If
Next
'----------------------------------------------------------------------------------------
Scrivi String(140,"=")
Scrivi
Scrivi "Totali Estratti..... " & k1
Scrivi "Totali Ambi......... " & k2
Scrivi "Totali Terni........ " & k3
Scrivi "Totali Quaterne..... " & k4
Scrivi "Totali Cinquine..... " & k5
Scrivi "Totali Sestina...... " & k6
Scrivi String(140,"=")
End Sub
Grazie Mike per il tuo script super superenalotto . Ma servirebbe in FT per leggere il mio file in formato testo dato che in questo archivio i numeri estratti sono archiviati in posizione di estrazione e non dal piu' piccolo al piu' grande come nell' archivio di spaziometria quindi la statistica risulterebbe falsata .Si !! Genios, può essere possibile... solo una domanda, perchè il superEnalotto in formato TXT.... quando si può utilizzare il suo archivio a 6 estratti senza jolly e superstar e con i suoi codici SE.
Tuttavia con i codici con suffisso FT si può fare qualsiasi archivio.
Dimmi se lo vuoi esterno File...FT o utilizzare l'archivio di spaziometria SE (SuperEnalotto).
ciao
Sub Main
Dim sFile,sChrSep,nCol
'-------------------------------------------
sChrSep = " " ' carattere separatore
nCol = 8 ' Numeri in colonna
'-------------------------------------------
sFile = ScegliFile("C:\.....\Desktop\.txt")
Call ApriBaseDatiFT(sFile,nCol,sChrSep,90)
'-------------------------------------------
fin = EstrazioniArchivioFT - 20
Ini = fin - 360
filtro = 10
'-------------------------------------------
Scrivi "Range Ini-fin " & GetInfoEstrazioneFT(Ini) & " - " & GetInfoEstrazioneFT(fin)
Scrivi "Filtro Presenze... > a " & filtro
Scrivi "Numeri per posizione",1,,,,,,1
Scrivi String(140,"=")
'----------------------------------------------------------------------------------------
For x = 1 To 6
ReDim pos(8)
pos(x) = True
pos(7) = False
pos(8) = False
For n = 1 To 90
ef = EstrattoFrequenzaFT(n,Ini,fin,pos)
If ef > filtro Then
k = k + 1
'--------------------------------
'raggruppa numeri x posizioni
ReDim Preserve freqNum(k)
freqNum(k) = n
'---------------------------------
'raggruppa i numeri tutti trovati
kk = kk + 1
ReDim Preserve aNum(kk)
aNum(kk) = freqNum(k)
'--------------------------------
End If
Next
If k > 0 Then
Scrivi "Pos... " & x & " - " & StringaNumeri(freqNum)
End If
k = 0 'azzera contatore
Next
Scrivi
'----------------------------------------------------------------------------------------
Inix = fin + 1
Inixx = fin + 1
fine = EstrazioniArchivioFT
Scrivi String(140,"=")
Scrivi kk & " Numeri Trovati in tutte le posizioni.... " & StringaNumeri(aNum),1
Scrivi "Range di Verifica " & GetInfoEstrazioneFT(Inix) & " - " & GetInfoEstrazioneFT(fine),1,,,1
Scrivi String(140,"=")
For es = Inix To fine
ReDim aPos(8)
For xx = 1 To 6
aPos(xx) = True
Next
aPos(7) = False
aPos(8) = False
Call VerificaEsitoFT(aNum,es,1,1,esito,clp,es1,id,aPos)
If esito <> "" Then
rit = es - Inix
Inix = es
'--------------------------------------------
If esito = "Estratto" Then k1 = k1 + 1
If esito = "Ambo" Then k2 = k2 + 1
If esito = "Terno" Then k3 = k3 + 1
If esito = "Quaterna" Then k4 = k4 + 1
If esito = "Cinquina" Then k5 = k5 + 1
If esito = "Sestina" Then k6 = k6 + 1
'-------------------------------------------
Scrivi GetInfoEstrazioneFT(es) & vbTab & "Colpo... " & FormatSpace(es - Inixx,2) & " Elenco Colpi : " & rit & vbTab & es1 & vbTab & esito
End If
Next
'----------------------------------------------------------------------------------------
Scrivi String(140,"=")
Scrivi
Scrivi "Totali Estratti..... " & k1
Scrivi "Totali Ambi......... " & k2
Scrivi "Totali Terni........ " & k3
Scrivi "Totali Quaterne..... " & k4
Scrivi "Totali Cinquine..... " & k5
Scrivi "Totali Sestina...... " & k6
Scrivi String(140,"=")
End Sub
Sono D'accordo con te, effettivamente una volta analizzate le risultanze resta chiaro che la posizione 6 trovi più estratti ed estratti con numeri alti e che falsi la raccolta dati.
Quindi è meglio come dici un archivio TF con numeri in ordine di estrazione.
Ecco il File di testo facilmente leggibile e modificabile nei parametri base, quali carattere separatore, numeri posizioni, true o false.
Qualche cosa di script mastichi quindi ti sarà facile utilizzare lo script con le tue modifiche.
Codice:Sub Main Dim sFile,sChrSep,nCol '------------------------------------------- sChrSep = " " ' carattere separatore nCol = 8 ' Numeri in colonna '------------------------------------------- sFile = ScegliFile("C:\.....\Desktop\.txt") Call ApriBaseDatiFT(sFile,nCol,sChrSep,90) '------------------------------------------- fin = EstrazioniArchivioFT - 20 Ini = fin - 360 filtro = 10 '------------------------------------------- Scrivi "Range Ini-fin " & GetInfoEstrazioneFT(Ini) & " - " & GetInfoEstrazioneFT(fin) Scrivi "Filtro Presenze... > a " & filtro Scrivi "Numeri per posizione",1,,,,,,1 Scrivi String(140,"=") '---------------------------------------------------------------------------------------- For x = 1 To 6 ReDim pos(8) pos(x) = True pos(7) = False pos(8) = False For n = 1 To 90 ef = EstrattoFrequenzaFT(n,Ini,fin,pos) If ef > filtro Then k = k + 1 '-------------------------------- 'raggruppa numeri x posizioni ReDim Preserve freqNum(k) freqNum(k) = n '--------------------------------- 'raggruppa i numeri tutti trovati kk = kk + 1 ReDim Preserve aNum(kk) aNum(kk) = freqNum(k) '-------------------------------- End If Next If k > 0 Then Scrivi "Pos... " & x & " - " & StringaNumeri(freqNum) End If k = 0 'azzera contatore Next Scrivi '---------------------------------------------------------------------------------------- Inix = fin + 1 Inixx = fin + 1 fine = EstrazioniArchivioFT Scrivi String(140,"=") Scrivi kk & " Numeri Trovati in tutte le posizioni.... " & StringaNumeri(aNum),1 Scrivi "Range di Verifica " & GetInfoEstrazioneFT(Inix) & " - " & GetInfoEstrazioneFT(fine),1,,,1 Scrivi String(140,"=") For es = Inix To fine ReDim aPos(8) For xx = 1 To 6 aPos(xx) = True Next aPos(7) = False aPos(8) = False Call VerificaEsitoFT(aNum,es,1,1,esito,clp,es1,id,aPos) If esito <> "" Then rit = es - Inix Inix = es '-------------------------------------------- If esito = "Estratto" Then k1 = k1 + 1 If esito = "Ambo" Then k2 = k2 + 1 If esito = "Terno" Then k3 = k3 + 1 If esito = "Quaterna" Then k4 = k4 + 1 If esito = "Cinquina" Then k5 = k5 + 1 If esito = "Sestina" Then k6 = k6 + 1 '------------------------------------------- Scrivi GetInfoEstrazioneFT(es) & vbTab & "Colpo... " & FormatSpace(es - Inixx,2) & " Elenco Colpi : " & rit & vbTab & es1 & vbTab & esito End If Next '---------------------------------------------------------------------------------------- Scrivi String(140,"=") Scrivi Scrivi "Totali Estratti..... " & k1 Scrivi "Totali Ambi......... " & k2 Scrivi "Totali Terni........ " & k3 Scrivi "Totali Quaterne..... " & k4 Scrivi "Totali Cinquine..... " & k5 Scrivi "Totali Sestina...... " & k6 Scrivi String(140,"=") End Sub [/COD [/QUOTE] Non va non mi trova il file di testo mi da il seguente errore[ATTACH type="full"]2269301[/ATTACH]
Si il punto è virgolo l' ho inserito ma mi da sempre erroreSi vede che nel carattere separatore hai il punto e virgola, devi metterlo nello script dove ti ho indicato con
sChrSep = " " ' carattere separatore - spazio vuoto
come vedi nel mio archivio ho uno spazio, tu metti il punto e virgola
sChrSep = ";" ' carattere separatore - punto e virgola
poi se ci sono altre cose tipo la lunghezza colonna devi tu riuscire ad adattarlo.
Ti ho messo varie indicazioni per le quali dovresti riuscire in tutto.
Ciao
Forse è per il motivo che il mio archivio non ha un ID progressivo ma ha un indice annuale progressivoNon so, la data deve avere quel formato, forse potrebbe essere il formato progressivo
io ho questo cosi è funziona con spazio vuoto
1 03/01/2022 09 47 50 67 73 74 85 49
2 04/01/2022 05 18 59 78 81 89 10 09
3 08/01/2022 35 42 49 63 68 78 01 33
4 10/01/2022 03 25 30 58 66 84 72 55
5 11/01/2022 15 22 24 33 38 71 47 45
ho provato a immettere il ; come separatore in un archivio con ; Punto e Virgola e funziona, quindi sarà il formato formattato a 3 - esempio 001- 010- 099
1;03/01/2022;09;47;50;67;73;74;85;49
2;04/01/2022;05;18;59;78;81;89;10;09
3;08/01/2022;35;42;49;63;68;78;01;33
4;10/01/2022;03;25;30;58;66;84;72;55
245;20/07/2023;14;41;47;62;65;88;39;37
246;21/07/2023;13;38;52;56;73;90;07;24
247;22/07/2023;02;37;50;65;68;90;67;60
248;25/07/2023;06;30;48;69;71;74;62;22