RP Ambi su Ruota, Sortita di almeno uno dei primi "n" ambi + ritardatari su ruota secc

« Older Newer »

Gam73

Posted on 30/5/2018, 08:38

Top Member

Group:: Administrator

Posts:: 1,719

Status:

Ciao a tutti,
sulla base dell'ottimo script fornito da Cinzia per la sortita a TUTTE di almeno un Ambo tra i primi "n" più in ritardo, ho sviluppato quello che segue, e che consente di verificare la sortita di almeno un ambo a ruota tra i primi "n" ambi più ritardati.

SPOILER (clicca per visualizzare)

Option Explicit
' storici evento sortita di almeno uno degl ambi più ritardatari a scelta (Cinzia) 23-12-2017
' modificato da GAM - 31-01-2018 - FUNZIONA con SPAZIOMETRIA
Dim fileout
Sub Main()
Dim n(2),ru(1),mt(4005,5)
Dim nrP,eini,efin,r,c,ce,riga,con,cs,es,i,j,fr,x
nrP = InputBox("Quante Posizioni? ",,3)
r= InputBox ("Su quale ruota vuoi effettuare la ricerca? Scrivi il numero ruota",,1)
eini = 9260
efin = EstrazioneFin
Call CreaFile("c:\RP_primi_" & nrP & "_Ambi_a_Ruota_su_"&SiglaRuota(r) & "_dal_" & eini & "_al_" & efin & ".txt")
fileout.writeline "Sortita di almeno uno dei primi " & nrP & " Ambi a RUOTA"
fileout.writeline "I dati riferiti al " & nrP + 1 & "° e " & nrP + 2 & "° Ambo sono solo di controllo per eventuali isocronismi"
fileout.writeline
For es = eini To efin
If ScriptInterrotto Then
Exit For
End If
c = 0
ru(1) = r
Scrivi
For i = 1 To 89
For j = i + 1 To 90
Messaggio(es & " - " & r & " - " & c)
n(1) = i
n(2) = j
fr = SerieFreq(es,es,n,ru,2)
c = c + 1
mt(c,1) = c
mt(c,2) = es
mt(c,3) = SiglaRuota(r) & " " & Format2(n(1)) & "." & Format2(n(2))
mt(c,4) = SerieRitardoTurbo(es - 5730,es - 1,n,ru,2)
mt(c,5) = fr
Next
Next
OrdinaMatrice mt,- 1,4
ce = 0
riga = FormattaStringa(mt(1,2),"0000")& " " & DataEstrazione(mt(1,2))
For x = 1 To nrP
If mt(x,5) > 0 Then
ce = ce + 1
riga = riga + " " & mt(x,3) & " STO " & FormattaStringa(mt(x,4),"0000")
Else
riga = riga + " " & mt(x,3) & " ATT " & FormattaStringa(mt(x,4),"0000")
End If
Next
riga = riga + " " & mt(nrP + 1,3) & " Rit " & FormattaStringa(mt(nrP + 1,4),"0000") & " " & mt(nrP + 2,3) & " Rit " & FormattaStringa(mt(nrP + 2,4),"0000")
con = con + 1
If ce > 0 Then
cs = cs + 1
If mt(nrP,4) <> mt(nrP + 1,4) Then
fileout.writeline riga & " RP " & FormattaStringa(con,"000") ' ELIMINA l'eventualità di isoritardi
Else
fileout.writeline riga & " RP Iso " & FormattaStringa(con,"000") ' ELIMINA l'eventualità di isoritardi
End If
riga = ""
con = 0
Else
If es = efin Then
fileout.writeline riga & " RP " & FormattaStringa(con,"0000") & " ***"
' eliminare con l'apice a inizio riga per avere solo la sintesi della ricerca
riga = ""
Else
'fileout.writeline riga
' eliminare con l'apice a inizio riga per avere solo la sintesi della ricerca
riga = ""
End If
End If
Next
CreateObject("WScript.Shell").Run "notepad.exe c:\RP_primi_" & nrP & "_Ambi_a_Ruota_su_"&SiglaRuota(r) & "_dal_" & eini & "_al_" & efin & ".txt"
End Sub
Sub CreaFile(NomefileOut)
Dim OggFile,fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile(NomefileOut)
Set OggFile = fso.GetFile(NomefileOut)
Set fileout = OggFile.OpenAsTextStream(2)
End Sub

New Mat

Posted on 15/1/2019, 13:57

Top Member

