Lotteria MillionDay

[Mike58]

Forse è meglio non cumulare le vincite e renderle reali sulle estrazioni
Concordi Nikor

Sub Main
 Dim sFile,Np(55),T,V
 sFile = "C:\Users\Mike58\Desktop\MillionDay.txt"
 Call ApriBaseDatiFT(sFile,5,",",55)
 Ini = 1
 fin = EstrazioniArchivioFT
 Scrivi "***** Lotteria MillionDay ****** ",1,,,1,3,,1
 Scrivi "Estrazione Inizio........... " & Ini
 Scrivi "Estrazione Fine............. " & fin
 Scrivi "Totali Estrazioni........... " &(fin - Ini) + 1
 Scrivi "Lunghette Eterogenee per Frequenze di sorte ",1
 Scrivi sFile
 Scrivi
 T = Array(T,"Lunghetta","Ambi","Terni","Quaterne","Cinquine")
 Call InitTabella(T)
 cinq = 0
 qua = 0
 Ter = 0
 amb = 0
 For x = 1 To 10
  ' ............ inizio inserimento .................... di x
  Np(1) = Array(0,1,5,13,16,19,20,23,29,40,43,46,47)
  Np(2) = Array(0,11,13,20,22,4,25,26,27,28,29,30,31)
  Np(3) = Array(0,11,20,55,45,46,47,48,49,50,51,52,53)
  Np(4) = Array(0,10,19,25,29,46,13,30,43,45,54)
  Np(5) = Array(0,11,20,48)
  Np(6) = Array(0,3,13,20,27)
  Np(7) = Array(0,3,13,20,54)
  Np(8) = Array(0,11,20,37,42)
  Np(9) = Array(0,11,22,49)
  Np(10) = Array(0,20,27,51)
  ' .......... fine inserimento ...........................
  For y = 2 To 5
   'Call StatisticaFormazioneFT(Np(x),y,rit,max,Incr,fre,Ini,fin)
   Call VerificaEsitoFT(Np(x),Ini,y,40,fre,clp,es1,id)
   ReDim Preserve freq(y)
   freq(y) = fre
   If fre = "Cinquina" Then cinq = cinq + 1
   If fre = "Quaterna" Then qua = qua + 1
   If fre = "Terno" Then Ter = Ter + 1
   If fre = "Ambo" Then amb = amb + 1
  Next
  V = Array(V,StringaNumeri(Np(x)),amb,Ter,qua,cinq)
  If V(5) = 0 Then V(5) = "-"
  If V(4) = 0 Then V(4) = "-"
  If V(3) = 0 Then V(3) = "-"
  If V(2) = 0 Then V(2) = "-"
  Call AddRigaTabella(V)
  cinq = 0
  qua = 0
  Ter = 0
  amb = 0
  'If cinq = 0 Then cinq = "-"
 Next
 CreaTabella
End Sub

 

[Nikor]

Vedo solo ora la modifica, devo guardare meglio perchè qualche cosa non quadra.

Per quanto concerne il precedente tuo post ti rispondo subito:

Caro Mike58 , si hai visto bene sono appassionato di statistica perché era stato il mio lavoro per un periodo di tempo.
Posto in Output i risultati del tuo listato:



Si evince nel rettangolo rosso che inserendo la lunghetta di 13 numeri da esattamente tutti i punteggi che hai modificato.

Hai fatto un grande lavoro, tutti gli utenti di Spazio Metria del Grande Luigi B. potranno ora approfittarne per le verifiche dei propri numeri personali.

Siete in pochi a farvi carico di queste condivisioni, ed avete tutta la mia stima e fiducia, e come scrive Luigi chi aiuta altri utenti si contano sulle dita della mano di un falegname…

Per il mio caso (si vede anche dell’Avatar) io mi avvalgo di altri strumenti, e tempo fa avevo deciso di non condividere più alcun dato e proseguire in solitaria; le motivazioni le avevo già scritte e sarebbe superfluo ribadirle, sintetizzo con un vecchio proverbio:
Per colpa di qualcuno non si condividono più le formazioni estreme con nessuno!

Ciao , appena mi è possibile guardo l'ultimo tuo listato Buona Settimana, Nikor.

 

[Mike58]

Numeri in Gioco : 1.5.13.16.19.20.23.29.40.43.44.46.47
Giocata al MillionDay
Ambi : 4
Terni : 15
Quaterne : 1



Ci devo lavorare qualcosa non quadra sul listato precedente

 

[Nikor]

Ciao Mike58 non angustiarti, come puoi vedere questa iniziativa sul MillionDay sembra non interessare.

Hai già fatto tanto, hai messo a disposizione una interessante utility dove ogni appassionato di questo gioco con i listati che avevi proposto potrà inserire le proprie formazioni e confrontare i punteggi.

Per il problema ( Frequenze - Presenze ) se trovo il tempo ne riparleremo….
Teniamo sempre presente un dato di fatto.
( > = ) di 3 punti significa la presenza minima o superiore del punteggio imposto, mi spiego meglio con un esempio reale:
La mia tredicina ha fatto il seguente punteggio dell’operatore logico di confronto (>=) di 3 ,equivalente a 16 Presenze! Su 34 estrazioni.
Nel range analizzato era sortita anche una quaterna [ considerando che una quaterna sviluppa 4 terni ] il campo Presenze Terni diventa (15 volte 3 e 1 volta 4) = a 16 ed il campo Frequenze diventa (15+4) = 19 per effetto dei 4 terni presenti nella Quaterna estratta!

Come tu ben sai quantificare una cinquina estratta ovvero sincrona, ci sono :
5 – Quaterne.
10 – Terni.
10 – Ambi, il tutto in una sola Presenza estrazionale….

Per l’estrazione di questa sera la mia formazione di 13 numeri ha fatto altri 2 punti! niente di mirabolante ma sempre un’ottima base di partenza!

Altra considerazione, per chi cerca lunghette di 10 numeri con presenza di Terni, quando si trovano decine con valore uguale a 2 presenze è meglio cestinarle; mi spiego meglio:
Se prendiamo 2 cinquine a caso delle 35 estratte fino a questo momento ( con la caratteristica di non avere al proprio interno numeri ripetuti ) è ovvio che ci daranno la Presenza di 2 volte 5 punti!

Le lunghette in decina diventano interessanti solo se avranno presenza uguale o maggiore di 3, ( > = di 3 ) in questo momento ne ho scovate solo 3 con questa caratteristica…..

Per le Settine 2 hanno dato 2 volte il 5 punti pieno!
Il resoconto parziale con l’utility di Mike58:


Interessante anche l'ottina che ingloba punteggi minori.

L’elaborazione è ancora in corso , anche se il campionamento è ancora troppo scarno per avere dati attendibili!
Credo che per il momento sia tutto, un saluto all’Amico Mike58 ed a tutti quanti seguono questo nuovo gioco e che possono intervenire con idee costruttive.

Nikor.

 

[claudio8]

1,869 visualizzazioni dal 2 marzo sono un buon numero, una media di 150 al giorno non è da tutti i post.
Io vi seguo anche se non scrivo, sostanzialmente perchè sono impegnato sul fronte "lotto", e dell'Antonio 65.
un saluto e avanti tutta.

 

[Nikor]

1,869 visualizzazioni dal 2 marzo sono un buon numero, una media di 150 al giorno non è da tutti i post.
Io vi seguo anche se non scrivo, sostanzialmente perchè sono impegnato sul fronte "lotto", e dell'Antonio 65.
un saluto e avanti tutta.

Ciao Claudio8 , la tua fama di utente storico è conosciuta da molti se ti va di partecipare con qualche idea o per darci una mano sarai il benvenuto.

Nikor.

 

[claudio8]

Grazie Nikor, ma non penso di essere così famoso, hai con te uno dei maggiori "produttori di script" e ti assicuro che è uno stocanovista bravo e affidable...
per quanto riguarda il darvi una mano, vedrò di fare il possibile anche se sono preso dalle ambate a Bari, che sin'ora hanno fatto bella figura.
claudio

 

[*blacklotto*]

Ciao,

