Novità

archivio lotto txt

oppure uno scritp che in automatico mi aggiorna l'archivio in questo formato.
2026/03/03 BA 36 68 14 51 50
2026/03/03 CA 23 60 82 49 36
2026/03/03 FI 32 48 25 82 88
2026/03/03 GE 5 73 60 71 67
2026/03/03 MI 41 4 60 37 36
2026/03/03 NA 42 68 63 44 49
2026/03/03 PA 37 88 8 17 52
2026/03/03 RM 49 66 89 60 74
2026/03/03 RN 66 39 67 74 18
2026/03/03 TO 5 24 22 89 73
2026/03/03 VE 47 6 61 18 64
grazie
 
Buongiorno,
Il parsing dei dati è il processo informatico di conversione di dati grezzi, non strutturati o semi-strutturati (come HTML, PDF, email) in formati strutturati e leggibili (JSON, CSV, tabelle); ergo qualsiasi tabella estratta da qualsiasi sito puo' essere trasformata nel formato indicato, anche quella di lottoced che compare qui a fianco sulla destra (visibile nella versione desktop).
Perche' non utilizzare l' archivio della lottomatica scaricabile dall' indirizzo indicato che e' gia' pronto?
Tanto per capire, lo script dovrebbe leggere l'archivio di spaziometria ed aggiornare l'archivio tipo storico-lottomatica - su indicato (script spaziometria) o scaricare l'estrazione/i ed aggiornare l'archivio tipo storico-lottomatica (altri linguaggi vb.net, python, js, ecc.)?
 
Ciao Druid,

è giusto quello che scrivi.

E' il semplice rivoltare più volte la stessa frittata, con il solo rischio di farla scivolare a terra!

Però ci sono aspetti secondari, che non intendo trascrivere e che mi impediscono

eticamente di rispondere con il semplice script che risolverebbe il problema nel merito della richiesta.

:)
 
oppure uno scritp che in automatico mi aggiorna l'archivio in questo formato.
2026/03/03 BA 36 68 14 51 50
2026/03/03 CA 23 60 82 49 36
2026/03/03 FI 32 48 25 82 88
2026/03/03 GE 5 73 60 71 67
2026/03/03 MI 41 4 60 37 36
2026/03/03 NA 42 68 63 44 49
2026/03/03 PA 37 88 8 17 52
2026/03/03 RM 49 66 89 60 74
2026/03/03 RN 66 39 67 74 18
2026/03/03 TO 5 24 22 89 73
2026/03/03 VE 47 6 61 18 64
grazie
Sub Main()
Dim n, r, d
For n = 10000 To EstrazioneFin
d = Anno(n) & "/" & FormattaStringa(Mese(n), "00") & "/" & FormattaStringa(giorno(n), "00")
For r = 1 To 12
Scrivi d & " " & SiglaRuota(r) & " " & StringaEstratti(n, r, " ")
Next
Next
End Sub
 
cosi è meglio................

Sub Main()
Dim n,r,d,ruota
For n = EstrazioneFin - 1 To EstrazioneFin
d = Anno(n) & "/" & FormattaStringa(Mese(n),"00") & "/" & FormattaStringa(giorno(n),"00")
For r = 1 To 8
If r = 8 Then
Scrivi d & " " & "RM" & " " & StringaEstratti(n,r," ")
Else
Scrivi d & " " & SiglaRuota(r) & " " & StringaEstratti(n,r," ")
End If
Next
Scrivi d & " " & "RN" & " " & StringaEstratti(n,12," ")
For r = 9 To 10
Scrivi d & " " & SiglaRuota(r) & " " & StringaEstratti(n,r," ")
Next
Scrivi ' salta riga fra le date
Next
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 28 aprile 2026
    Bari
    68
    50
    33
    31
    23
    Cagliari
    47
    80
    44
    24
    13
    Firenze
    62
    05
    49
    26
    47
    Genova
    22
    34
    29
    35
    86
    Milano
    33
    45
    55
    78
    27
    Napoli
    58
    36
    88
    47
    46
    Palermo
    21
    59
    73
    72
    46
    Roma
    40
    59
    74
    02
    32
    Torino
    64
    70
    36
    73
    13
    Venezia
    77
    64
    06
    84
    69
    Nazionale
    01
    14
    24
    04
    56
    Estrazione Simbolotto
    Genova
    05
    45
    04
    44
    20
Indietro
Alto