Group:: Member

Posts:: 3,910

Status:

Ciao Gam,
per questo motivo non lo trovavo sul mio L8+: funziona solo con Spaziometria.
Se si potesse adattare anche ad L8+ lo potrei utilizzare anch'io.
Ciao a tutti,

Matteo

Gam73

Posted on 18/1/2019, 07:07

Top Member

Group:: Administrator

Posts:: 1,719

Status:

Ciao Matteo,
purtroppo non ho più L8 sul PC, o meglio, è su un altro PC ormai in disuso.

A memoria, se togli:

Option Explicit

If ScriptInterrotto Then
Exit For
End If

SerieRitardoTurbo la sostituisci e adegui nei parametri con SerieRitardo
FormattStringa la sostituisci e adegui nei parametri con FormatSpace

Dovrebbe funzionare, altrimenti posta qui l'errore che ti restituisce.
Saluti

*Skorpio*

Posted on 19/1/2019, 05:39

Top Member

Group:: Member

Posts:: 3,848

Status:

Buongiorno Gam, ho provato a far girare lo script per i 4 ambi, ma al termine (diverse ore) mi ha restituito questo messaggio:

Impossibile trovare il file c:\ RP_primi_4_ambi_a_Ruota_su_BA_dal_9260_al_9577.txt.
Creare un nuovo file?

Saluti, Claudio.

Gam73

Posted on 19/1/2019, 09:38

Top Member

Group:: Administrator

Posts:: 1,719

Status:

Ciao Skorpio,

Di seguito lo script per la ricerca su ruota che dovrebbe darti i risultati che cerchi.
E' per SpazioMetria e quindi devi modificare qualcosa che comunque ti segno nel listato.

SPOILER (clicca per visualizzare)

Option Explicit
' Storici evento sortita di almeno uno degl ambi più ritardatari su ruota fissa (Cinzia)23-12-2017
' modificato da GAM - 19-01-2019 - FUNZIONA con SPAZIOMETRIA

Dim fileout ' togliere se si usa L8

Sub Main()
Dim n(2),ru(1),mt(4005,5)
Dim nrP,eini,efin,r,c,ce,riga,con,cs,es,i,j,fr,x,sr

nrP = 3'InputBox("Quante Posizioni? ",,3)

eini = 9260
efin = EstrazioneFin

r = 1 ''InputBox("Su quale ruota vuoi fare la ricerca? ",,1)
sr= SiglaRuota(r)

Call CreaFile("c:\RP_primi_" & nrP & "_Ambi_su_" & sr &"_dal_" & eini & "_al_" & efin & ".txt")
fileout.writeline "Sortita di almeno uno dei primi " & nrP & " Ambi su " & NomeRuota(r)
fileout.writeline "I dati riferiti al " & nrP + 1 & "° e " & nrP + 2 & "° Ambo sono solo di controllo"
fileout.writeline

ru(1) = r

For es = eini To efin
If ScriptInterrotto Then ' togliere se si usa L8
Exit For ' togliere se si usa L8
End If ' togliere se si usa L8
c = 0
For i = 1 To 89
For j = i + 1 To 90
Messaggio(es & " - " & r & " - " & c)
n(1) = i
n(2) = j
fr = SerieFreq(es,es,n,ru,2)
c = c + 1
mt(c,1) = c
mt(c,2) = es
mt(c,3) = SiglaRuota(r) & " " & Format2(n(1)) & "." & Format2(n(2))
mt(c,4) = SerieRitardoTurbo(es - 5730,es - 1,n,ru,2) ' sostituire con funzione di L8 togliere se si usa L8
mt(c,5) = fr
Next
Next
OrdinaMatrice mt,- 1,4
ce = 0
riga = FormattaStringa(mt(1,2),"0000") & " " & DataEstrazione(mt(1,2))
For x = 1 To nrP
If mt(x,5) > 0 Then
ce = ce + 1
riga = riga + " " & mt(x,3) & " STO " & FormattaStringa(mt(x,4),"0000")
Else
riga = riga + " " & mt(x,3) & " ATT " & FormattaStringa(mt(x,4),"0000")
End If
Next
riga = riga + " " & mt(nrP + 1,3) & " Rit " & FormattaStringa(mt(nrP + 1,4),"0000") & " " & mt(nrP + 2,3) & " Rit " & FormattaStringa(mt(nrP + 2,4),"0000")
con = con + 1
If ce > 0 Then
cs = cs + 1
If mt(nrP,4) <> mt(nrP + 1,4) Then
fileout.writeline riga & " RP " & FormattaStringa(con,"0000") ' ELIMINA l'eventualità di isoritardi
Else
fileout.writeline riga & " RP Iso" & FormattaStringa(con,"0000") ' ELIMINA l'eventualità di isoritardi
End If
riga = ""
con = 0
Else
If es = efin Then
fileout.writeline riga & " RP " & FormattaStringa(con,"0000") & " ***"
' eliminare con l'apice a inizio riga per avere solo la sintesi della ricerca
riga = ""
Else
'fileout.writeline riga
' eliminare con l'apice a inizio riga per avere solo la sintesi della ricerca
riga = ""
End If
End If

