Novità

360 estrazioni

Seguo e partecipo con interesse alla ricerca proposta da genios, per quello che potrei fare, e come mio solito, cerco di " mettere mano " allo script del buon Mike58, cercando d'impostare il resoconto non in tabella, ma in altra maniera.
Avendo, o cercando, nello studio di questa proposta lanciata da genios, qualche intuizione si potrebbe ampliare a qualche buona proposta per estrapolare interessanti previsioni.
Fermo restando nel mio " cruccio " di spostare il gioco alla sola Venus Nord di Milano.
E' tutto da provare, e comunque, anche restando " nel vecchio campo " del gioco del lotto : nelle 10 ruote + Nazionale, farò i miei tentativi.

Grazie genios per la proposta, grazie Mike58, per l'aiuto che ci hai sempre dato.
 
eccolo
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​
Estrazioni Attive : 360
Estrazione Inizio...... 9931
Estrazione Fine........ 10291
Filtro Posizioni sup > 9
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 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​

FILTRO POSIZIONI <9

Manca l' opzione di raggruppare tutti i numeri delle 5 posizionI e verificare l' esito per l' ambo terno quaterna cinquina o sbaglio ?

trovare l' esito di 10 11 47 54 86 15 53 per la sorte di ambo terno quaterna cinquina .
 
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)
trovare l' esito di 10 11 47 54 86 15 53 per la sorte di ambo terno quaterna cinquina .
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.
 
Ultima modifica:
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.
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 ) .

come puoi vedere dall' uscita del tuo script verifichi l' esito a gruppi di numeri che fanno parte di quella posizione e va bene ma io intendevo verificare anche l' esito di tutti i numeri di tutte e 5 le posizioni insieme .
 
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.....
 
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.....
Mike è possibile fare il tuo ultimo script per il superenalotto ?

