Richiesta modifica script...

miki55 · 24 Giugno 2022

CHIEDO AGLI AMICI DEL "CED" SE FOSSE POSSIBILE MODIFICARE QUESTO SCRIPT....
...da Spaziometria per passarlo su L8.
Grazie anticipate a chi mi fa questa cortesia...

Option Explicit

Sub Main()
' Lo script scandaglia l'archivio per rilevare la presenza di un estratto Isocrono su coppia di ruote in estrazioni continue
' Se tale condizione è rilevata lo script calcola il ritardo raggiunto dall'estratto su entrambe le ruote, il Ritardo Minimo, il Ritardo di Livello, ovvero il ritardo dell'Ambata Residua
' E' possibile impostare un Ritardo Minimo di ricerca (RitMinRic) per restringere i casi in gioco.

Dim rr1(1),rr2(1),rit1(1),rit2(1),Num(1),Min,RitMinRic
Dim Ini,Fin,LivArch
Dim es,rt,a,b,a1,b1,r1,r2,p1,p2,CasoATT,CasoParzATT

Ini = 9700'EstrazioneFin - 1000
Fin = EstrazioneFin

RitMinRic = 18

For LivArch = 0 To 0
For es = Ini To Fin - 1

If ScriptInterrotto Then Exit For
Messaggio(es & " - L" & LivArch)
AvanzamentoElab Ini,Fin,es

For r1 = 1 To 10
For r2 = r1 + 1 To 12 ' se metti apice ed elimini ciclo For (incluso il next a fine listato) togli da qui sotto, solo casi su ruote contigue
'r2= r1 + 1
If r2 = 11 Then r2 = 12

For p1 = 1 To 5
For p2 = 1 To 5

a = Estratto(es,r1,p1,LivArch)
b = Estratto(es + 1,r2,p2,LivArch)

a1 = Estratto(es + 1,r1,p1,LivArch)
b1 = Estratto(es,r2,p2,LivArch)

If a = b Then

Num(1) = a
rr1(1) = r1
rr2(1) = r2
rit1(1) = SeriePrima(es + 2,EstrazioneFin,Num,rr1,1,,,LivArch)
rit2(1) = SeriePrima(es + 2,EstrazioneFin,Num,rr2,1,,,LivArch)

If es < Fin - 1 Then

If rit1(1) > 0 And rit2(1) = 0 Then
ColoreTesto(1)
rit1(1) = rit1(1) - es - 1
rit2(1) = EstrazioneFin - es
Min = Minimo(rit1(1),rit2(1))
If Min > RitMinRic Then
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1,,,LivArch) & _
" " & FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r2) & " " & StringaEstratti(es + 1,r2,,,LivArch) & _
" --> " & Format2(a) & " su " & SiglaRuota(r1) & " in " & p1 & " su " & SiglaRuota(r2) & " in " & p2 & _
" -> StoR1 " & FormattaStringa(rit1(1),"000") & " AttR2 " & FormattaStringa(rit2(1),"000") & " StoMIN " & FormattaStringa(Minimo(rit1(1),rit2(1)),"000") & _
" RdLAtt " & FormattaStringa(Massimo(rit1(1),rit2(1)) - Minimo(rit1(1),rit2(1)),"000") & " L" & LivArch & " *"
ColoreTesto(0)
CasoParzATT =CasoParzATT +1
End If
Else
If rit1(1) = 0 And rit2(1) > 0 Then
ColoreTesto(1)
rit2(1) = rit2(1) - es - 1
rit1(1) = EstrazioneFin - es
Min = Minimo(rit1(1),rit2(1))
If Min > RitMinRic Then
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1,,,LivArch) & _
" " & FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r2) & " " & StringaEstratti(es + 1,r2,,,LivArch) & _
" --> " & Format2(a) & " su " & SiglaRuota(r1) & " in " & p1 & " su " & SiglaRuota(r2) & " in " & p2 & _
" -> AttR1 " & FormattaStringa(rit1(1),"000") & " StoR2 " & FormattaStringa(rit2(1),"000") & " StoMIN " & FormattaStringa(Minimo(rit1(1),rit2(1)),"000") & _
" RdLAtt " & FormattaStringa(Massimo(rit1(1),rit2(1)) - Minimo(rit1(1),rit2(1)),"000") & " L" & LivArch & " *"
ColoreTesto(0)
CasoParzATT =CasoParzATT +1
End If
Else
If rit1(1) = 0 And rit2(1) = 0 Then
ColoreTesto(2)
rit2(1) = EstrazioneFin - es
rit1(1) = EstrazioneFin - es
Min = Minimo(rit1(1),rit2(1))
If Min > RitMinRic Then
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1,,,LivArch) & _
" " & FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r2) & " " & StringaEstratti(es + 1,r2,,,LivArch) & _
" --> " & Format2(a) & " su " & SiglaRuota(r1) & " in " & p1 & " su " & SiglaRuota(r2) & " in " & p2 & _
" -> AttR1 " & FormattaStringa(rit1(1),"000") & " AttR2 " & FormattaStringa(rit2(1),"000") & " AttMIN " & FormattaStringa(Minimo(rit1(1),rit2(1)),"000") & _
" RdL___ 000 L" & LivArch & " ***"
ColoreTesto(0)
CasoATT = CasoATT+1
End If
End If
End If

