L8+ problemi con copia estrazioni..

[milla2904]

Buongiorno,io ho L8+ 6.0 ..se io copio un'estrazione negli appunti e poi la incollo su un foglio note non mi da' gli estratti della Ruota Nazionale,mette tutti 00..qualcuno gentilmente puo' aiutarmi?grazie

 

[joe]

Forse ti converrebbe esportare gli estratti con un piccolo script.

Però, non so se ho capito cosa vorresti fare.

 

[KEN]

Il 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!

 

[milla2904]

grazie.. pero' vi spiego meglio..se io copio estrazione negli appunti come in foto:

poi provo a copiarla in un file testo mi esce questo:

Estrazione del 22.07.2025

Bari 29 03 79 27 86
Cagliari 22 54 55 50 29
Firenze 52 38 30 29 83
Genova 08 62 20 69 26
Milano 17 45 55 67 73
Napoli 64 39 35 62 02
Palermo 84 33 60 43 28
Roma 33 79 27 41 81
Torino 35 58 38 70 56
Venezia 64 11 07 57 27


non compare ruota nazionale..

 

[KEN]

io uso sempre solo il tasto che ho indicato

 

[joe]

Ciao Milla,

Prova questo script :

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

 

[milla2904]

Ciao Milla,

Prova questo script :

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

Ciao buongiorno grazie ma mi da' quest'errore:

 

[milla2904]

Il 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

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 ancora

 

[joe]

Ciao buongiorno grazie ma mi da' quest'errore:
Vedi l'allegato 2305227

Potrebbe essere che una versione molto vecchia di L8 non riesca ad elaborare le istruzioni più nuove:

Ho reimpostato lo script per renderlo maggiormente compatibile.

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

 

[milla2904]

Potrebbe essere che una versione molto vecchia di L8 non riesca ad elaborare le istruzioni più nuove:

Ho reimpostato lo script per renderlo maggiormente compatibile.

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 ancora

 

[milla2904]

Potrebbe essere che una versione molto vecchia di L8 non riesca ad elaborare le istruzioni più nuove:

Ho reimpostato lo script per renderlo maggiormente compatibile.

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

 

[joe]

Ciao Milla,

dovrebbe essere così:

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

 

[milla2904]

Ciao Milla,

dovrebbe essere così:

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