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
    sabato 18 aprile 2026
    Bari
    42
    44
    87
    52
    39
    Cagliari
    20
    58
    64
    90
    31
    Firenze
    37
    23
    45
    36
    62
    Genova
    34
    11
    75
    81
    10
    Milano
    46
    44
    71
    59
    85
    Napoli
    69
    24
    75
    86
    20
    Palermo
    85
    60
    81
    28
    09
    Roma
    56
    71
    06
    31
    49
    Torino
    05
    15
    32
    31
    82
    Venezia
    01
    32
    27
    12
    50
    Nazionale
    59
    06
    77
    09
    18
    Estrazione Simbolotto
    Genova
    34
    30
    04
    45
    23
Indietro
Alto