End If
Else
ColoreTesto(2)
rit2(1) = EstrazioneFin - es
rit1(1) = EstrazioneFin - es
Min = Minimo(rit1(1),rit2(1))
If Min > RitMinRic Then
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1,,,LivArch) & _
" " & FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r2) & " " & StringaEstratti(es + 1,r2,,,LivArch) & _
" --> " & Format2(a) & " su " & SiglaRuota(r1) & " in " & p1 & " su " & SiglaRuota(r2) & " in " & p2 & _
" -> AttR1 " & FormattaStringa(rit1(1),"000") & " AttR2 " & FormattaStringa(rit2(1),"000") & " AttMIN " & FormattaStringa(Minimo(rit1(1),rit2(1)),"000") & _
" RdL___ 000 L" & LivArch & " ***"
ColoreTesto(0)
CasoATT = CasoATT + 1
End If
End If

Else
If a1 = b1 Then

Num(1) = a1
rr1(1) = r1
rr2(1) = r2
rit1(1) = SeriePrima(es + 2,EstrazioneFin,Num,rr1,1,,,LivArch)
rit2(1) = SeriePrima(es + 2,EstrazioneFin,Num,rr2,1,,,LivArch)

If es < Fin - 1 Then

If rit1(1) > 0 And rit2(1) = 0 Then
ColoreTesto(1)
rit1(1) = rit1(1) - es - 1
rit2(1) = EstrazioneFin - es
Min = Minimo(rit1(1),rit2(1))
If Min > RitMinRic Then
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2,,,LivArch) & _
" " & FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es + 1,r1,,,LivArch) & _
" --> " & Format2(a1) & " su " & SiglaRuota(r2) & " in " & p2 & " su " & SiglaRuota(r1) & " in " & p1 & _
" -> StoR1 " & FormattaStringa(rit1(1),"000") & " AttR2 " & FormattaStringa(rit2(1),"000") & " StoMIN " & FormattaStringa(Minimo(rit1(1),rit2(1)),"000") & _
" RdLAtt " & FormattaStringa(Massimo(rit1(1),rit2(1)) - Minimo(rit1(1),rit2(1)),"000") & " L" & LivArch & " *"
ColoreTesto(0)
CasoParzATT =CasoParzATT +1
End If
Else
If rit1(1) = 0 And rit2(1) > 0 Then
ColoreTesto(1)
rit2(1) = rit2(1) - es - 1
rit1(1) = EstrazioneFin - es
Min = Minimo(rit1(1),rit2(1))
If Min > RitMinRic Then
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2,,,LivArch) & _
" " & FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es + 1,r1,,,LivArch) & _
" --> " & Format2(a1) & " su " & SiglaRuota(r2) & " in " & p2 & " su " & SiglaRuota(r1) & " in " & p1 & _
" -> AttR1 " & FormattaStringa(rit1(1),"000") & " StoR2 " & FormattaStringa(rit2(1),"000") & " StoMIN " & FormattaStringa(Minimo(rit1(1),rit2(1)),"000") & _
" RdLAtt " & FormattaStringa(Massimo(rit1(1),rit2(1)) - Minimo(rit1(1),rit2(1)),"000") & " L" & LivArch & " *"
ColoreTesto(0)
CasoParzATT =CasoParzATT +1
End If
Else
If rit1(1) = 0 And rit2(1) = 0 Then
ColoreTesto(2)

rit2(1) = EstrazioneFin - es
rit1(1) = EstrazioneFin - es
Min = Minimo(rit1(1),rit2(1))
If Min > RitMinRic Then
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2,,,LivArch) & _
" " & FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es + 1,r1,,,LivArch) & _
" --> " & Format2(a1) & " su " & SiglaRuota(r2) & " in " & p2 & " su " & SiglaRuota(r1) & " in " & p1 & _
" -> AttR1 " & FormattaStringa(rit1(1),"000") & " AttR2 " & FormattaStringa(rit2(1),"000") & " AttMIN " & FormattaStringa(Minimo(rit1(1),rit2(1)),"000") & _
" RdL___ 000 L" & LivArch & " ***"
ColoreTesto(0)
CasoATT = CasoATT +1
End If
End If
End If

End If
Else
ColoreTesto(2)
rit2(1) = EstrazioneFin - es
rit1(1) = EstrazioneFin - es
Min = Minimo(rit1(1),rit2(1))
If Min > RitMinRic Then
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2,,,LivArch) & _
" " & FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es + 1,r1,,,LivArch) & _
" --> " & Format2(a1) & " su " & SiglaRuota(r2) & " in " & p2 & " su " & SiglaRuota(r1) & " in " & p1 & _
" -> AttR1 " & FormattaStringa(rit1(1),"000") & " AttR2 " & FormattaStringa(rit2(1),"000") & " AttMIN " & FormattaStringa(Minimo(rit1(1),rit2(1)),"000") & _
" RdL___ 000 L" & LivArch & " ***"
ColoreTesto(0)
CasoATT = CasoATT + 1
End If
End If

End If
End If
Next
Next
Next
Next ' da togliere per ruote contigue
Next
Next
Scrivi "Casi attuali dal " & DataEstrazione (Ini) & "[" &Ini &"] al " & DataEstrazione (Fin) & "[" &Fin &"] = " & CasoATT
Scrivi "Casi parziali attuali dal " & DataEstrazione (Ini) & "[" &Ini &"] al " & DataEstrazione (Fin) & "[" &Fin &"] = " & CasoParzATT

Scrivi TempoTrascorso
End Sub

miki55 · 25 Giugno 2022

Mike58 puoi darmi te una mano???

Mike58 · 25 Giugno 2022

Miki55, non avendo + L8 non potrei capire quale riga e quale codice vanno in conflitto.
dovresti o dirci lo riga in errore per capire il possibile codice in errore.
Sicuramente l'ultimo codice non esiste in L8.
Scrivi TempoTrascorso, basta remmarlo.
Sicuramente qualcun'altro possiede L8 e può tranquillamente aiutarti, oppure se metti gli errori si può vedere,
Secondo me le discordanze sono poche e fattibili.

Ciao

miki55 · 25 Giugno 2022

NON SO' SE è LA STESSA RIGA, MA ECCO L'ERRORE...

claudio8 · 25 Giugno 2022

In l8 mancano sia diverse funzioni che la possibilità di inserire dei parametri specifici anche in funzioni presenti su entrambi i software.
Ance io non ho l8 ed oltre a suggerirti di usare Spaziometria non saprei come aiutarti

Mike58 · 25 Giugno 2022

Ho visto... l'errore potrebbe essere sul codice seriePrima che magari non legge tutto il codice con tutti i parametri fino a LivArch.
togli il tipo di gioco tanto il tipo di gioco è di default = zero
rit1(1) = SeriePrima(es + 2,EstrazioneFin,Num,rr1,1)
rit2(1) = SeriePrima(es + 2,EstrazioneFin,Num,rr2,1)
sembra solo questo il codice incriminato.
prova fammi sapere.

Ciao

Mike58 · 25 Giugno 2022

claudio8 ha scritto:
In l8 mancano sia diverse funzioni che la possibilità di inserire dei parametri specifici anche in funzioni presenti su entrambi i software.
Ance io non ho l8 ed oltre a suggerirti di usare Spaziometria non saprei come aiutarti

Claudio... Miki55 aveva dei problemi ultimi ad installare spaziometria che non è riuscito a risolvere almeno facendo riferimento agli ultimi suoi post.. su questo argomento.
scusa era solo per dare valenza al tuo consiglio.

miki55 · 25 Giugno 2022

Dopo l'esclusione delle due righe, ecco l'altro errore....

Mike58 · 25 Giugno 2022

Lo stesso motivo di errore deve essere StringaEstratti(es,r1) senza le virgole e senza archivi (LivArch)
sia con r1 che con r2 oppure il FormattaStringa

pian pian si arriva, peccato che ci possiede l8 non interviene.

miki55 · 25 Giugno 2022

Ed ecco l'errore che mi dà, quando apro spaziometria...

Mike58 · 25 Giugno 2022

Purtroppo in questo ultimo caso non posso aiutarti.
Sembra mancare il componente di quel modulo, se vai su google con ricerca errore
Componente ActiveX 429 ci sono soluzione tra cui molte farlocche, vedi se leggendo trovi qualcosa di utile.

Mike58 · 25 Giugno 2022

Miki, installa questo programmino e fallo girare sembra ok per risolvere il problema errore 429 activeX.

MediaFire

File sharing and storage made simple

app.mediafire.com

joe · 25 Giugno 2022

Buona giornata a tutte/i.

Questo script contiene decine di cose da cambiare.

Mi è impossibile in questo momento perché non ho L8 su questo Pc.

Correggere "a naso" è poco utile.

Se poi girerà senza errori, sarà ancora abbastanza impegnativo controllare che produca gli stessi risultati.

Se non ci saranno altri ... la prossima settimana vedrò cosa riesco a fare.

Per Spaziometria, come ho scritto, e come si vede dalle immagini inviate è istallato e si avvia.

Poi si generano errori perché non ci sono i file o le cartelle o perché non ci si può accedere,

o perché i file e routine non sono registrati correttamente.

Quando si installa Spaziometria crea un file "Esito Installazione.log" consiglio di cercarlo e verificare,

voce per voce se c'è qualcosa di "non fatto" o concluso correttamente.

Domande: All'avvio di spaziometria si arriva aIla finestra principale del programma ?

Se si. In basso ci sono le estrazioni ed i limiti dell'archivio ?

Mike58 · 25 Giugno 2022

Miki, lascia stare il programmino poi dopo la scansione ti chiede la registrazione e attivazione.

Joe, se si arriva prima con i suggerimenti a naso bene , altrimenti vedi quando ne hai la possibilità.

Ciao

joe · 25 Giugno 2022

Ciao Mike.

Secondo me non sono compatibili:

If ScriptInterrotto Then Exit For

LivArch ... perciò

Estratto(es,r1,p1,LivArch)

SeriePrima(es + 2,EstrazioneFin,Num,rr1,1,,,LivArch) e simili

StringaEstratti(es,r1,,,LivArch) e simili

FormattaStringa(es,"0000") (ma non sono sicuro / ora sono > 10000)

Ramco · 25 Giugno 2022

Codice:

Option Explicit
'VERSIONE PULITA x LOTTODESK
Sub Main()
' Lo script scandaglia l'archivio per rilevare la presenza di un estratto Isocrono su coppia di ruote in estrazioni continue
' Se tale condizione è rilevata lo script calcola il ritardo raggiunto dall'estratto su entrambe le ruote, il Ritardo Minimo, il Ritardo di Livello, ovvero il ritardo dell'Ambata Residua
' E' possibile impostare un Ritardo Minimo di ricerca (RitMinRic) per restringere i casi in gioco.

Dim rr1(1),rr2(1),rit1(1),rit2(1),Num(1),Min,RitMinRic
Dim Ini,Fin,LivArch
Dim es,rt,a,b,a1,b1,r1,r2,p1,p2,CasoATT,CasoParzATT

Ini = 9700'EstrazioneFin - 1000
Fin = EstrazioneFin

RitMinRic = 18

For LivArch = 0 To 0
For es = Ini To Fin - 1

Messaggio(es & " - L" & LivArch)
AvanzamentoElab Ini,Fin,es

For r1 = 1 To 10
For r2 = r1 + 1 To 12 ' se metti apice ed elimini ciclo For (incluso il next a fine listato) togli da qui sotto, solo casi su ruote contigue
'r2= r1 + 1
If r2 = 11 Then r2 = 12

For p1 = 1 To 5
For p2 = 1 To 5

a = Estratto(es,r1,p1,LivArch)
b = Estratto(es + 1,r2,p2,LivArch)

a1 = Estratto(es + 1,r1,p1,LivArch)
b1 = Estratto(es,r2,p2,LivArch)

If a = b Then

Num(1) = a
rr1(1) = r1
rr2(1) = r2
rit1(1) = SeriePrima(es+2,EstrazioneFin,Num,rr1,1)
rit2(1) = SeriePrima(es+2,EstrazioneFin,Num,rr2,1)

If es < Fin - 1 Then

If rit1(1) > 0 And rit2(1) = 0 Then
ColoreTesto(1)
rit1(1) = rit1(1) - es - 1
rit2(1) = EstrazioneFin - es
Min = Minimo(rit1(1),rit2(1))
If Min > RitMinRic Then
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" " & FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r2) & " " & StringaEstratti(es + 1,r2) & _
" --> " & Format2(a) & " su " & SiglaRuota(r1) & " in " & p1 & " su " & SiglaRuota(r2) & " in " & p2 & _
" -> StoR1 " & FormattaStringa(rit1(1),"000") & " AttR2 " & FormattaStringa(rit2(1),"000") & " StoMIN " & FormattaStringa(Minimo(rit1(1),rit2(1)),"000") & _
" RdLAtt " & FormattaStringa(Massimo(rit1(1),rit2(1)) - Minimo(rit1(1),rit2(1)),"000") & " L" & LivArch & " *"
ColoreTesto(0)
CasoParzATT =CasoParzATT +1
End If
Else
If rit1(1) = 0 And rit2(1) > 0 Then
ColoreTesto(1)
rit2(1) = rit2(1) - es - 1
rit1(1) = EstrazioneFin - es
Min = Minimo(rit1(1),rit2(1))
If Min > RitMinRic Then
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" " & FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r2) & " " & StringaEstratti(es + 1,r2) & _
" --> " & Format2(a) & " su " & SiglaRuota(r1) & " in " & p1 & " su " & SiglaRuota(r2) & " in " & p2 & _
" -> AttR1 " & FormattaStringa(rit1(1),"000") & " StoR2 " & FormattaStringa(rit2(1),"000") & " StoMIN " & FormattaStringa(Minimo(rit1(1),rit2(1)),"000") & _
" RdLAtt " & FormattaStringa(Massimo(rit1(1),rit2(1)) - Minimo(rit1(1),rit2(1)),"000") & " L" & LivArch & " *"
ColoreTesto(0)
CasoParzATT =CasoParzATT +1
End If
Else
If rit1(1) = 0 And rit2(1) = 0 Then
ColoreTesto(2)
rit2(1) = EstrazioneFin - es
rit1(1) = EstrazioneFin - es
Min = Minimo(rit1(1),rit2(1))
If Min > RitMinRic Then
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" " & FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r2) & " " & StringaEstratti(es + 1,r2) & _
" --> " & Format2(a) & " su " & SiglaRuota(r1) & " in " & p1 & " su " & SiglaRuota(r2) & " in " & p2 & _
" -> AttR1 " & FormattaStringa(rit1(1),"000") & " AttR2 " & FormattaStringa(rit2(1),"000") & " AttMIN " & FormattaStringa(Minimo(rit1(1),rit2(1)),"000") & _
" RdL___ 000 L" & LivArch & " ***"
ColoreTesto(0)
CasoATT = CasoATT+1
End If
End If
End If

End If
Else
ColoreTesto(2)
rit2(1) = EstrazioneFin - es
rit1(1) = EstrazioneFin - es
Min = Minimo(rit1(1),rit2(1))
If Min > RitMinRic Then
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
" " & FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r2) & " " & StringaEstratti(es + 1,r2) & _
" --> " & Format2(a) & " su " & SiglaRuota(r1) & " in " & p1 & " su " & SiglaRuota(r2) & " in " & p2 & _
" -> AttR1 " & FormattaStringa(rit1(1),"000") & " AttR2 " & FormattaStringa(rit2(1),"000") & " AttMIN " & FormattaStringa(Minimo(rit1(1),rit2(1)),"000") & _
" RdL___ 000 L" & LivArch & " ***"
ColoreTesto(0)
CasoATT = CasoATT + 1
End If
End If

Else
If a1 = b1 Then

Num(1) = a1
rr1(1) = r1
rr2(1) = r2
rit1(1) = SeriePrima(es + 2,EstrazioneFin,Num,rr1,1)
rit2(1) = SeriePrima(es + 2,EstrazioneFin,Num,rr2,1)

If es < Fin - 1 Then


If rit1(1) > 0 And rit2(1) = 0 Then
ColoreTesto(1)
rit1(1) = rit1(1) - es - 1
rit2(1) = EstrazioneFin - es
Min = Minimo(rit1(1),rit2(1))
If Min > RitMinRic Then
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" " & FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es + 1,r1) & _
" --> " & Format2(a1) & " su " & SiglaRuota(r2) & " in " & p2 & " su " & SiglaRuota(r1) & " in " & p1 & _
" -> StoR1 " & FormattaStringa(rit1(1),"000") & " AttR2 " & FormattaStringa(rit2(1),"000") & " StoMIN " & FormattaStringa(Minimo(rit1(1),rit2(1)),"000") & _
" RdLAtt " & FormattaStringa(Massimo(rit1(1),rit2(1)) - Minimo(rit1(1),rit2(1)),"000") & " L" & LivArch & " *"
ColoreTesto(0)
CasoParzATT =CasoParzATT +1
End If
Else
If rit1(1) = 0 And rit2(1) > 0 Then
ColoreTesto(1)
rit2(1) = rit2(1) - es - 1
rit1(1) = EstrazioneFin - es
Min = Minimo(rit1(1),rit2(1))
If Min > RitMinRic Then
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" " & FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es + 1,r1) & _
" --> " & Format2(a1) & " su " & SiglaRuota(r2) & " in " & p2 & " su " & SiglaRuota(r1) & " in " & p1 & _
" -> AttR1 " & FormattaStringa(rit1(1),"000") & " StoR2 " & FormattaStringa(rit2(1),"000") & " StoMIN " & FormattaStringa(Minimo(rit1(1),rit2(1)),"000") & _
" RdLAtt " & FormattaStringa(Massimo(rit1(1),rit2(1)) - Minimo(rit1(1),rit2(1)),"000") & " L" & LivArch & " *"
ColoreTesto(0)
CasoParzATT =CasoParzATT +1
End If
Else
If rit1(1) = 0 And rit2(1) = 0 Then
ColoreTesto(2)

rit2(1) = EstrazioneFin - es
rit1(1) = EstrazioneFin - es
Min = Minimo(rit1(1),rit2(1))
If Min > RitMinRic Then
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" " & FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es + 1,r1) & _
" --> " & Format2(a1) & " su " & SiglaRuota(r2) & " in " & p2 & " su " & SiglaRuota(r1) & " in " & p1 & _
" -> AttR1 " & FormattaStringa(rit1(1),"000") & " AttR2 " & FormattaStringa(rit2(1),"000") & " AttMIN " & FormattaStringa(Minimo(rit1(1),rit2(1)),"000") & _
" RdL___ 000 L" & LivArch & " ***"
ColoreTesto(0)
CasoATT = CasoATT +1
End If
End If
End If

End If
Else
ColoreTesto(2)
rit2(1) = EstrazioneFin - es
rit1(1) = EstrazioneFin - es
Min = Minimo(rit1(1),rit2(1))
If Min > RitMinRic Then
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
" " & FormattaStringa(es + 1,"0000") & " " & DataEstrazione(es + 1) & " " & SiglaRuota(r1) & " " & StringaEstratti(es + 1,r1) & _
" --> " & Format2(a1) & " su " & SiglaRuota(r2) & " in " & p2 & " su " & SiglaRuota(r1) & " in " & p1 & _
" -> AttR1 " & FormattaStringa(rit1(1),"000") & " AttR2 " & FormattaStringa(rit2(1),"000") & " AttMIN " & FormattaStringa(Minimo(rit1(1),rit2(1)),"000") & _
" RdL___ 000 L" & LivArch & " ***"
ColoreTesto(0)
CasoATT = CasoATT + 1
End If
End If

End If
End If
Next
Next
Next
Next ' da togliere per ruote contigue
Next
Next
Scrivi "Casi attuali dal " & DataEstrazione (Ini) & "[" &Ini &"] al " & DataEstrazione (Fin) & "[" &Fin &"] = " & CasoATT
Scrivi "Casi parziali attuali dal " & DataEstrazione (Ini) & "[" &Ini &"] al " & DataEstrazione (Fin) & "[" &Fin &"] = " & CasoParzATT

End Sub

Così è pulito e funzionante per LOTTODESK....

miki55 · 26 Giugno 2022

Ecco l'errore che mi sta dando ora,,,,

miki55 · 26 Giugno 2022

Esistono programmi per risolvere il problema??
Antivirus permettendo...

Mike58 · 26 Giugno 2022

Miki, in passato anche qualcun altro ha avuto gli stessi messaggi di errori,
prova a leggere questa discussione Qui

miki55 · 26 Giugno 2022

Ho provato anche così, ma niente da fare...
Mike volevo chiederti se inoltri gli script anche sul software V7

Richiesta modifica script...

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<