Novità

Dato un file txt con formazioni numeriche della stessa classe...

lotto_tom75

lotto_tom75

Advanced Premium Member
Dato un file txt con formazioni numeriche della stessa classe...

Es. (del tutto fittizio di classe 15 e 3 colonne)

01.02.03.04.05.06.07.08.09.10.11.12.13.14.15
21.25.29.33.44.48.51.55.58.60.63.66.68.69.70
71.72.73.74.75.76.77.78.79.80.81.85.87.88.90

E' possibile tramite una sezione del programma o tramite scripts rilevare in un unico output per ogni estrazione del range temporale voluto (es. da inizio 2017) avere per ogni riga i massimi valori di RA per la sorte voluta (E/A/T/Q/C) per ogni ruota considerandole appunto tutte in modo separato?

Grazie infinite a chiunque mi sappia indicare lo script o la sezione del programma capaci di analizzare ciò se esistono già ;)
 
Non importa + ragazzi/e... :D
Ce l'ho fatta a crearmelo da solo! :eek: Che soddisfazione! Colgo l'occasione per ringraziare ugualmente Luigi che sicuramente mi avrà trasmesso... "la soluzione" per via telepatica... :p



Lo posto anche qui sotto nel caso qualcuno/a abbia le mie stesse necessità... analitico statistico riduzionali :)

Codice: 
Option Explicit
Sub Main


Dim k,y
Dim Classe
Dim aCol
ReDim aNum(90)
Dim i
Dim nSorte,Fine,RetRit1,QuantitaNumeriScelti,aRuoteSel,RuoteSelezionate,RetRitMax,RetIncrRitMax,RetFreq,Inizio
Dim ColTot

'Script by lotto_tom75

'Analizzatore quantità di ritardi voluti by formazioni desiderate presenti in file txt (con valori intervallati da carattere "." ).

'Lo Script analizza le formazioni desiderate presenti all'interno di un proprio file txt per le sorti volute e
'sulla ruota voluta. Analizzandone la quantità di ritardi di proprio interesse potendone quindi cambiare quella immessa di default.

'NESSUNA CERTEZZA SOLO (poca) PROBABILITA' - NON SI GARANISCE IN NESSUN MODO ALCUNA VINCITA
'IL GIOCO E' VIETATO AI MINORI DI ANNI 18 E PUO' CAUSARE DIPENDENZA PATOLOGICA.
'GIOCARE SEMPRE CON MASSIMA MODERAZIONE E MASSIMO SENSO DI RESPONSABILITA'


Dim n,aRit,aruo(11),aretrit,v,Qr,r
ReDim aretrit(100),retIdEstr(100)

r = CInt(InputBox("SU CHE RUOTA DI RICERCA?",,1))
Qr = CInt(InputBox("Quanti ritardi vuoi cercare?",,9))

Dim Ini
Dim fin
Dim co
Dim sorte

Ini = EstrazioneFin - 1000
fin = EstrazioneFin

sorte = 1 'estratto
aruo(1) = r

Scrivi "  n°..  rit.  data estrazione"

Dim sfile


sfile = ScegliFile("c:\lunghette",".txt","lunghette.txt")    


Scrivi

Scrivi



Dim contatore

Call Messaggio("Lettura file di testo")
ReDim aRighe(0)
Call LeggiRigheFileDiTesto(sfile,aRighe)

For y = 0 To UBound(aRighe)
If aRighe(y) <> "" Then
ReDim aNum(0)




Call SplitByChar("." & aRighe(y),".",aNum)

contatore = contatore + 1




Dim Diff


co = 0


Call ElencoRitardiTurbo(aNum,aruo,sorte,Ini,fin,aretrit,retIdEstr)

For v = UBound(aretrit) To 1 Step - 1
co = co + 1



Call Scrivi(SiglaRuota(r) & " " & StringaNumeri(aNum) & " " & FormatSpace(aretrit(v),3,1) & " Data estrazione: " & DataEstrazione(retIdEstr(v - 1)))



If co = Qr Then Exit For
Next
Scrivi " . . . . . . . . . . . . .  "

Scrivi "data estrazione fine archivio " & DataEstrazione(EstrazioneFin)



Call AvanzamentoElab(0,UBound(aRighe),contatore)



If ScriptInterrotto Then Exit For



End If
Next


End Sub

PS: Ovviamente è migliorabile in ogni sua parte per chi volesse "potenziarlo" in qualche modo ;)
 
Ultima modifica:
"Analizzatore quantità di ritardi voluti by formazioni desiderate presenti in file txt (con valori intervallati da carattere "." )."

Ciao LOTTOTOM , bravo e complimenti per le tue idee e script , approfondimenti graditi e che condivido , se potessi scegliere ti vorrei volentieri nella mia squadra;)..... chiedo il tuo aiuto , come recuperi il file di testo, adatto?... hai anche uno script, che ti dà l'elenco formattato con i puntini di alcune formazioni interessanti o determinate da precisi requisiti?

