Questo script dovrebbe prelevare da file txt una formazione alla volta...

[lotto_tom75]

Sub Main
   Dim L,Ru(1),T,V
   Ini = EstrazioneIni
   fin = EstrazioneFin
   r = InputBox("Quale ruota",,1)
   s = InputBox("Quale Sorte di Verifica",,3)
   ResetTimer
   Ru(1) = r
   so = NomeSorte(s)
   L = Array(0,08,12,19,20,38,40,42,43,44,47,53,61)
   T = Array(T,"Ruota","Lunghetta","Freq","Rit.Att","Max Sto","InCr","Sorte di Verifica")
   Call InitTabella(T)
   Call StatisticaFormazioneTurbo(L,Ru,s,rit,max,Incr,fre,Ini,fin)
   V = Array(V,StringaRuote(Ru),StringaNumeri(L),fre,rit,max,Incr,so)
   Call AddRigaTabella(V)
   CreaTabella
   Scrivi ".............................................Verifica..........................................................................."
   For es = Ini To fin
      Call VerificaEsitoTurbo(L,Ru,es,s,1,,esito,clp,estr,id)
      If esito <> "" Then
         k = k + 1
         ReDim Preserve aRetRit(k)
         aRetRit(k) = es
         ReDim Preserve ess(k)
         ess(k) = aRetRit(k) - aRetRit(k - 1)
         Scrivi FormatSpace(k,4) & vbTab & GetInfoEstrazione(es) & vbTab,0,0
         Scrivi estr & vbTab & vbTab & FormatSpace(fin - id,4) & " > Estrazioni Trascorse < " & " Elenco Ritardi ... " & ess(k)
      End If
   Next
   Scrivi String(130,".")
   Scrivi "Tempo Trascorso : " & TempoTrascorso
End Sub

In pratica questo interessantissimo script, che dallo stile piuttosto ermetico credo abbia realizzato il grande Joe, verifica per qualsiasi formazione messa su dopo lo 0 su questa riga:

L = Array(0,08,12,19,20,38,40,42,43,44,47,53,61) gli eventuali esiti nell'arco delle estrazioni desiderate su tutte le ruote separate o anche su una sola specifica evidenziando in alto anche i relativi ra, rs e incmax generali dell'intero range temporale analizzato.

Ora se possibile chiedo a magia o a qualunque altro scripter in grado di farlo di modificarlo al fine di poter analizzare non una formazione alla votla, come in questo caso, bensì ogni riga di formazioen presentee in un relativo file txt formazioni-da-analizzare.txt indipendentemente dalla classe di ciascuna di esse.

Es.

Il file txt formazioni-da-analizzare.txt potrebbe contenere qualcosa del tipo:

64,74,81
59,60,81
02,09,17,45,51,56,81
02,09,17,45,54,55,59
02,09,17,45,55,56,74
02,09,17,45,55,59,64
13,17,18,22,31,34,59,64,81
13,17,18,22,31,37,45,60,74
13,17,18,22,31,37,46,57,74
01,13,23,40,43,46,51,54,57,60,64
01,13,23,40,43,46,51,54,57,60,74

ecc...