le mie attenzioni a questo gioco sono particolari, dove ne seguo attentamente l'evoluzione numerica, ma con distinzione, cioè, avendo costruito manualmente ben 8 archivi.
Uno, quello totale di tutte le estrazioni ne posso usufruire grazie ai listati del buon Mike58, mentre gli altri 7 archivi ancora lo porto avanti a tastiera, con la speranza che Mike58 riesca ad esaudire questo mio desiderio di poter suddividere le estrazioni giorno per giorno così da seguirne le estrazioni distintamente.
La visione dovrebbe essere questa, facendo esempio delle estrazioni di oggi Martedì :


MARTEDÌ 13 FEBBRAIO 2018 = 03 34 43 46 50
MARTEDÌ 20 FEBBRAIO 2018 = 10 35 37 42 54
MARTEDÌ 27 FEBBRAIO 2018 = 11 16 43 46 47
MARTEDÌ 06 MARZO 2018 = 11 21 22 49 52
MARTEDÌ 13 MARZO 2018 = 09 16 19 31 53

RIPETUTI : 43-46-11-16 ( senza ripetizioni )

con stringa numeri estratti
con stringa numeri in attesa

Ovviamente il listato avrà compreso tutti i giorni, ma a scelta si inserirà il giorno.

Detto questo, grazie ai listati di Mike provo a modificarne le formule per avere in visione qualcosa che potrebbe interessare, cose semplici, e probabilmente con errori, ma comunque funzionanti ...
Per esempio, questo mi da possibilità di sapere la somma delle cinquine estratte :

Sub Main
Dim Nu(5),NP(55),aN(90),T,V,sFile
sFile = GetDirectoryAppData & "ArchiviTxT" ' <--- inserire stringa personale
Call ApriBaseDatiFT(sFile,5,",",55)
Ini = 1
fin = EstrazioniArchivioFT
For es = fin To Ini Step - 1
nk = nk + 1
For p = 1 To 5
Nu(p) = EstrattoFT(es,p)
Next
somma = Nu(1) + Nu(2) + Nu(3) + Nu(4) + Nu(5)
'If 100 <= somma And somma <= 120 Then ' cerco somma tra somme a scelta
Scrivi Nu(1) & "+" & Nu(2) & "+" & Nu(3) & "+" & Nu(4) & "+" & Nu(5) & " = somma " & somma,1,1,,0,4
'End If
Next
End Sub

Questo invece ci consegna decine e cadenze :

SubMain
DimNu(5),NP(55),aN(90),T,V,sFile
sFile=GetDirectoryAppData& "ArchiviTxT" <--- inserire stringa personale
CallApriBaseDatiFT(sFile,5,",",55)
Ini = 1
fin =EstrazioniArchivioFT
For es = fin To Ini Step- 1
nk = nk + 1
For p = 1 To 5
Nu(p) =EstrattoFT(es,p)
Next
de1 =Decina(Nu(1))
de2 =Decina(Nu(2))
de3 =Decina(Nu(3))
de4 =Decina(Nu(4))
de5 =Decina(Nu(5))
'
ca1 =Cadenza(Nu(1))
ca2 =Cadenza(Nu(2))
ca3 =Cadenza(Nu(3))
ca4 =Cadenza(Nu(4))
ca5 =Cadenza(Nu(5))
'
ScriviNu(1) & " - " &Nu(2) & " - " &Nu(3) & " - " &Nu(4) & " - " &Nu(5),1
Scrivi
ColoreTesto 1
Scrivi "DECINE : " & "" & de1 & "-" & de2 & "-" & de3 & "-" & de4 & "-" & de5,1
ColoreTesto 2
Scrivi "CADENZE : " & "" & ca1 & "-" & ca2 & "-" & ca3 & "-" & ca4 & "-" & ca5,1
ColoreTesto 0
Scrivi "==========================="
Next
End Sub

Certo, cose semplicissime, e ad impatto cose insignificanti, cosa che poi, volendo, ognuno potrà modificare.

Le cose le porto avanti, facendo pratica, dove ci riesco.

Un saluto a Mike58, e a tutti gli utenti

blacklotto




　

 

