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
    martedì 29 luglio 2025
    Bari
    83
    52
    44
    45
    01
    Cagliari
    28
    75
    63
    09
    44
    Firenze
    73
    36
    45
    35
    87
    Genova
    43
    72
    13
    34
    85
    Milano
    36
    52
    50
    41
    10
    Napoli
    73
    16
    23
    27
    48
    Palermo
    70
    53
    74
    58
    48
    Roma
    57
    40
    45
    47
    32
    Torino
    70
    13
    85
    75
    69
    Venezia
    56
    35
    72
    66
    20
    Nazionale
    81
    25
    45
    54
    32
    Estrazione Simbolotto
    Nazionale
    03
    35
    36
    16
    28

Ultimi Messaggi

Indietro
Alto