Qualcuno riesce?

[claudio8]

Giusto! c'è anche Claudio spesso disponibile che ringrazio tanto.
Lo script gira bene sul mio archivio txt ,ma non vedo i ritardi che avevano gli estratti caduti!

Lo script di Mike usa la funzione ritardo per altri scopi.
Te lo ho riscritto ad hoc.

Anticipazione (Spoiler): script con ritardi

Option Explicit
Sub Main
     Dim nu(5),T,V,aN(55)
     Dim sFileBd,Ini,FIn,x,es,p
     Dim sChrSep
     sChrSep = ","
     sFileBd = "C:\Users\my\OneDrive\Desktop\ArcomodEx.txt" ' Qui specificare il proprio percorso e file archivio
     Call ApriBaseDatiFT(sFileBd,5,sChrSep,55) ' x MillionDay
     Ini = EstrazioniArchivioFT - 59
     FIn = EstrazioniArchivioFT
     Scrivi " Ritardi che avevano i numeri estratti"
     ReDim T(7)
     T(1) = "Data"
     T(2) = "Estratti"
     For x = 1 To 5
          T(x + 2) = "rit." & x & "°E"
     Next
     Call InitTabella(T)
     For es = Ini To FIn
          ReDim V(7)
          V(1) = DataEstrazioneFT(es)
          V(2) = StringaEstrattiFT(es)
          For p = 1 To 5
               x = EstrattoFT(es,p)
               V(2 + p) = EstrattoRitardoFT(x,0,es - 1)
          Next
          Call AddRigaTabella(V)
     Next
     CreaTabella
End Sub

Saluti

 

[Marcorun]

Spettacolare.....funziona benissimo,sei proprio bravo!
GRAZIE!

 

[InRicordo]

Qui ci sono solo le strazioni regolari, non le extra. Per fare la macro ho dato in pasto lo Script di claudio8 alla AI, con qualche modifica.
Tutto ciò che funziona è merito di claudio8, qualsiasi casino, errore, orrore è merito mio
Le modifiche: possibilità di inserire data inizio e fine, calcolo di quante volte, nel periodo richiesto, il ritardo era tra 1 e 9, 10 e 18 ecc.
Le altre macro mi stanno dando notevoli problemi, secondo una di queste il 38 ritarda da 14567 estrazioni... Giocatelo!
Baciccia

 

[InRicordo]

Vedi l'allegato 2297600

Qui ci sono solo le strazioni regolari, non le extra. Per fare la macro ho dato in pasto lo Script di claudio8 alla AI, con qualche modifica.
Tutto ciò che funziona è merito di claudio8, qualsiasi casino, errore, orrore è merito mio
Le modifiche: possibilità di inserire data inizio e fine, calcolo di quante volte, nel periodo richiesto, il ritardo era tra 1 e 9, 10 e 18 ecc.
Le altre macro mi stanno dando notevoli problemi, secondo una di queste il 38 ritarda da 14567 estrazioni... Giocatelo!
Baciccia

Il 38 a Palermo è uscito
Baciccia

 

[InRicordo]

Il 38 a Palermo è uscito
Baciccia

Naturalmente il 38 uscito a Palermo era una boutade.
Il 38 l'avevo inventato tanto per significare l'assurdità di certi risultati. Diffatti se guardate la ruota non c'è.
Ho solo guardato se, per caso, il 38 era uscito da qualche parte. E ho fatto il Post.
Non avete idea, tra i furbetti, quanto questa tecnica sia applicata. Non cascateci.
Ba ciccion (acc. quasi 100 chili! In 50 cm d'altezza)

 

[claudio8]

.

 

[lottoandy81]

Ciao @Baciccia nel tuo file xls hai qualcosa con le triple di figura ?
Se la risposta è no ti andrebbe di abbozzare qualcosa ?
Ti posso fornire una mia idea ti va ?

 

[InRicordo]

Ciao @Baciccia nel tuo file xls hai qualcosa con le triple di figura ?
Se la risposta è no ti andrebbe di abbozzare qualcosa ?
Ti posso fornire una mia idea ti va ?

Il file è fermo la doppia estrazione porta un insieme di errori (o situazioni non previste) abnorme. Qui uno script si rivela superiore, se chi lo fa, lo sa fare. Io non lo so fare.
Aspetto una AI un pochino più "CAPACE", non come ora "capace" di fare casini immensi.
Esempio: il semplicfe tabellone al ritardo 0: poiché le estrazioni normali giornaliere sono due, uno o più numeri possono ripetersi:
la macro però SA che al ritardo 0 ci devono essere 10 numeri e mette anche i doppioni. Tutti i tentativi che ho fatto per evitare questo hanno comportato errori a cascata sui restanti ritardi. (se mettessi anche le estrazioni Extra, sia io che la AI ci suicideremmo mangiando 36 chili di ravioli con sugo di salsiccia io, e con un voltaggio di 20.000 volt la AI.
Baciccia