[Mike58]

Ciao a Tutti e un grazie per l'interesse.

Purtroppo il tempo questa settimana per me è tiranno e non posso dedicarmi attivamente al progetto in esame.

Tuttavia l'analisi delle verifiche punteggi lascia a varie interpretazioni ma le vincite reali per punteggi sulle estrazioni devono essere solo conteggiate e non cumulate.

Vi metto un semplice script dei conteggi su una combinazione scelta e immessa in array.

Sub Main
 Dim Nu(10),aN(5),sFile
 sFile = "C:\Users\Mike58\Desktop\MillionDay.txt"
 Call ApriBaseDatiFT(sFile,5,",",55)
 Ini = 1
 fin = EstrazioniArchivioFT
 dett = InputBox("Vuoi vedere il dettaglio","Si No","S")
 For x = 1 To 1
  Nu(x) = Array(0,1,5,10,15,20,25,30,35,40,45)
  For es = Ini To fin
   For p = 1 To 5
    aN(p) = EstrattoFT(es,p)
    pt = SerieFreqFT(es,es,Nu(x),1)
   Next
   If pt = 0 Then pto = pto + 1
   If pt = 1 Then pt1 = pt1 + 1
   If pt = 2 Then pt2 = pt2 + 1
   If pt = 3 Then pt3 = pt3 + 1
   If pt = 4 Then pt4 = pt4 + 1
   If pt = 5 Then pt5 = pt5 + 1
   Call VerificaEsitoFT(Nu(x),es,1,1,,,es1)
   If dett = "S" Then
    Scrivi StringaEstrattiFT(es) & vbTab & pt & vbTab & es1
   End If
  Next
  Scrivi
  Scrivi StringaNumeri(Nu(x)),1
  Scrivi "Punti Zero....... " & pto
  Scrivi "Punti Uno........ " & pt1
  Scrivi "Punti Due........ " & pt2,1
  Scrivi "Punti tre........ " & pt3,1
  Scrivi "Punti Quattro.... " & pt4,1
  Scrivi "Punti Cinque..... " & pt5,1
  'pto = 0
 Next
End Sub

Mentre per quello che chiede L'amico Blacklotto, circa il filtro per giorni anche se questo è ancora prematuro visto le esigue estrazioni lascio un assaggino ma deve essere ancora completato.

Andrebbe integrato con tutti i giorni e poi andrebbero conteggiati i numeri per uscita giornaliera in esame.


Ci devo lavorare ma visto il poco tempo x Blacklotto lascio un assaggino visto che sarà capace di metterci le mani per le sue vedute.

Sub Main
 Dim Es,sfile
 sfile = "C:\users\Mike58\Desktop\MillionDay.txt"
 'sfile = ScegliFile("MillionDay.txt")
 Call ApriBaseDatiFT(sfile,5,",",55)
 Ini = 1
 fin = EstrazioniArchivioFT
 For Es = Ini To fin
  If Sabato(Es) Then
   Scrivi DataEstrazioneFT(Es,1) & vbTab & StringaEstrattiFT(Es) & vbTab & WeekDay(6)
  End If
  'Scrivi
  If Domenica(Es) Then
   Scrivi DataEstrazioneFT(Es,1) & vbTab & StringaEstrattiFT(Es) & vbTab & WeekDay(7)

  End If

 Next
End Sub
Function Sabato(Es)
 Sabato = False
 Data = Replace(DataEstrazioneFT(Es),".","/")
 Mike = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
 Data = Format2(Mike) & "/" & Format2(Mes) & "/" & Ann
 If WeekDay(Data) = vbSaturday Then Sabato = True
End Function

Function Domenica(Es)
 Domenica = False
 Data = Replace(DataEstrazioneFT(Es),".","/")
 Mike = Day(Data) : Mes = Month(Data) : Ann = Year(Data)
 Data = Format2(Mike) & "/" & Format2(Mes) & "/" & Ann
 If WeekDay(Data) = vbSunday Then Domenica = True
End Function

 

[Nikor]

Un saluto ai partecipanti.

