PROGRAMMA SPAZIOMETRIA

amanzio · Ieri alle 13:40

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

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.

ME MEDESIMO77 · Ieri alle 13:45

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

phil79 · Ieri alle 14:38

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.

Da lottologia non devi scaricare nulla di fa tutto lo script.
Qui nel post hai già scaricato lo script che devi solo lanciare
Stop

amanzio · Ieri alle 16:22

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

MI da questo errore:

ME MEDESIMO77 · Ieri alle 16:24

dove lo stai usando

amanzio · Ieri alle 16:25

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

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 · Ieri alle 16:33

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.

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?

phil79 · Ieri alle 17:24

amanzio ha scritto:
MI da questo errore:
Vedi l'allegato 2303900

Devi togliere il punto e virgola

phil79 · Ieri alle 17:25

amanzio ha scritto:
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?

Se lo hai scaricato lo conservi in una chiavetta come file

phil79 · Ieri alle 17:26

Me medesimo deve togliere ; che da errore

phil79 · Ieri alle 17:32

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

Non aggiorna superenalotto

amanzio · Ieri alle 18:11

phil79 ha scritto:
Non aggiorna superenalotto

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 · Ieri alle 18:31

Mi raccomando aggiornate verso il tardi... Dalle 23 in poi

geronimo · Ieri alle 20:18

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

Ecco così ho capito

.. sai noi diversamente giovani .... siamo come i diesel devono carburare prima di partire a fondo e grazie ancora

geronimo · Oggi alle 16:02

GRAZIEEEEEEEEEEEEEEEEEEEEEEEE PHIL ..... TI DEDICHERò IL PROSSIMO TERNO un abbraccio grande

phil79 · Oggi alle 16:15

Prego quando si può aiutare

Solo alla prima installazione del programma si deve fare l'aggiornamento via web in modo che crei la base idonea dei file, poi si può lanciare lo script di aggiornamento

geronimo · Oggi alle 16:43

phil79 ha scritto:
Prego quando si può aiutare

sai mia figlia sta prendendo la laurea in informatica , ma in questo momento è in volo per il Vietnam e in questi giorni non l'ho disturbata , tanto più che giovedì aveva un esame e poi si doveva preparare per partire ..... per mè uno script è arabo ... per lei come bere un bicchiere d'acqua

geronimo · Oggi alle 16:46

ah un ultima cosa , devo lasciare il 3 che mi hai fatto mettere o rimetto 1 ?

phil79 · Oggi alle 16:48

Guarda anche per me è arabo nei codici nello comporre neon comandi e vado ad intuito se devo modificare ma farlo da zero non ci riesco.
So usare il pc potrei insegnare ti aiuto se hai problemi software Windows eccc... Ma nella programmazione out.
Excel lo mastico come il pane

phil79 · Oggi alle 16:49

geronimo ha scritto:
ah un ultima cosa , devo lasciare il 3 che mi hai fatto mettere o rimetto 1 ?

Puoi rimettere 1

PROGRAMMA SPAZIOMETRIA

Senior Member

Member

Super Member >GOLD<

Senior Member

Member

Senior Member

Senior Member

Super Member >GOLD<

Super Member >GOLD<

Super Member >GOLD<

Super Member >GOLD<

Senior Member

Super Member >GOLD<

Premium Member

Premium Member

Super Member >GOLD<

Premium Member

Premium Member

Super Member >GOLD<

Super Member >GOLD<