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
    martedì 07 ottobre 2025
    Bari
    22
    79
    42
    33
    02
    Cagliari
    06
    81
    69
    21
    73
    Firenze
    52
    15
    67
    03
    60
    Genova
    21
    76
    02
    23
    19
    Milano
    28
    35
    08
    53
    60
    Napoli
    05
    57
    14
    39
    43
    Palermo
    46
    35
    40
    64
    48
    Roma
    04
    80
    71
    23
    40
    Torino
    38
    53
    05
    78
    50
    Venezia
    90
    43
    01
    60
    02
    Nazionale
    02
    41
    72
    22
    31
    Estrazione Simbolotto
    18
    37
    07
    22
    09
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto