Novità

PROGRAMMA SPAZIOMETRIA

  • Creatore Discussione Creatore Discussione LuigiB
  • Data di inizio Data di inizio
phil79 ha scritto:
Non devi copiare e incollare.
Quando scarichi il file devi eliminare txt ed ottieni lo script che si apre col programma.
Poi troverai in alto un icona con un fulmine che serve a lanciare lo script e ti aggiornerà. Conservalo sempre quel file
Clicca per espandere...
Scusa Phil, vediamo se in minima parte ho capito.
Io ora ho aggiornato l'archivio al 17-06, dopo che tu mi hai aiutato così gentilmente fornendomi i files inerenti.
Dici che per aggiornare l'archivio bisogna scaricare da Lottologia, immagino sia lottologia.com, sito che gli appassionati conoscono, ci sono molte informazioni e statistiche utili.

L'archivio, 2025, da lottologia si può scaricare in pdf, excel e txt. Dopo che l'ho scaricato, presumo in txt, apro gestione script e che faccio esattamente?
Tu hai risposto sopra, mi pare a geronimo:
"Non devi copiare e incollare.
Quando scarichi il file devi eliminare txt ed ottieni lo script che si apre col programma.
Poi troverai in alto un icona con un fulmine che serve a lanciare lo script e ti aggiornerà. Conservalo sempre quel file."

E qui mi perdo...se non si deve copiare e incollare le estrazioni nello script per poi lanciarlo, cosa bisogna fare allora?
Ma ci sta non abbia capito nulla...
Grazie ancora.
 
questo aggiorna contemporaneamente superenalotto e lotto
Codice: 
Option Explicit
Sub Main
 Dim sDirTemp
 Dim sLink
 Dim nAnnoPart,nAnnoCorr,sNuovaData
 Dim k
 Dim id
 Dim sDataEstr,sCData,nSalvate,sFileBd
 Dim sV,r,e,x
 Dim b,nEstrTot,sDataLastEstr,iA,z
 nAnnoPart = Year(Now)-1
 nAnnoCorr = Year(Now)
 sFileBd = GetDirectoryAppData & "BaseDati.dat"
 sDirTemp = GetDirectoryTemp & "lottologia.txt"
 Call EliminaFile(sDirTemp)
 For sNuovaData = nAnnoPart To nAnnoCorr
 If ScriptInterrotto Then Exit For
 Call Messaggio(sNuovaData)
 Call AvanzamentoElab(nAnnoPart,nAnnoCorr,sNuovaData)
 sLink = "https://www.lottologia.com/lotto/archivio-estrazioni/?as=TXT&year="; & sNuovaData
 If DownloadFromWeb(sLink,sDirTemp) Then
 nEstrTot = EstrazioniArchivio
 If nEstrTot = 0 Then nAnnoPart = 1871 : b = True
 sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
 z = Right(sDataLastEstr,4)
 id = IndiceAnnuale(nEstrTot)
 ReDim aRighe(0)
 If LeggiRigheFileDiTesto(sDirTemp,aRighe) Then
 If EliminaFile(sDirTemp) Then
 If Trim(aRighe(k)) <> "" Then
 For k = UBound(aRighe) - 3 To 2 Step - 1
 aRighe(k) = Replace(aRighe(k),vbTab,"")
 aRighe(k) = Replace(aRighe(k),"-","")
 'Call Scrivi(id & " ",0,0)
 sDataEstr = Mid(aRighe(k),7,2) & "/" & Mid(aRighe(k),5,2) & "/" & Left(aRighe(k),4)
 If z <> Left(aRighe(k),4) Then id = 0 : z = Left(aRighe(k),4)
 'Call Scrivi(sDataEstr)
 sV = Right(aRighe(k),110)
 'Call Scrivi (sV)
 ReDim aEstr(11,5)
 r = 1 : e = 0
 For x = 1 To 110 Step 2
 e = e + 1
 'Scrivi Mid(sVV,x,2) & " ",0,0
 aEstr(r,e) = Mid(sV,x,2)
 If e = 5 Then r = r + 1 : e = 0
 Next
 'ScriviMatrice(aEstr)
 If b = True Then
 If sCData <> sDataEstr Then
 id = id + 1
 If SalvaEstrazione(aEstr,sDataEstr,id,sFileBd) Then
 sCData = sDataEstr
 nSalvate = nSalvate + 1
 Call Messaggio(nSalvate)
 End If
 Else
 ColoreTesto 2
 Scrivi "ATTENZIONE " & sDataEstr & " ESTRAZIONE DUPLICATA",True
 ColoreTesto 0
 End If
 End If
 If sDataEstr = sDataLastEstr Then b = True
 '
 Next
 End If
 End If
 End If
 End If
 If ScriptInterrotto Then Exit For
 Next
 If nSalvate > 0 Then
 AllineaArchivi
 Call Scrivi()
 Call Scrivi("Script per Spaziometria V.4.0 di LuigiB & Giomi Rev. By Joe",True,,,vbBlue)
 Call Scrivi()
 Call Scrivi("Sono state aggiunte " & nSalvate & " estrazioni")
 Call Scrivi("")
 Call Scrivi("Estrazioni totali " & EstrazioniArchivio)
 Call Scrivi()
 Call Scrivi("Utilizzato Archivio del sito www.lottologia.com")
 Call Scrivi()
 Else
 Call Scrivi("NON HO TROVATO NUOVE ESTRAZIONI !",1,,,2)
 End If