"UNO STRUMENTO POCO UTILIZZATO"
colgo l'occasione , visto che siamo in tema , di chiedere delucidazioni in merito ad una funzione su SPAZIOMETRIA nata dalla collaborazione tra Luigi e Rubino, "grafico su dati analist" il quale funziona anch'esso con un elenco in file .txt ... non sono mai riuscito ad utilizzarlo , qualcuno ha dei suggerimenti, in merito?... ad esempio le "formazioni ordinate" su Visual 5 o 7 free o su L8 possono essere prese ad oggetto e se si , come?... se non vi scoccia anche i "passagini" visto i risultati fin'ora raggiunti....
 
vincenzo4221;n2065981 ha scritto:
"Analizzatore quantità di ritardi voluti by formazioni desiderate presenti in file txt (con valori intervallati da carattere "." )."

Ciao LOTTOTOM , bravo e complimenti per le tue idee e script , approfondimenti graditi e che condivido , se potessi scegliere ti vorrei volentieri nella mia squadra;)..... chiedo il tuo aiuto , come recuperi il file di testo, adatto?... hai anche uno script, che ti dà l'elenco formattato con i puntini di alcune formazioni interessanti o determinate da precisi requisiti?

"UNO STRUMENTO POCO UTILIZZATO"
colgo l'occasione , visto che siamo in tema , di chiedere delucidazioni in merito ad una funzione su SPAZIOMETRIA nata dalla collaborazione tra Luigi e Rubino, "grafico su dati analist" il quale funziona anch'esso con un elenco in file .txt ... non sono mai riuscito ad utilizzarlo , qualcuno ha dei suggerimenti, in merito?... ad esempio le "formazioni ordinate" su Visual 5 o 7 free o su L8 possono essere prese ad oggetto e se si , come?... se non vi scoccia anche i "passagini" visto i risultati fin'ora raggiunti....
Clicca per espandere...

Ciao vincenzo, grazie per i complimenti :) Per quanto riguarda i files che si possono utilizzare sono appunto tutti quelli in formato txt che presentino formazioni (casuali o doc) della stessa classe ovvero numero di elementi. Es. solo coppie (i 4005 ambi) , solo terzine (i 117480 terni o le terzine simmetriche ad esempio) , solo 4ine , solo 5ine ecc... Oppure ancora più specificatamente potrebbe risultare utile analizzando formazioni con diversa G di presenza per sorte analizzata. Es. 3ine G2 ecc... L'importante, a meno di non modificare semplicemente il carattere separatore all'interno del codice in uno diversamente desiderato, è di intervallare i singoli elementi delle formazioni della classe decisa con il carattere punto "." . Altrimenti lo script non riuscirà a "splittare" e ad analizzare i singoli elementi delle diverse formazioni, le quali ovviamente dovranno essere nel file txt una sotto l'altra come puoi vedere dall'esempio di inizio thread ;)
 
Ultima modifica:
lotto_tom75 sarebbe possibile cambiare il colore dell' uscita quando la formazione in questione ha superato un certo valore ad esempio 10 .

Ciao Eugenio
 
genios;n2066132 ha scritto:
lotto_tom75 sarebbe possibile cambiare il colore dell' uscita quando la formazione in questione ha superato un certo valore ad esempio 10 .

Ciao Eugenio
Clicca per espandere...

Certo che lo è! :cool:

Ti basta aggiungere prima della riga di codice che riporta la dicitura Call Scrivi...

questo pezzo di codice "condizionale 'cromatico' " :p


Codice: 
If(aretrit(v) >= 10) Then

ColoreTesto 2

Call Scrivi(SiglaRuota(r) & " " & StringaNumeri(aNum) & " " & FormatSpace(aretrit(v),3,1) & " Data estrazione: " & DataEstrazione(retIdEstr(v - 1)))

Else

ColoreTesto 0

Poi ovviamente al posto del valore "limite" 10 puoi mettere quello che ritieni più indicato per ogni tua singola analisi ;)


Fammi sapere se era questo che intendevi!


Ciao :)
 
Ultima modifica:
genios;n2066203 ha scritto:
Si è quello che intendevo ma mi da errore .

Ciao Eugenio
Clicca per espandere...

:eek:

A me non da errore :confused:

Ad ogni modo prova questo cambiando ovviamente i valori dove vuoi tipo sorte, valore limite (x la scritta in rosso...) e il carattere di separazione elementi delle formazioni.

Codice: 
Option Explicit
Sub Main


Dim k,y
Dim Classe
Dim aCol
ReDim aNum(90)
Dim i
Dim nSorte,Fine,RetRit1,QuantitaNumeriScelti,aRuoteSel,RuoteSelezionate,RetRitMax,RetIncrRitMax,RetFreq,Inizio
Dim ColTot

'Script by lotto_tom75

'Analizzatore ritardi by formazioni desiderate presenti in file txt (con valori intervalati da carattere "." ).