Anche se non ho ancora provato i suggerimenti di Magia sono certo che saranno un altro valore aggiunto, grazie.

Per Mike58, dal tuo scritto:

Tuttavia l'analisi delle verifiche punteggi lascia a varie interpretazioni ma le vincite reali per punteggi sulle estrazioni devono essere solo conteggiate e non cumulate.

Pienamente d'accordo, in effetti la lunghetta di 13 numeri che avevo postato nel topic 34# esprimeva proprio il concetto di presenze non cumulabili con valore ( > = di 3 ) = a 16 terni!

Anche nell'estrazione di questa sera la lunghetta è andata a 2 punti...

Dopo l'estrazione serale 14/03/2018 posto un veloce aggioenamento:



Per gli appassionati di lunghette a breve seguirà una sequela di 15 numeri mirati alla sorte del terno!

Nikor.

 

[Nikor]

Buona serata, tenendo in considerazione un dato di fatto inconfutabile che le quindicine che si formano con 55 numeri sono ben qualche cosa come , Quasi - Dodicimila Miliardi !!! con un PC. sarebbe arduo sfogliare con algoritmo deterministico un tale numero di iterazioni! L’attesa sarebbe a dir poco vicinissima alle calende greche.

Vediamo come con una miscellanea che spazia tra Randomize & Auristica di trovare la strada che meglio si avvicina a valori soddisfacenti! [ già trattata tanto tempo fa sul Forum e denominata procedimento Nikor.]

Bene , dopo l’estrazione di Martedi 13/03/2018 la tabella che segue aveva dato ottimi risultati:



Per la cronaca , anche questa sera ha sfornato 3 numeri, 29-47-54 !
Sembra essere una buona base , che andrebbe ottimizzata con il prosieguo delle estrazioni…..

Nel caso l’autore di questo interessante Thread , ovvero l’amico Mike58 ritenesse che sia (ot) postare le statistiche in questo spazio mescolando Script ed andamento dei risultati, si potrà aprire un nuovo Thread di discussione nell’area statistiche.

Vedremo prossimamente (tempo permettendo) di trovare qualche formazione per 4 punti!!!

Nikor.

 

[DamBu82]

Buona sera a tutti,mi scuso con Mike58 per l'intromissione in questo topic che ho scoperto in quanto citato da blacklotto in altra sezione.
A proposito,nella sezione statistica si stavano appunto facendo delle considerazioni su questo nuovo gioco e del fatidico milione!
Ho provato a fare un confronto tra Lotto e MillionDay,constatando che il primo ha più punti a favore rispetto all'altro,ma la puntata da un euro con quattro premi fissi e le probabilità reali della cinquina al MillionDay sono interessanti!
Mi piacerebbe leggere anche le vostre considerazioni rileggo con piacere gli amici Nikor e Claudio che è da tempo che non vedevo nel forum

Scusami Mike58 e buon lavoro per i tuoi listati

 

[claudio8]

Saluti DamBu

 

[Mike58]

Ciao a Tutti, vedo con piacere un bel interesse per questa lotteria ancora tutta da scoprire.
Un grazie a Magia per le sue ottime integrazioni e suggerisco per utilizzarle al meglio di mettere l'archivio nella directory indicata.(l'amico Blacklotto sarà contento di questi lavori)

Tutti e con tutte le idee sono graditi.

 

[*blacklotto*]

Ciao,

grazie Mike58 per gli ultimi listati,

certo, grazie anche a Magia per i listati inseriti che andrò ad esaminarli con vero piacere.

Saluto DamBu82 augurando che possa aggregarsi per proseguirne il discorso,
e naturalmente tutti coloro che stanno condividendo questa nuova esperienza.

blacklotto

 

[Mike58]

Forse gli ambi in distanza ci possono suggerire qualcosa Bho!!! vediamo anche questo.

