Novità

X JOE CREA SCRIPT

zico11

Member
CIAO JOE, SE GENTILMENTE POTRESTI FARE UNO SCRIPT X AGGIORNARE QUESTO TIPO DI ARCHIVIO CON ESTENSIONE TXT,
TI ALLEGO IL FILE.

GRAZIE.
 

Allegati

Ciao,

è un pochino complicato spiegare tutte le ragioni per cui è difficile fare "un buon lavoro".

Questo piccolo script dovrebbe crearti tutte le estrazioni mancanti ALL'OGGI E DOMANI (che sIa).

Le potrai AGGIUNGERE incollandole al fondo del file di testo e CONTROLLARE se vanno bene.

Un BUON AGGIORNATORE dovrebbe poter tenere conto dell'esistente ed aggiungere da sé,

ma questa è la parte più difficile specie se non si hanno a portata di mano tutti i dati necessari per poterlo fare.

In sintesi, se funziona, è ciò che passa il convento ed in futuro dovrai aggiungere "a mano"

SOLO LA PARTE MANCANTE delle Estrazioni dopo averle "ritagliate" dal fondo dell'elenco,

naturalmente facendo MOLTA ATTENZIONE ad aggiungere senza sovrapporre, lasciare buchi,

o introdurre estrazioni incomplete/errate.

Codice:
Option Explicit
Sub Main
   Dim Ini,Fin,Es,R,P
   Ini = 8455 : Fin = EstrazioneFin
   For Es = Ini To Fin
      Scrivi DataEstrazione(Es,,,"/") & " " & IndiceAnnuale(Es),0,0
      For R = 1 To 12
         If R <> 11 Then
            For P = 1 To 5
               Scrivi Space(1) & Estratto(Es,R,P),0,0
            Next
         End If
      Next
      Scrivi
   Next
End Sub

:)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 30 maggio 2025
    Bari
    72
    07
    04
    37
    54
    Cagliari
    15
    27
    54
    33
    16
    Firenze
    35
    54
    20
    80
    02
    Genova
    25
    76
    44
    21
    87
    Milano
    59
    44
    88
    77
    63
    Napoli
    35
    90
    85
    60
    12
    Palermo
    49
    61
    08
    32
    11
    Roma
    37
    40
    03
    06
    58
    Torino
    21
    46
    55
    24
    25
    Venezia
    58
    28
    42
    19
    35
    Nazionale
    74
    42
    32
    87
    60
    Estrazione Simbolotto
    Milano
    16
    22
    33
    36
    32

Ultimi Messaggi

Indietro
Alto