'Lo Script analizza le formazioni desiderate presenti all'interno di un proprio file txt per le sorti volute e
'sulla ruota voluta. Analizzandone la quantità di ritardi di proprio interesse potendone quindi cambiare quella immessa di default.

'NESSUNA CERTEZZA SOLO (poca) PROBABILITA' - NON SI GARANISCE IN NESSUN MODO ALCUNA VINCITA
'IL GIOCO E' VIETATO AI MINORI DI ANNI 18 E PUO' CAUSARE DIPENDENZA PATOLOGICA.
'GIOCARE SEMPRE CON MASSIMA MODERAZIONE E MASSIMO SENSO DI RESPONSABILITA'


Dim n,aRit,aruo(11),aretrit,v,Qr,r
ReDim aretrit(100),retIdEstr(100)

r = CInt(InputBox("SU CHE RUOTA DI RICERCA?",,5))
Qr = CInt(InputBox("Quanti ritardi vuoi cercare?",,18))

Dim Ini
Dim fin
Dim co
Dim sorte

Ini = EstrazioneFin - 1000
fin = EstrazioneFin

sorte = 2 'estratto
aruo(1) = r

Scrivi "  n°..  rit.  data estrazione"

Dim sfile


sfile = ScegliFile("c:\lunghette",".txt","lunghette.txt")    


Scrivi

Scrivi



Dim contatore

Call Messaggio("Lettura file di testo")
ReDim aRighe(0)
Call LeggiRigheFileDiTesto(sfile,aRighe)

For y = 0 To UBound(aRighe)
If aRighe(y) <> "" Then
ReDim aNum(0)




Call SplitByChar("." & aRighe(y),".",aNum)

contatore = contatore + 1




Dim Diff


co = 0


Call ElencoRitardiTurbo(aNum,aruo,sorte,Ini,fin,aretrit,retIdEstr)

For v = UBound(aretrit) To 1 Step - 1
co = co + 1


If(aretrit(v) >= 10) Then

ColoreTesto 2

Call Scrivi(SiglaRuota(r) & " " & StringaNumeri(aNum) & " " & FormatSpace(aretrit(v),3,1) & " Data estrazione: " & DataEstrazione(retIdEstr(v - 1)))

Else

ColoreTesto 0

Call Scrivi(SiglaRuota(r) & " " & StringaNumeri(aNum) & " " & FormatSpace(aretrit(v),3,1) & " Data estrazione: " & DataEstrazione(retIdEstr(v - 1)))

End If

If co = Qr Then Exit For
Next
Scrivi " . . . . . . . . . . . . .  "

Scrivi "data estrazione fine archivio " & DataEstrazione(EstrazioneFin)



Call AvanzamentoElab(0,UBound(aRighe),contatore)


If ScriptInterrotto Then Exit For



End If
Next


End Sub


Ciao :)
 
Ultima modifica:
lotto-tom75 se ho un file di testo di numeri composto da 1 colonna e 10 righe (o molte di più ) esempio :


23
1
34
12
25
54
7
9
10
23

è possibile fare la somma dei numeri a righe di 4 scalando poi di 1 riga e sommare le 4 righe successive e cosi via . esempio :

23
1
34
12
somma 60

1
34
12
25
somma 72

e cosi via fino ad arrivare alle ultime 4 righe composte da

7
9
10
23

somma 49

ciao eugenio
 
Ultima modifica:
genios;n2066339 ha scritto:
lotto-tom75 se ho un file di testo di numeri composto da 1 colonna e 10 righe (o molte di più ) esempio :


23
1
34
12
25
54
7
9
10
23

è possibile fare la somma dei numeri a righe di 4 scalando poi di 1 riga e sommare le 4 righe successive e cosi via . esempio :

23
1
34
12
somma 60

1
34
12
25
somma 72

e cosi via fino ad arrivare alle ultime 4 righe composte da

7
9
10
23

somma 49

ciao eugenio
Clicca per espandere...

Questa volta Eugenio purtroppo non mi viene nulla in mente per risolvere questa tua nuova esigenza. Almeno per adesso... :( :) Ciao
 
lotto_tom75 comunque grazie . Provo a formulare la richiesta all' interno del forum .

Ciao Eugenio
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 28 marzo 2026
    Bari
    53
    04
    01
    11
    09
    Cagliari
    67
    19
    47
    35
    64
    Firenze
    13
    48
    58
    39
    15
    Genova
    52
    87
    51
    79
    67
    Milano
    07
    79
    84
    28
    37
    Napoli
    26
    90
    68
    82
    67
    Palermo
    38
    57
    65
    20
    56
    Roma
    81
    66
    45
    53
    08
    Torino
    29
    47
    55
    78
    71
    Venezia
    07
    29
    76
    14
    15
    Nazionale
    17
    10
    21
    29
    15
    Estrazione Simbolotto
    Firenze
    02
    38
    33
    11
    39
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto