Novità

L8+ problemi con copia estrazioni..

milla2904

Junior Member
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
 
Forse ti converrebbe esportare gli estratti con un piccolo script.

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

:)
 
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!5.png
 
grazie.. pero' vi spiego meglio..se io copio estrazione negli appunti come in foto:
prova.jpg
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..
 
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

:)
 
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

:)
Ciao buongiorno grazie ma mi da' quest'errore:
naziomale.jpg
 
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
televideo.jpg
 
  • Like
Reazioni: KEN
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.

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

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
Grazie cosi e' perfetto..grazie ancora
 
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.

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

:)
 
Ciao 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

:)
Perfetto..grazie
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 04 settembre 2025
    Bari
    42
    63
    35
    10
    87
    Cagliari
    54
    70
    14
    21
    23
    Firenze
    37
    40
    58
    64
    28
    Genova
    09
    69
    63
    36
    64
    Milano
    79
    57
    10
    85
    88
    Napoli
    53
    54
    50
    13
    62
    Palermo
    73
    36
    86
    31
    32
    Roma
    57
    24
    13
    85
    78
    Torino
    24
    02
    77
    81
    13
    Venezia
    72
    86
    51
    50
    25
    Nazionale
    72
    62
    29
    09
    81
    Estrazione Simbolotto
    Palermo
    17
    10
    01
    28
    05
Indietro
Alto