Dovremmo considerare un archivio in formato testo strutturato come quello sotto ( l' archivio è strutturato con i numeri in ordine di estrazione )

prendere in considerazione solo i primi 7 numeri di ciascuna estrazione .

014;01/02/2014;41;48;03;73;44;06;84;46
015;04/02/2014;25;85;03;12;33;59;72;12
016;06/02/2014;79;90;12;14;09;61;26;63
017;08/02/2014;16;64;08;74;41;52;81;62
018;11/02/2014;38;67;12;65;27;43;71;09
019;13/02/2014;33;75;09;11;17;20;32;46
020;15/02/2014;64;18;72;62;31;77;69;49
021;18/02/2014;15;49;75;62;36;82;39;23
022;20/02/2014;63;14;26;47;78;80;37;68
023;22/02/2014;38;28;34;19;82;17;40;62
024;25/02/2014;26;51;70;54;52;88;65;45
025;27/02/2014;59;54;86;68;32;19;45;53
026;01/03/2014;90;56;47;08;07;79;09;18
027;04/03/2014;51;65;76;61;40;46;71;65
028;06/03/2014;67;66;61;79;76;15;68;40
029;08/03/2014;50;82;45;35;51;87;30;38
030;11/03/2014;56;51;58;53;81;49;12;37
031;13/03/2014;40;57;28;58;78;10;60;33
032;15/03/2014;05;24;01;22;41;43;38;71
033;18/03/2014;39;58;38;66;83;46;55;44
034;20/03/2014;49;28;51;77;15;18;65;70
035;22/03/2014;87;38;89;31;19;22;46;49

se hai tempo e voglia.
 
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
 
Fatto lo script per SuperEnalotto con codici SE ed archivio di spaziometria (ora funzionante con l'aggiornamento automatico) , su 6 posizioni senza jolly e superstar (dichiarati False).
Se poi Serve in FT facciamo anche quello.
Ciao
Codice:
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
 
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
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 .

Grazie di nuovo
Ciao Eugenio
 
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
 
Ultima modifica:
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]
 

Allegati

  • file di testo.jpg
    file di testo.jpg
    204,5 KB · Visite: 13
Si 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
 
Si 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
Si il punto è virgolo l' ho inserito ma mi da sempre errore

il formato è questo :

008;18/01/2022;33;66;43;34;46;49;87;78
009;20/01/2022;32;37;77;33;79;53;76;61
010;22/01/2022;13;37;50;59;05;27;76;47
011;25/01/2022;23;16;21;50;13;04;63;79
012;27/01/2022;63;74;30;83;53;88;44;27
013;29/01/2022;79;01;63;23;89;82;68;52
014;01/02/2022;58;10;29;47;05;31;34;44
015;03/02/2022;21;77;26;35;28;65;46;60
016;05/02/2022;48;81;76;30;55;39;82;11
017;08/02/2022;38;81;64;36;62;57;68;28
018;10/02/2022;58;52;51;35;25;59;82;71
019;12/02/2022;22;27;14;68;47;77;44;45
020;15/02/2022;01;60;44;49;74;09;70;38
021;17/02/2022;77;48;67;87;85;36;38;74
022;19/02/2022;13;81;74;09;15;65;66;24
023;22/02/2022;64;15;74;09;59;29;22;16
024;24/02/2022;16;52;73;69;38;28;17;47
025;26/02/2022;87;24;38;06;84;52;04;81
026;01/03/2022;81;83;44;79;60;15;64;64
027;03/03/2022;80;31;43;40;47;33;02;21
028;05/03/2022;66;03;58;80;09;68;35;77

forse dipende dalla data .
 
Non 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
 
Ultima modifica:
Non 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
Forse è per il motivo che il mio archivio non ha un ID progressivo ma ha un indice annuale progressivo

150;14/12/2019;52;60;43;83;08;10;84;61
151;17/12/2019;04;44;86;88;08;37;56;62
152;19/12/2019;80;74;43;25;03;14;62;80
153;21/12/2019;50;66;09;36;28;90;71;56
154;23/12/2019;89;30;17;45;56;87;18;76
155;24/12/2019;55;48;44;67;90;82;54;72
156;28/12/2019;65;03;42;16;28;08;75;63
157;31/12/2019;03;43;80;62;36;32;13;89
001;02/01/2020;85;45;78;64;05;63;04;89
002;04/01/2020;57;23;30;44;37;80;26;56
003;07/01/2020;78;72;23;60;66;02;19;53
004;09/01/2020;05;54;55;14;66;78;52;45
005;11/01/2020;36;72;34;38;81;63;18;63
 
Penso che sia quello la causa di errore , devi ricrearti un file con i giusti parametri
I codici con suffisso FT hanno bisogno di un archivio con i seguenti parametri
ID prgressivo
data formato 00/00/0000
colonne

il tutto separato da un carattere separatore.

Io non ho l'archivio in ordine di estrazione e quindi non posso aiutarti ulteriormente.

P.s. io in parte ho modificato l'archivio da te postato
trasportandolo in excel e da modificato tutta la riga ID per poi riportartolo modificato in BloccoNote. in pochi passaggi.

Se hai bisogno posta l'archivio tuo in txt che vediamo di trasformarlo nel modo leggibile
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 09 gennaio 2025
    Bari
    47
    06
    65
    72
    48
    Cagliari
    75
    33
    52
    59
    73
    Firenze
    08
    05
    35
    74
    81
    Genova
    33
    59
    68
    27
    07
    Milano
    68
    12
    60
    51
    65
    Napoli
    49
    17
    10
    71
    87
    Palermo
    31
    64
    45
    04
    47
    Roma
    18
    84
    43
    28
    31
    Torino
    14
    23
    33
    16
    84
    Venezia
    39
    41
    08
    02
    86
    Nazionale
    63
    41
    58
    16
    01
    Estrazione Simbolotto
    Bari
    45
    03
    38
    41
    15

Ultimi Messaggi

Indietro
Alto