Next
CreateObject("WScript.Shell").Run "notepad.exe c:\RP_primi_" & nrP & "_Ambi_su_" & sr &"_dal_" & eini & "_al_" & efin & ".txt"

End Sub
Sub CreaFile(NomefileOut)
Dim OggFile,fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile(NomefileOut)
Set OggFile = fso.GetFile(NomefileOut)
Set fileout = OggFile.OpenAsTextStream(2)
End Sub

*Skorpio*

Posted on 19/1/2019, 10:43

Top Member

Group:: Member

Posts:: 3,848

Status:

Grazie Gam per la tua disponibilità e soprattutto per la pazienza che usi nei miei confronti.
Purtroppo a me non "gira" nulla, nel senso che la nuova versione dello script inserito - che dovrebbe essere uguale alla precedente se non vedo male - con gli opportuni accorgimenti:

Option Explicit - TOGLIERE
Dim fileout TOGLIERE
If ScriptInterrotto Then - TOGLIERE
Exit For - TOGLIERE
End If - TOGLIERE

SerieRitardoTurbo SOSTITUIRE con SerieRitardo
FormattStringa SOSTITUIRE con FormatSpace

...così come fatto in precedenza, ora mi restituisce questo errore. "ERRORE 500: variabile non definita: 'fileout' (riga 85)

Set fileout = OggFile.OpenAsTextStream (2)

Incredibile...se faccio invece girare lo script precedente con le stesse modifiche, tutto sembra funzionare - tranne poi girare per ore e poi aprendo la pagina Text vuota segnalare :

Impossibile trovare il file c:\ RP_primi_4_ambi_a_Ruota_su_BA_dal_9260_al_9577.txt.
Creare un nuovo file?

o comunque il riferimento alla ricerca effettuata.
Eppure a me sembrano gli stessi identici comandi, nè uno di meno nè uno di più :unsure:

Saluti, Claudio.

Edited by *Skorpio* - 19/1/2019, 11:09

Gam73

Posted on 19/1/2019, 11:08

Top Member

Group:: Administrator

Posts:: 1,719

Status:

Ciao,
allora, in effetti Dim Fileout è da lasciare.

In ogni caso qui sotto c'è lo script con l'output diretto e no su file testo.
Sarà un po' più lento....Aggiusta anche i FormatSpace al posto dei FormattaStringa e credo funzioni.
Scusami ma non avendo L8 posso solo procedere così :-)

SPOILER (clicca per visualizzare)

' Storici evento sortita di almeno uno degl ambi più ritardatari su ruota fissa (Cinzia)23-12-2017
' modificato da GAM - 19-01-2019 - FUNZIONA con SPAZIOMETRIA

Sub Main()
Dim n(2),ru(1),mt(4005,5)
Dim nrP,eini,efin,r,c,ce,riga,con,cs,es,i,j,fr,x,sr

nrP = 3'InputBox("Quante Posizioni? ",,3)

eini = 9260
efin = EstrazioneFin

r = 1 ''InputBox("Su quale ruota vuoi fare la ricerca? ",,1)
sr= SiglaRuota(r)

ru(1) = r

For es = eini To efin