ovvero appunto qualsiasi tipo di formazione desiderata e di numero di elementi vario... (nell'es. da 3 a 11 ma dovrebbe essere senza limite di classe appunto)

Se non sono stato troppo chiaro dite che provo a rispiegarmi.

Grazie anticipate a tutti/e gli eventuali "realizzatori della modifica in oggetto".

 

[lotto_tom75]

Magico magia GRAZIE 1000!

 

[Alien.]

è a me non funziona lo script di magia,perchè? mi cerca l'archivio nelle mie cartelle,perchè ?mi sa che mi son perso.....qualche cosa,grazie

 

[salvo50]

è a me non funziona lo script di magia,perchè? mi cerca l'archivio nelle mie cartelle,perchè ?mi sa che mi son perso.....qualche cosa,grazie

Ciao a Tutti.

Dentro la cartella dove ti cerca l'archivio devi mettere un file con estensione TXT (un file di testo) , per fare una prova nel file puoi inserire i numeri che ha postato Lotto_Tom75

64,74,81
59,60,81
02,09,17,45,51,56,81
02,09,17,45,54,55,59
02,09,17,45,55,56,74
02,09,17,45,55,59,64
13,17,18,22,31,34,59,64,81
13,17,18,22,31,37,45,60,74
13,17,18,22,31,37,46,57,74
01,13,23,40,43,46,51,54,57,60,64
01,13,23,40,43,46,51,54,57,60,74

 

[fillotto]

Ottimo script , ma non si potrebbe fare una sorta di riepilogo tipo prima o in coda tutte le specifiche celle varie lunghette perchè cosi facendo si confronterebbero tutte le lunghette o , meglio ancora una tablla ordinabile avente per righe i dati sottostanti?

     [TABLE="border: 1, cellpadding: 0, cellspacing: 0"]
[TR]
[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]Ruota [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]Lunghetta [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]Freq [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]Rit.Att [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]Max Sto [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]InCr [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]Sorte di Verifica [/COLOR][/SIZE][/FONT][/TD]
 		[/TR]
[TR]
[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]BA [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000].70. 88. 40. 57. 52 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]51 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]65 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]203 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]0 [/COLOR][/SIZE][/FONT][/TD]
 			[TD="bgcolor: #ffffff, align: center"][FONT=Ms Sans serif][SIZE=2][COLOR=#000000]Ambo [/COLOR][/SIZE][/FONT]

[/TD]
 		[/TR]
[/TABLE]

 

[fillotto]

purtroppo non funziona, con l'occasione si potrebbe aggiungere un'ulteriore colonna con la data dell'ultima uscita e un altra del punteggio ottenuto in quest'ultima?

 

[fillotto]

lo strumento di cattura è cambiato enon riesco a togliere il pannello superiore a dx comunque penso si capisca

 

[joe]

Buona Giornata a tutte (con gli auguri) / i.

E' necessario "uniformarsi" al formato dei dati contenuti nel file di testo proposto ad esempio,

perché, altrimenti, esso non viene interpretato correttamente.

Così pure, di esso, verrebbe escluso dai calcoli, il primo pronostico.

Ho apportato dunque alcune semplici modifiche allo script ...

... al quale andrebbero ancora aggiunte le richieste di filotto.

Option Explicit
'https://forum.lottoced.com/forum/lottoced/area-download/2159791-questo-script-dovrebbe-prelevare-da-file-txt-una-formazione-alla-volta
Sub Main
   Dim Ini,Fin,Es : Ini = EstrazioneIni : Fin = EstrazioneFin
   Dim R : R = InputBox("Quale ruota",,1)
   Dim S : S = InputBox("Quale Sorte di Verifica",,2)
   Dim Ru(1),So,Q : Ru(1) = R :  So = NomeSorte(S)
   Dim sFile : sFile = ScegliFile(GetDirectoryAppData & ".txt")
   Call ResetTimer() : Call Scrivi() : Call Messaggio("Lettura file di testo")
   ReDim aRighe(00) : Call LeggiRigheFileDiTesto(sFile,aRighe)
   Dim T : T = Array(T,"","Ruota","Lunghetta","Freq","Rit.Att","Max Sto","InCr","Sorte di Verifica","Ultimi 10 ritardi")
   Call InitTabella(T)
   For Q = 0 To UBound(aRighe)
      If aRighe(Q) <> "" Then
         Dim rit,max,Incr,fre : ReDim L(90) : Call SplitByChar(aRighe(Q),",",L)
         ' L = Array(0,08,12,19,20,38,40,42,43,44,47,53,61)
         Call StatisticaFormazioneTurbo(L,Ru,S,rit,max,Incr,fre,Ini,Fin)
         '------------- calcolo ritardi precedenti --------------
         ReDim rp(10) : Dim Inizio,Fine,z : Inizio = Ini : Fine = Fin
         For z = 1 To 10 : rp(z) = SerieRitardoTurbo(Inizio,Fine,L,Ru,S)
            Fine = Fine -(rp(z) + 1)
         Next
         '--------------------- fine calcolo --------------------
         Dim V : V = Array(V,Q,SiglaRuota(R),aRighe(Q),fre,rit,max,Incr,So,StringaNumeri(rp,,True))
         Call AddRigaTabella(V)
      End If
      Call AvanzamentoElab(0,UBound(aRighe),Q) : Call Messaggio("Lettura Colonna : " & Q)
   Next
   Call CreaTabellaOrdinabile() : Call Scrivi(String(130,".")) : Call Scrivi("Tempo Trascorso : " & TempoTrascorso)
End Sub

 

[fillotto]

Grazie Joe, adesso viene giusto... sarebbe utile però sel'etichetta " Sorte di verifica " fosse trasformata in " Ultima sorte verificata " quindi con Ambo,Terno ecc e l'ulteriore colonna " Numeri sortiti ultimo esito".Il fatto che ci sia sritto "Ambo" è irrilevante per un osservazione perchè questo lo so già apriori.

Poi una curiosità come mai la seconda lunghetta, nella tabella, ha una diversa formattazione? cosi come l'ultima ?

 

[fillotto]

Buonanotte,
Salutando gli intervenuti .
Ci scusiamo per gli errori , dovuti alla distrazione .
Per cui ringraziamo joe , per la correzzione e la modifiche apportate ,
Abbiamo , altresi , modificato ed aggiornato il listato , con le aggiunte richieste .
Controllare Sempre .
Salvo Errori ed Omissis .

Grazie Magia, in questa maniera(con l'ultima modifica) è possibile controllare l'ipotetica messa in gioco di un gruppo di 23 cinquine(nel mio caso) e controllare se si avesse avuto un guadagno

 

[joe]

Ciao Magia,

ringrazio per aver accolto il suggerimento.

Filotto per controlli sul genere di quanto hai proposto, alcuni anni fa, con Luigi,

s'erano ampliate le potenzialità dell'agenda giocate.

Con questa si possono monitorare egregiamente i pronostici multipli.

E ... come vedi è particolarmente utile per monitorare gli esiti.

In esempio furono parecchi Terni Secchi a tutte,nell'anno che si era considerato.

 

[fillotto]

Ciao Magia,

ringrazio per aver accolto il suggerimento.

Filotto per controlli sul genere di quanto hai proposto, alcuni anni fa, con Luigi,

s'erano ampliate le potenzialità dell'agenda giocate.

Con questa si possono monitorare egregiamente i pronostici multipli.

E ... come vedi è particolarmente utile per monitorare gli esiti.

In esempio furono parecchi Terni Secchi a tutte,nell'anno che si era considerato.



[IMG2=JSON]{"data-align":"none","data-size":"full","src":"http:\/\/i65.tinypic.com\/xbesuh.jpg"}[/IMG2]

Sera Joe ,potresti mettere il link della discussione dove si parla dell'agenda giocate. per ripassare l'argomento?
Per quanto mi riguarda io ho provato ad analizzare questo file su BAsempre prove ) a partire dal 24/1/19 e avtrei beccato due terni (se avessi giocato he he) Vediamo se si capisce il perchè di questi numeri non sono presi a caso :

70,    88,    40,    57,    52
70,     82,     07,     04,     55
04,    80,    77,    85,    52
55,    80,    74,    82,    70
74,    07,    82,    58,    50
70,    82,    45,    80,    75
28,    55,    80,    70,    47
82,    58,    04,    75,    70
40,    75,    58,    07,    28
07,    55,    82,    70,    84
47,    85,    80,    70,    25
04,    28,    75,    58,    07
88,    47,    55,    02,    07
75,    57,    28,    40,    80
47,    50,    82,    07,    58
50,    77,    42,    80,    85
70,    58,    85,    70,    42
50,    28,    87,    40,    75
58,    80,    57,    02,    74
75,    02,    45,    07,    88
48,    50,    87,    07,    52
02,    47,    80,    87,    55
70,    75,    28,    80,     45

 

[fillotto]

PURTROPPO NON FUNZIONA !!! O MEGLIO FUNZIONA MALE .
Es: Prendiamo la cinquina n° 6 " 70.82,45,80,75 " la tabella mi segnala che il suo ultimo esito è stato 82 estrazioni fa ovvero il 28/8/18 con l'ambo 80-45 ciò è vero ma 45 e 70 facente parte della cinquina suddetta è più recente (24 estraz. fa il 10/1/19) ci sono cinquine che sono giuste e altre che sono sbagligliate,
Magia, Joe.... non si può rivedere la faccenda ?

 

[fillotto]

scusa per il messaggio di prima, ho capito il file è stato modificato e non me n'ero accorto

 

[joe]

Nel primo messaggio si usa questa linea:

L = Array(0,08,12,19,20,38,40,42,43,44,47,53,61)

Ove si vede chiaramente che ci sono (diversi) numeri di cui il primo è "zero".

Per rimanere "allineati" a questo formato

o si inserisce uno zero prima di ogni formazione, quando la si andrà a scrivere sul disco.

(perdonate il francesismo)

Oppure la si scrive nei suoi soli numeri significativi ... sul disco.

In questo secondo caso, che è il più comune, quando le si va a leggere ...

si deve poi aggiungere (e anteporre) questo zero prima di ognuna di esse

per poterne poi calcolarne le statistiche con le istruzioni che si si sono utilizzate.

Così facendo ... tutto funziona correttamente.