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

[lotto_tom75]

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à

 

[lotto_tom75]

Non importa + ragazzi/e...
Ce l'ho fatta a crearmelo da solo! Che soddisfazione! Colgo l'occasione per ringraziare ugualmente Luigi che sicuramente mi avrà trasmesso... "la soluzione" per via telepatica...



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

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

 

[vincenzo4221]

"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....

 

[lotto_tom75]

"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....

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

 

[genios]

Bravo . Ottimo script ottima spiegazione .

Ciao Eugenio

 

[lotto_tom75]

Bravo . Ottimo script ottima spiegazione .

Ciao Eugenio

Ciao Eugenio Grazie!

 

[genios]

lotto_tom75 sarebbe possibile cambiare il colore dell' uscita quando la formazione in questione ha superato un certo valore ad esempio 10 .

Ciao Eugenio

 

[lotto_tom75]

lotto_tom75 sarebbe possibile cambiare il colore dell' uscita quando la formazione in questione ha superato un certo valore ad esempio 10 .

Ciao Eugenio

Certo che lo è!

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

questo pezzo di codice "condizionale 'cromatico' "

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

 

[genios]

Si è quello che intendevo ma mi da errore .

Ciao Eugenio

 

[lotto_tom75]

Si è quello che intendevo ma mi da errore .

Ciao Eugenio

A me non da errore

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.

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

 

[genios]

Hai rgione ho copiato e incollto le tue righe di codice ma ho omesso end if .

Ciao Eugenio

 

[lotto_tom75]

Hai rgione ho copiato e incollto le tue righe di codice ma ho omesso end if .

Ciao Eugenio

Bene.

Felice che adesso ti funzioni!

Ciao

 

[genios]

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

 

[lotto_tom75]

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

Questa volta Eugenio purtroppo non mi viene nulla in mente per risolvere questa tua nuova esigenza. Almeno per adesso... Ciao

 

[genios]

lotto_tom75 comunque grazie . Provo a formulare la richiesta all' interno del forum .

Ciao Eugenio