c = 0
For i = 1 To 89
For j = i + 1 To 90
Messaggio(es & " - " & r & " - " & c)
n(1) = i
n(2) = j
fr = SerieFreq(es,es,n,ru,2)
c = c + 1
mt(c,1) = c
mt(c,2) = es
mt(c,3) = SiglaRuota(r) & " " & Format2(n(1)) & "." & Format2(n(2))
mt(c,4) = SerieRitardoTurbo(es - 5730,es - 1,n,ru,2) ' sostituire con funzione di L8 togliere se si usa L8
mt(c,5) = fr
Next
Next
OrdinaMatrice mt,- 1,4
ce = 0
riga = FormattaStringa(mt(1,2),"0000") & " " & DataEstrazione(mt(1,2))
For x = 1 To nrP
If mt(x,5) > 0 Then
ce = ce + 1
riga = riga + " " & mt(x,3) & " STO " & FormattaStringa(mt(x,4),"0000")
Else
riga = riga + " " & mt(x,3) & " ATT " & FormattaStringa(mt(x,4),"0000")
End If
Next
riga = riga + " " & mt(nrP + 1,3) & " Rit " & FormattaStringa(mt(nrP + 1,4),"0000") & " " & mt(nrP + 2,3) & " Rit " & FormattaStringa(mt(nrP + 2,4),"0000")
con = con + 1
If ce > 0 Then
cs = cs + 1
If mt(nrP,4) <> mt(nrP + 1,4) Then
scrivi riga & " RP " & FormattaStringa(con,"0000"),0 ' ELIMINA l'eventualità di isoritardi
Else
scrivi riga & " RP Iso" & FormattaStringa(con,"0000"),0 ' ELIMINA l'eventualità di isoritardi
End If
riga = ""
con = 0
Else
If es = efin Then
'scrivi riga & " RP " & FormattaStringa(con,"0000") & " ***"
' eliminare con l'apice a inizio riga per avere solo la sintesi della ricerca
riga = ""
Else
'scrivi riga
' eliminare con l'apice a inizio riga per avere solo la sintesi della ricerca
riga = ""
End If
End If

Next

End Sub

*Skorpio*

Posted on 19/1/2019, 11:29

Top Member

Group:: Member

Posts:: 3,848

Status:

Grazie, troppo gentile.
In effetti con Dim fileout riparte, ma poi non riesce a costruire il file Txt.
Ora sto provando con l'ultima versione...mi auguro non mi occupi il programma per tutto il giorno :o:

Ti farò sapere.

Saluti, Claudio.

New Mat

Posted on 19/1/2019, 17:25

Top Member

Group:: Member

Posts:: 3,910

Status:

Ciao a tutti,
ci ho provato ma poi ci ho rinunciato, ciao

Matteo

J-Gio91

Posted on 19/1/2019, 17:41

Top Member

Group:: Member

Posts:: 1,602

Status:

Buona Weekend a tutte/i..

Matteo ...

... ma con spaziometria non hai ancora risolto ?

*Skorpio*

Posted on 19/1/2019, 17:42

Top Member

Group:: Member

Posts:: 3,848

Status:

Il mio tentativo con la nuova versione è andato a buon fine....a metà :huh:

Dopo 5 ore il listato mi ha restituito la formazione richiesta - passaggio dopo passaggio - ma senza segnalarmi il valore del "RP" !!!
Devo dire che ho esaminato i 10 ambi su un periodo di 2500 estr. quindi niente da dire per il tempo impiegato, ma manca il risultato finale, che ora mi devo calcolare manualmente.
queste le prime righe:

21.03.2001 Ge 08.89 ATT Ge 17.84 ATT Ge 60.88 ATT Ge 03.64 STO Ge 15.89 ATT Ge 23.61 ATT Ge 32.76 ATT Ge 01.39 ATT Ge 54.55 ATT Ge 61.63 ATT Ge 08.16 Rit Ge 38.48 Rit RP
24.03.2001 Ge 08.89 ATT Ge 17.84 ATT Ge 60.88 ATT Ge 15.89 ATT Ge 23.61 ATT Ge 32.76 ATT Ge 01.39 ATT Ge 54.55 ATT Ge 61.63 ATT Ge 08.16 STO Ge 38.48 Rit Ge 19.79 Rit RP
01.08.2001 Ge 08.89 ATT Ge 17.84 ATT Ge 60.88 ATT Ge 15.89 ATT Ge 23.61 ATT Ge 32.76 ATT Ge 01.39 ATT Ge 54.55 ATT Ge 61.63 STO Ge 38.48 ATT Ge 19.79 Rit Ge 13.25 Rit RP
14.11.2001 Ge 08.89 STO Ge 17.84 ATT Ge 60.88 ATT Ge 15.89 ATT Ge 23.61 ATT Ge 32.76 ATT Ge 01.39 ATT Ge 54.55 ATT Ge 38.48 ATT Ge 19.79 ATT Ge 13.25 Rit Ge 04.80 Rit RP
15.03.2003 Ge 17.84 STO Ge 60.88 ATT Ge 15.89 ATT Ge 23.61 ATT Ge 32.76 ATT Ge 01.39 ATT Ge 54.55 ATT Ge 38.48 ATT Ge 19.79 ATT Ge 13.25 ATT Ge 04.80 Rit Ge 23.26 Rit RP