Sub Main
 Dim sFile
 Dim sRecord
 Dim k,nu(5)
 Dim idEstr
 Dim rit,fre
 Scrivi " Script Per Archivio **** MillionDay **** By Mike58 **** ",1,1,2,4,4

 ' scrivo un file che leggero successivamente con le ultime estrazioni
 sFile = "C:\Users\Mike58\Desktop\MillionDay.txt"
 Scrivi "FileEstrazioni : " & sFile,1
 ReDim Tt(6)
 Tt(1) = " Distanza "
 Tt(2) = " Ambo "
 Tt(3) = " Ritardo "
 Tt(4) = " RitMax "
 Tt(5) = " Frequenza "
 Tt(6) = " Trovati "
 Call InitTabella(Tt,2,,3,5,"Arial Black")
 If ApriBaseDatiFT(sFile,5,",",55) Then
  Ini = EstrazioneIni
  'kk = kk + 1
  idEstr = EstrazioniArchivioFT
  kk = idEstr - Ini + 1
  sRecord = "L'archivio letto va da " & GetInfoEstrazioneFT(1) & " a " & GetInfoEstrazioneFT(EstrazioniArchivioFT)
  Call Scrivi(sRecord)
  Scrivi "Estrazioni analizzate..." & kk
  Scrivi
  For passo = 1 To 54
   For x = 1 To 54
    For y = x + 1 To 55
     'For z = y + 1 To 40
     If Differenza(x,y) = passo Then'And Differenza(y,z) = passo Then
      nu(1) = x
      nu(2) = y
      'nu(3) = z
      Call StatisticaFormazioneFT(nu,2,rit,max,Incr,fre,Ini,idEstr)
      If fre > 0 Then
       kn = kn + 1
       k1 = k1 + 1
       ReDim Vv(6)
       Vv(1) = passo
       Vv(2) = StringaNumeri(nu,,1)
       Vv(3) = rit
       Vv(4) = max
       Vv(5) = fre
       Vv(6) = kn
       If pari(passo) Then Call AddRigaTabella(Vv,6,,3,0,"arial black")
       If dispari(passo) Then Call AddRigaTabella(Vv,5,,3,0,"arial black")
      End If
     End If
    Next
   Next
   kn = 0
  Next
  Call AddRigaTabella(Tt,2,,2,5,"Arial Black")
  Call CreaTabella()
  Scrivi
  Scrivi "TROVATI....." & k1,1
 End If
End Sub

 

[*blacklotto*]

waw ... alla grande Mike58, grazie !

blacklotto

 

[Mike58]

P.s. x Magia

Ho trovato nel mio archivio un tuo script per aggiornare euroJackpot ancora funzionante, ho cambiato alcune righe per aggiornare il Millionday e comunque aggiorna dal sito Numeropoli, solo che non scrive nel formato che vorremmo con i 3 parametri necessari.

Vedi se ti riesce qualcosa in questo senso, sarebbe una cosa grandiosa per tutti, io ci lavorerò ma il tuo aiuto è indispensabile

Ciao

 

[i legend]

Ciao a Tutti Controllare che non ci siano errori
Questo script dovrebbe filtrare i giorni

' Salvo errori
Option Explicit
' Verificare eventuali errori
' Sub per cercare le strazioni in base al giorno di richiesta
Sub Main
    Dim IdEstr,sGiorno
    Dim sFile:sFile = GetDirectoryAppData & "\ArchivioMillionDay\ArchivioMillionDay.txt"
    Call ApriBaseDatiFT(sFile,5,";",55)
    Call GetGiornoSpia(sGiorno)
    For IdEstr = 1 To EstrazioniArchivioFT
        If ValidaGiorno(IdEstr,sGiorno) Then Scrivi IdEstr & "   " & DataEstrazioneFT(IdEstr,True) & "  " & StringaEstrattiFT(IdEstr)
    Next
End Sub
Function GetGiornoSpia(sGiorno)
    Dim aGiorni:aGiorni = Array("lunedì","martedì","mercoledì","giovedì","venerdì","sabato","domenica")
    GetGiornoSpia = ScegliOpzioneMenu(aGiorni,0,"SelezionaGiornoSpia")
    sGiorno = Left(aGiorni(GetGiornoSpia),3)
End Function
Function ValidaGiorno(IdEstr,sGiorno)
    ValidaGiorno = False
    If Left(DataEstrazioneFT(IdEstr,True),3) = sGiorno Then ValidaGiorno = True