End Sub
 
amanzio ha scritto:
Scusa Phil, vediamo se in minima parte ho capito.
Io ora ho aggiornato l'archivio al 17-06, dopo che tu mi hai aiutato così gentilmente fornendomi i files inerenti.
Dici che per aggiornare l'archivio bisogna scaricare da Lottologia, immagino sia lottologia.com, sito che gli appassionati conoscono, ci sono molte informazioni e statistiche utili.

L'archivio, 2025, da lottologia si può scaricare in pdf, excel e txt. Dopo che l'ho scaricato, presumo in txt, apro gestione script e che faccio esattamente?
Tu hai risposto sopra, mi pare a geronimo:
"Non devi copiare e incollare.
Quando scarichi il file devi eliminare txt ed ottieni lo script che si apre col programma.
Poi troverai in alto un icona con un fulmine che serve a lanciare lo script e ti aggiornerà. Conservalo sempre quel file."

E qui mi perdo...se non si deve copiare e incollare le estrazioni nello script per poi lanciarlo, cosa bisogna fare allora?
Ma ci sta non abbia capito nulla...
Grazie ancora.
Clicca per espandere...
Da lottologia non devi scaricare nulla di fa tutto lo script.
Qui nel post hai già scaricato lo script che devi solo lanciare
Stop
 
ME MEDESIMO77 ha scritto:
questo aggiorna contemporaneamente superenalotto e lotto
Codice: 
Option Explicit
Sub Main
 Dim sDirTemp
 Dim sLink
 Dim nAnnoPart,nAnnoCorr,sNuovaData
 Dim k
 Dim id
 Dim sDataEstr,sCData,nSalvate,sFileBd
 Dim sV,r,e,x
 Dim b,nEstrTot,sDataLastEstr,iA,z
 nAnnoPart = Year(Now)-1
 nAnnoCorr = Year(Now)
 sFileBd = GetDirectoryAppData & "BaseDati.dat"
 sDirTemp = GetDirectoryTemp & "lottologia.txt"
 Call EliminaFile(sDirTemp)
 For sNuovaData = nAnnoPart To nAnnoCorr
 If ScriptInterrotto Then Exit For
 Call Messaggio(sNuovaData)
 Call AvanzamentoElab(nAnnoPart,nAnnoCorr,sNuovaData)
 sLink = "https://www.lottologia.com/lotto/archivio-estrazioni/?as=TXT&year="; & sNuovaData
 If DownloadFromWeb(sLink,sDirTemp) Then
 nEstrTot = EstrazioniArchivio
 If nEstrTot = 0 Then nAnnoPart = 1871 : b = True
 sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
 z = Right(sDataLastEstr,4)
 id = IndiceAnnuale(nEstrTot)
 ReDim aRighe(0)
 If LeggiRigheFileDiTesto(sDirTemp,aRighe) Then
 If EliminaFile(sDirTemp) Then
 If Trim(aRighe(k)) <> "" Then
 For k = UBound(aRighe) - 3 To 2 Step - 1
 aRighe(k) = Replace(aRighe(k),vbTab,"")
 aRighe(k) = Replace(aRighe(k),"-","")
 'Call Scrivi(id & " ",0,0)
 sDataEstr = Mid(aRighe(k),7,2) & "/" & Mid(aRighe(k),5,2) & "/" & Left(aRighe(k),4)
 If z <> Left(aRighe(k),4) Then id = 0 : z = Left(aRighe(k),4)
 'Call Scrivi(sDataEstr)
 sV = Right(aRighe(k),110)
 'Call Scrivi (sV)
 ReDim aEstr(11,5)
 r = 1 : e = 0
 For x = 1 To 110 Step 2
 e = e + 1
 'Scrivi Mid(sVV,x,2) & " ",0,0
 aEstr(r,e) = Mid(sV,x,2)
 If e = 5 Then r = r + 1 : e = 0
 Next
 'ScriviMatrice(aEstr)
 If b = True Then
 If sCData <> sDataEstr Then
 id = id + 1
 If SalvaEstrazione(aEstr,sDataEstr,id,sFileBd) Then
 sCData = sDataEstr
 nSalvate = nSalvate + 1
 Call Messaggio(nSalvate)
 End If
 Else
 ColoreTesto 2
 Scrivi "ATTENZIONE " & sDataEstr & " ESTRAZIONE DUPLICATA",True
 ColoreTesto 0
 End If
 End If
 If sDataEstr = sDataLastEstr Then b = True
 '
 Next
 End If
 End If
 End If
 End If
 If ScriptInterrotto Then Exit For
 Next
 If nSalvate > 0 Then
 AllineaArchivi
 Call Scrivi()
 Call Scrivi("Script per Spaziometria V.4.0 di LuigiB & Giomi Rev. By Joe",True,,,vbBlue)
 Call Scrivi()
 Call Scrivi("Sono state aggiunte " & nSalvate & " estrazioni")
 Call Scrivi("")
 Call Scrivi("Estrazioni totali " & EstrazioniArchivio)
 Call Scrivi()
 Call Scrivi("Utilizzato Archivio del sito www.lottologia.com")
 Call Scrivi()
 Else
 Call Scrivi("NON HO TROVATO NUOVE ESTRAZIONI !",1,,,2)
 End If

End Sub
Clicca per espandere...
MI da questo errore:
1750429340243.png
 
phil79 ha scritto:
Da lottologia non devi scaricare nulla di fa tutto lo script.
Qui nel post hai già scaricato lo script che devi solo lanciare
Stop
Clicca per espandere...
Scusa non capisco, quale script ho scaricato che tu mi abbia indicato? Non vorrei tu mi confondessi con l'utente geronimo chi hai risposto prima.,
Lo script in realtà l'ho provato copiando quello dell'utente "me medesimo", vedi post sopra, ma come leggi mi da un errore.
Sono confuso e sono zero in programmazione, devi perdonarmi se non capisco.
 
amanzio ha scritto:
Scusa non capisco, quale script ho scaricato che tu mi abbia indicato? Non vorrei tu mi confondessi con l'utente geronimo chi hai risposto prima.,
Lo script in realtà l'ho provato copiando quello dell'utente "me medesimo", vedi post sopra, ma come leggi mi da un errore.
Sono confuso e sono zero in programmazione, devi perdonarmi se non capisco.
Clicca per espandere...
No scusa Phil, ho capito, mi avevi già postato lo script sotto a una mi domanda nella pagina precedente, non lo avevo visto. Provato quello funziona ok.
Ma come lo salvo lo script, con estensione .ls e un nome qualsiasi?
 
ME MEDESIMO77 ha scritto:
questo aggiorna contemporaneamente superenalotto e lotto
Codice: 
Option Explicit
Sub Main
 Dim sDirTemp
 Dim sLink
 Dim nAnnoPart,nAnnoCorr,sNuovaData
 Dim k
 Dim id
 Dim sDataEstr,sCData,nSalvate,sFileBd
 Dim sV,r,e,x
 Dim b,nEstrTot,sDataLastEstr,iA,z
 nAnnoPart = Year(Now)-1
 nAnnoCorr = Year(Now)
 sFileBd = GetDirectoryAppData & "BaseDati.dat"
 sDirTemp = GetDirectoryTemp & "lottologia.txt"
 Call EliminaFile(sDirTemp)
 For sNuovaData = nAnnoPart To nAnnoCorr
 If ScriptInterrotto Then Exit For
 Call Messaggio(sNuovaData)
 Call AvanzamentoElab(nAnnoPart,nAnnoCorr,sNuovaData)
 sLink = "https://www.lottologia.com/lotto/archivio-estrazioni/?as=TXT&year="; & sNuovaData
 If DownloadFromWeb(sLink,sDirTemp) Then
 nEstrTot = EstrazioniArchivio
 If nEstrTot = 0 Then nAnnoPart = 1871 : b = True
 sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
 z = Right(sDataLastEstr,4)
 id = IndiceAnnuale(nEstrTot)
 ReDim aRighe(0)
 If LeggiRigheFileDiTesto(sDirTemp,aRighe) Then
 If EliminaFile(sDirTemp) Then
 If Trim(aRighe(k)) <> "" Then
 For k = UBound(aRighe) - 3 To 2 Step - 1
 aRighe(k) = Replace(aRighe(k),vbTab,"")
 aRighe(k) = Replace(aRighe(k),"-","")
 'Call Scrivi(id & " ",0,0)
 sDataEstr = Mid(aRighe(k),7,2) & "/" & Mid(aRighe(k),5,2) & "/" & Left(aRighe(k),4)
 If z <> Left(aRighe(k),4) Then id = 0 : z = Left(aRighe(k),4)
 'Call Scrivi(sDataEstr)
 sV = Right(aRighe(k),110)
 'Call Scrivi (sV)
 ReDim aEstr(11,5)
 r = 1 : e = 0
 For x = 1 To 110 Step 2
 e = e + 1
 'Scrivi Mid(sVV,x,2) & " ",0,0
 aEstr(r,e) = Mid(sV,x,2)
 If e = 5 Then r = r + 1 : e = 0
 Next
 'ScriviMatrice(aEstr)
 If b = True Then
 If sCData <> sDataEstr Then
 id = id + 1
 If SalvaEstrazione(aEstr,sDataEstr,id,sFileBd) Then
 sCData = sDataEstr
 nSalvate = nSalvate + 1
 Call Messaggio(nSalvate)
 End If
 Else
 ColoreTesto 2
 Scrivi "ATTENZIONE " & sDataEstr & " ESTRAZIONE DUPLICATA",True
 ColoreTesto 0
 End If
 End If
 If sDataEstr = sDataLastEstr Then b = True
 '
 Next
 End If
 End If
 End If
 End If
 If ScriptInterrotto Then Exit For
 Next
 If nSalvate > 0 Then
 AllineaArchivi
 Call Scrivi()
 Call Scrivi("Script per Spaziometria V.4.0 di LuigiB & Giomi Rev. By Joe",True,,,vbBlue)
 Call Scrivi()
 Call Scrivi("Sono state aggiunte " & nSalvate & " estrazioni")
 Call Scrivi("")
 Call Scrivi("Estrazioni totali " & EstrazioniArchivio)
 Call Scrivi()
 Call Scrivi("Utilizzato Archivio del sito www.lottologia.com")
 Call Scrivi()
 Else
 Call Scrivi("NON HO TROVATO NUOVE ESTRAZIONI !",1,,,2)
 End If

End Sub
Clicca per espandere...
Non aggiorna superenalotto
 
phil79 ha scritto:
Non aggiorna superenalotto
Clicca per espandere...
Allora: il tuo script a me pare funzioni, ma lo devo ancora testare e ti spiego.
L'ho lanciato ma ovviamente in questo caso mi ha detto "non ci sono estrazioni", perchè presumo avevo già l'archivio aggiornato, l'ultima estrazione l'avevo fatta manualmente.
Per il superenalotto idem, perchè io l'aggiorno col plugin "Aggiorna estrazioni superenalotto" che a me ha sempre funzionato perfettamente,
Quindi in sostanza avevo entrambi gli archivi già aggiornati.
Quindi in realtà non sono ancora in grado di dire se il tuo script funziona senza intoppi, anche se prima ho detto ok.
Ma credo di si perchè comunque non mi ha dato errori.
 
phil79 ha scritto:
Lo script deve essere modificato a mano prima di lanciarlo.... Cioè dove leggi "anno - 1" ecco quell 1 indica che ti aggiornerà dal 2024.
Se cambi il numero in 3 ti aggiornerà dal 2023 e così via
Clicca per espandere...
Ecco così ho capito 😍 .. sai noi diversamente giovani .... siamo come i diesel devono carburare prima di partire a fondo e grazie ancora 🤗
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 20 giugno 2025
    Bari
    33
    01
    29
    44
    22
    Cagliari
    44
    19
    09
    33
    01
    Firenze
    68
    14
    30
    61
    05
    Genova
    44
    53
    24
    79
    62
    Milano
    62
    72
    07
    21
    37
    Napoli
    48
    39
    29
    85
    11
    Palermo
    12
    50
    29
    76
    75
    Roma
    89
    02
    62
    78
    23
    Torino
    16
    45
    27
    23
    13
    Venezia
    36
    77
    81
    09
    73
    Nazionale
    17
    18
    01
    47
    88
    Estrazione Simbolotto
    Napoli
    15
    35
    27
    25
    14
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto