Buon pomeriggio joe !!! Ho visto solo ora che il programma spaziometria si è aggiornato in maniera esatta...compresa l'estrazione di venerdì 7 luglio. GRAZIE a te e a tutti coloro che hanno risposto al mio appello di AIUTO.. BUONA DOMENICA !!!I sistemi automatici di aggiornamento se impostati per leggere
una estrazione il martedì, una il giovedì, ed una al sabato ... non leggono quella nuova (in più) del venerdì.
Come ho già avuto modo di scrivere è grazie al costante LAVORO di Silop ed Oscar ...
ed al controllo costante di molti utenti attenti (come te)
se riusciamo ad avere ARCHIVI MIGLIORI di quelli ottenibili dai siti istituzionali.
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Aggiornamento archivio lotto e superenalotto per SPAZIOMETRIA da spazio/web silop
- Creatore Discussione silop2005
- Data di inizio
chicoalamar
Member
salve a tutti vorrei fare chiarezza per quanto riguarda l'aggiornamento archivio di spaziometria e L8+
per spaziometria lo aggiorno tramite script che in questo forum si trova.
per l8+ dal archivio estrazioni di spaziometria cliccando col maus su data col tasto destro, copia
aggiungi estrazione del programma l8+incolla dagli appunti e incolla il gioco e fatto , buona serata a tutti.
per spaziometria lo aggiorno tramite script che in questo forum si trova.
per l8+ dal archivio estrazioni di spaziometria cliccando col maus su data col tasto destro, copia
aggiungi estrazione del programma l8+incolla dagli appunti e incolla il gioco e fatto , buona serata a tutti.
Allegati
Se fai gli screenshot della procedura, forse è più chiaro.
Saluti
enry@62
Junior Member
Grazie, aggiornamento effettuato.
joe
Advanced Member >PLATINUM PLUS<
Prova questo script :
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)
If EstrazioniArchivio = 0 Then nAnnoPart = 1871 : b = True
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
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 Subriccardo cusumano
Junior Member
ciao jpe potresti modificare il tuo script estrazioni lotto per il superenalotto dato che su lottologia esiste archivio superenalotto formato txt. grazie
Grazie ma mi puoi spiegere dove devo inserirlo tutto questo non sono praticoProva questo script :
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) If EstrazioniArchivio = 0 Then nAnnoPart = 1871 : b = True 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 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
Ciao a tutti e benritrovati come sempre innanzitutto.
Dopo i problemi dello scorso mese e seguendo le vostre indicazioni , ero riuscita ad AGGIORNARE le estrazioni di Spaziometria collegandomi a http://lottoscar.altervista.org/Archivi/BaseDati.dat - poiché da SILOP non più scaricabile.
Ma ora SONO BLOCCATA al 29 Luglio . Nessun aggiornamento. Vedo che molti di voi hanno risolto con gli SCRIP
Ma io che non li so usare ....come devo fare???
Vi prego di non dirmi che devo rinunciare a Spaziometria.
A proposito che fine ha fatto il simpatico SILOP?
Credo di aver bisogno di aiuto....
Dopo i problemi dello scorso mese e seguendo le vostre indicazioni , ero riuscita ad AGGIORNARE le estrazioni di Spaziometria collegandomi a http://lottoscar.altervista.org/Archivi/BaseDati.dat - poiché da SILOP non più scaricabile.
Ma ora SONO BLOCCATA al 29 Luglio . Nessun aggiornamento. Vedo che molti di voi hanno risolto con gli SCRIP
Ma io che non li so usare ....come devo fare???
Vi prego di non dirmi che devo rinunciare a Spaziometria.
A proposito che fine ha fatto il simpatico SILOP?
Credo di aver bisogno di aiuto....
O
Oscar
Guest
Ciao a tutti e benritrovati come sempre innanzitutto.
Dopo i problemi dello scorso mese e seguendo le vostre indicazioni , ero riuscita ad AGGIORNARE le estrazioni di Spaziometria collegandomi a http://lottoscar.altervista.org/Archivi/BaseDati.dat - poiché da SILOP non più scaricabile.
Ma ora SONO BLOCCATA al 29 Luglio . Nessun aggiornamento. Vedo che molti di voi hanno risolto con gli SCRIP
Ma io che non li so usare ....come devo fare???
Vi prego di non dirmi che devo rinunciare a Spaziometria.
A proposito che fine ha fatto il simpatico SILOP?
Credo di aver bisogno di aiuto....
Qui trovi l'aggiornamento e scarica da Lottomatica e vedi che va benissimo
https://forum.lottoced.com/threads/programma-spaziometria.119980/
joe
Advanced Member >PLATINUM PLUS<
In questo video trovato in rete è descritto come eseguire lo script.
* Lo script è il testo che devi copiare dal mio messaggio precedente.
*Poi apri l'editor degli script come insegnato subito all'inizio del video.
*NELLA FINESTRA VUOTA (cioè nella pagina bianca e COMPLETAMENTE SVUOTATA) incolli TUTTO il testo copiato.
*Fatto questo puoi eseguire lo script e si dovrebbe aggiornare l'archivio.
*Per eseguirlo basta premere il pulsante con il Fulmine colore giallo.
*Se tutto funziona bene salvi questo script (premendo l'icona con il simbolo del dischetto)
attribuendogli un nome significativo ad esempio: "Aggiornamento Archivio Lotto"
Successivamente potrai rileggere lo script presente nella memoria del tuo PC ed eseguirlo come
descritto nell'ultima parte del video.
Esempio Video
* Lo script è il testo che devi copiare dal mio messaggio precedente.
*Poi apri l'editor degli script come insegnato subito all'inizio del video.
*NELLA FINESTRA VUOTA (cioè nella pagina bianca e COMPLETAMENTE SVUOTATA) incolli TUTTO il testo copiato.
*Fatto questo puoi eseguire lo script e si dovrebbe aggiornare l'archivio.
*Per eseguirlo basta premere il pulsante con il Fulmine colore giallo.
*Se tutto funziona bene salvi questo script (premendo l'icona con il simbolo del dischetto)
attribuendogli un nome significativo ad esempio: "Aggiornamento Archivio Lotto"
Successivamente potrai rileggere lo script presente nella memoria del tuo PC ed eseguirlo come
descritto nell'ultima parte del video.
Esempio Video
Ultima modifica:
Buona sera Oscar. Ho fatto tutto quello che hai spiegato , ma mi compare questa scritta. Grazie se vorrai aiutarmi.
Allegati
O
Oscar
Guest
Non devi aggiornare da li , ma da lottomatica
O
Oscar
Guest
Probabilmente l'archivio è danneggiato , quindi devi fare prima l'aggiornamento che usavi prima che ti virnr sostituito l'archivio fino aql 29/07/2023 , poi aggiorni da Lottomatica
Ultima estrazione Lotto
-
Estrazione del lotto
venerdì 22 novembre 2024Bari2745811755Cagliari7866450314Firenze1490728855Genova3323828124Milano2579134215Napoli3935650114Palermo2583695036Roma2571221055Torino5930437449Venezia3990770535Nazionale8260626559Estrazione Simbolotto
Torino
4412320613
