Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Option Explicit
Sub Main
Dim Es,R,P,E
Es = EstrazioneFin
Scrivi "Estrazione del " & DataEstrazione(Es)
Scrivi
For R = 1 To 12
If R = 11 Then R = 12
Scrivi NomeRuota(R) & " ",0,0
For P = 1 To 5
E = Estratto(Es,R,P)
Scrivi Format2(E) & " ",0,0
Next
Scrivi
Next
End Sub
Ciao buongiorno grazie ma mi da' quest'errore:Ciao Milla,
Prova questo script :
Codice:Option Explicit Sub Main Dim Es,R,P,E Es = EstrazioneFin Scrivi "Estrazione del " & DataEstrazione(Es) Scrivi For R = 1 To 12 If R = 11 Then R = 12 Scrivi NomeRuota(R) & " ",0,0 For P = 1 To 5 E = Estratto(Es,R,P) Scrivi Format2(E) & " ",0,0 Next Scrivi Next End Sub
Dovrebbe clonare l'output completandolo della ruota Nazionale
![]()
Grazie,ottima alternativa del metodo che usavo quando ancora le estrazioni sul televideo funzionavano ancora(ferme a giugno..)..io ho lottodesk e non avendo piu' abbonamento mi toccava aggiornare estrazioni manualmente e non come prima con copia e incolla( cosi' erano compatibili con aggiornamento l8+ 6.0) ..grazie ancoraIl modo più semplice per aggiornare é : vai su edge sul sito che vedi in foto in modalità explorer
poio fai copia dalla data compresa e incolla direttamente in l8+ fatto!Vedi l'allegato 2305186
Ciao buongiorno grazie ma mi da' quest'errore:
Vedi l'allegato 2305227
Option Explicit
Sub Main
Dim Es,R,P,E,O
Es = EstrazioneFin
Scrivi "Estrazione del " & DataEstrazione(Es)
Scrivi
For R = 1 To 12
If R = 11 Then R = 12
O = NomeRuota(R)
For P = 1 To 5
E = Estratto(Es,R,P)
O = O & " " & Format2(E)
Next
Scrivi O
Next
End Sub
Grazie cosi e' perfetto..grazie ancoraPotrebbe essere che una versione molto vecchia di L8 non riesca ad elaborare le istruzioni più nuove:
Ho reimpostato lo script per renderlo maggiormente compatibile.
Codice:Option Explicit Sub Main Dim Es,R,P,E,O Es = EstrazioneFin Scrivi "Estrazione del " & DataEstrazione(Es) Scrivi For R = 1 To 12 If R = 11 Then R = 12 O = NomeRuota(R) For P = 1 To 5 E = Estratto(Es,R,P) O = O & " " & Format2(E) Next Scrivi O Next End Sub
Ciao joe,scusa se ti rompo le scatole,potresti modificarlo in modo che io vedo le ultime es.15 estrazioni ( sempre con la Nazionale)?cosi' vedo solo l'ultima in archivio..sempre se possibile..graziePotrebbe essere che una versione molto vecchia di L8 non riesca ad elaborare le istruzioni più nuove:
Ho reimpostato lo script per renderlo maggiormente compatibile.
Codice:Option Explicit Sub Main Dim Es,R,P,E,O Es = EstrazioneFin Scrivi "Estrazione del " & DataEstrazione(Es) Scrivi For R = 1 To 12 If R = 11 Then R = 12 O = NomeRuota(R) For P = 1 To 5 E = Estratto(Es,R,P) O = O & " " & Format2(E) Next Scrivi O Next End Sub
Option Explicit
Sub Main
Dim Es,R,P,E,O,Q
Q = InputBox ("Es = 15 ","Quante Estrazioni ?",15)
For Es = EstrazioneFin - Q - 1 To EstrazioneFin
Scrivi DataEstrazione(Es)
Scrivi
For R = 1 To 12
If R = 11 Then R = 12
O = NomeRuota(R)
For P = 1 To 5
E = Estratto(Es,R,P)
O = O & " " & Format2(E)
Next
Scrivi O
Next
Scrivi String (25,"="),1
Next
End Sub
Perfetto..grazieCiao Milla,
dovrebbe essere così:
Codice:Option Explicit Sub Main Dim Es,R,P,E,O,Q Q = InputBox ("Es = 15 ","Quante Estrazioni ?",15) For Es = EstrazioneFin - Q - 1 To EstrazioneFin Scrivi DataEstrazione(Es) Scrivi For R = 1 To 12 If R = 11 Then R = 12 O = NomeRuota(R) For P = 1 To 5 E = Estratto(Es,R,P) O = O & " " & Format2(E) Next Scrivi O Next Scrivi String (25,"="),1 Next End Sub
![]()