Dove sta l'errore? Sempre che ci sia...
Comunque , per ora, è già un passo avanti...lento ma fruttifero ^_^

Saluti, Claudio.

New Mat

Posted on 19/1/2019, 18:09

Top Member

Group:: Member

Posts:: 3,910

Status:

Ciao Giorgio,
non ho ancora risolto, perchè non ci ho neanche provato.
Sono troppi gli argomenti ed anche i programmi attualmente in uso che non riesco neanche a tenerli aggiornati.
A distanza di mesi o di anni torno su certi argomenti e mi accorgo che sono tutti da aggiornare, a volte non ricordo neanche come ho fatto a ricavare certi dati.
Ora c'è anche il Million e devo ancora una volta ammettere che L8+ è sempre il miglior programma di base per tutti gli studi soprattutto per la sua funzione basilare di importare ed esportare estrazioni ed archivi con estrema facilità.

Quando per la prima volta importai il primo archivio dinamico sul mio pc nacque il 2° L8+ con archivi dinamici di 1° livello e non avevo alcuna voglia di andare oltre.

Oggi sul mio pc ci sono ben 22 versioni di L8+ adattato ai vari archivi ed ai vari studi possibili; in pratica non ho più il tempo di aggiornarli.

Senza ovviamente contare poi tutti gli altri programmi che uso giornalmente ed il tempo a disposizione è sempre più ridotto.

Negli ultimi tempi uso molto di più Vincer, che poi fa delle cose che non fa nessuno, a volte incomprensibili anche per me.
Figurati se penso a Spaziometria!

Ciao,

Matteo

Ciao Claudio,
anche a me non dava i dati del ritardo RP, per questo ci ho rinunciato, ciao

Matteo

jp4

Posted on 19/1/2019, 18:55

Top Member

Group:: Member

Posts:: 2,176

Status:

CIAO, Anche a me dava lo stesso errore.

Impossibile trovare il file c:\ RP_primi_3_ambi_a_Ruota_su_BA_dal_9260_al_9577.txt.
Creare un nuovo file?

In Spaziometria ho risolto così:
Prima di far partire lo script ho creato il file di destinazione, cioe'di testo (vuoto) (con estensione txt), in C:\LOTTO, con il nome: RP_primi ecc...
Nello script ho cambiato il percorso (aggiungendo LOTTO) in due righe: quelle che iniziano con Call CreaFile e con CreateObject perché non mi permetteva di crearlo in C

questo il risultato e c'è anche l'RP:

Sortita di almeno uno dei primi 3 Ambi a RUOTA
I dati riferiti al 4° e 5° Ambo sono solo di controllo per eventuali isocronismi

9291 16.03.2017 BA 62.89 ATT 3772 BA 24.67 STO 3161 BA 06.45 ATT 3132 BA 50.76 Rit 3032 BA 57.79 Rit 2644 RP 032
9434 13.02.2018 BA 62.89 ATT 3915 BA 06.45 ATT 3275 BA 50.76 STO 3175 BA 57.79 Rit 2787 BA 15.46 Rit 2537 RP 143

Edited by jp4 - 19/1/2019, 19:27

*Skorpio*

Posted on 19/1/2019, 19:23

Top Member

Group:: Member

Posts:: 3,848

Status:

Grazie jp4 della tua risposta. Purtroppo io non uso Spaziometria ma Lottodesk o comunque L8+ e quindi da questo punto di vista non posso elaborare i dati con lo script che gira su Spaziometria.
Qualcosa comunque riesco ad elaborare, un pò alla volta, con pazienza.
Saluti, Claudio.

J-Gio91

Posted on 19/1/2019, 19:25

Top Member

Group:: Member

Posts:: 1,602

Status:

Ciao Matteo.

Si capisco ...

io non seguo nessun altro gioco e già con il solo lotto ...

non c'è tempo per seguire che una piccola parte di quanto esiste.

Per me oggi Spaziometria è meglio di L8 in molte cose.

Ma giustamente come dici L8 è ancor oggi insuperabile in molte ricerche.

22 replies since 30/5/2018, 08:38 376 views