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
    giovedì 23 luglio 2026
    Bari
    76
    59
    64
    45
    15
    Cagliari
    58
    75
    33
    44
    42
    Firenze
    84
    04
    10
    15
    82
    Genova
    89
    81
    74
    02
    65
    Milano
    17
    48
    04
    07
    75
    Napoli
    31
    54
    18
    26
    33
    Palermo
    30
    57
    78
    06
    29
    Roma
    85
    75
    08
    09
    62
    Torino
    40
    18
    13
    66
    73
    Venezia
    13
    78
    59
    23
    04
    Nazionale
    34
    59
    37
    27
    86
    Estrazione Simbolotto
    Nazionale
    41
    05
    38
    30
    14

Ultimi Messaggi

Indietro
Alto