End Function

questo script X Nikor se intende questo per differenze tra presenze e frequenze , se ci sono errori di interpretazioni fate presente cerchiamo di corregerli

Option Explicit
' Verificare eventuali errori
' sub per verificare presenze in estrazioni archivio e frequenze multipledovute a sorti superiori della ricerca
Sub Main
    Dim IdEstr,nSorte
    ReDim aN(0):Call ScegliNumeri(aN)
    Dim iLim: If UBound(aN) >= 5 Then iLim = 5 :Else iLim = UBound(aN)
    Dim sFile:sFile = GetDirectoryAppData & "\ArchivioMillionDay\ArchivioMillionDay.txt"
    Call ApriBaseDatiFT(sFile,5,";",55)
    Scrivi "Formazione Esaminata:  " & StringaNumeri(aN,",",True)
    Scrivi "N.B:" & vbCrLf & "Prs= numero di estrazioni In cui è presente la formazione esaminata per sorte "
    Scrivi:Scrivi "Punti    |  Prs  | Frq  "
    For nSorte = 1 To iLim
        Dim Pres:Pres = 0
        For IdEstr = 1 To EstrazioniArchivioFT
            If SerieFreqFT(IdEstr,IdEstr,aN,nSorte) Then Pres = Pres + 1
        Next
        Scrivi "Sorte=" & nSorte & "  |  " & FormatSpace(Pres,3,1) & "  | " & FormatSpace(SerieFreqFT(1,EstrazioniArchivioFT,aN,nSorte),3,1)
    Next
End Sub

terzo script per raccolta dati o una strada per capire come si potrebbero ottenerli

Option Explicit
'Controllare eventuali errori
' ESEMPI PER RACCOLTA DATI, da utilizzare in fogli di calcolo o come meglio si crede
'
Sub Main
    Dim sFile:sFile = GetDirectoryAppData & "\ArchivioMillionDay\ArchivioMillionDay.txt"
    Call ApriBaseDatiFT(sFile,5,";",55)
    Dim idEstr,p,p1,SumEs,Dif,Sum,sCad,sDec
    Dim aC(5),aD(5),aN(5)
    Dim Tit
    Dim Ini:Ini = 1 ' si mette l indice  che si vuole
    Dim Fin:Fin = EstrazioniArchivioFT
    Tit = "ID;Data;E1;E2;E3;E4;E5;Sum;D1;D2;D3;D4;D5;C1;C2;C3;C4;C5;Dif(1,2);Dif(1,3);Dif(1,4);Dif(1,5);Dif(2,3);Dif(2,4);Dif(2,5);Dif(3,4);Dif(3,5);Dif(4,5);Sum(1,2);Sum(1,3);Sum(1,4);Sum(1,5);Sum(2,3);Sum(2,4);Sum(2,5);Sum(3,4);Sum(3,5);Sum(4,5)"
    Scrivi Tit
    For idEstr = Ini To Fin
        SumEs = SommaEstrattiFT(idEstr)
        sCad = "":sDec = ""
        For p = 1 To 5
            aN(p) = EstrattoFT(idEstr,p)
            aC(p) = Cadenza(aN(p)):aD(p) = Decina(aN(p))
            sDec = sDec & aD(p) & ";"
            sCad = sCad & aC(p) & ";"
        Next
        Dif = "":Sum = ""
        For p = 1 To 4
            For p1 = p + 1 To 5
               Dif=Dif&Format2(Differenza(aN(p),aN(p1)))&";"

                Sum = Sum & FuoriX(aN(p) + aN(p1),55) & ";"
            Next
        Next
        Scrivi FormatSpace(idEstr,4,1) & ";" & DataEstrazioneFT(idEstr) & ";" & StringaEstrattiFT(idEstr,";") & ";" & SumEs & ";" & _
         sDec & sCad & RimuoviLastChr(Dif,";") & ";" & Sum
    Next
End Sub

ditemi che ne pensate

 

[solare]

Ciao Legend, dopo aver lanciato lo script. Il file di testo non esiste.
Io ho messo il file in c:\millionday.txt