Novità

PROGRAMMA SPAZIOMETRIA

  • Creatore Discussione Creatore Discussione LuigiB
  • Data di inizio Data di inizio
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 🤗
 
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
 
Ultima modifica:
phil79 ha scritto:
Prego quando si può aiutare 🍻
Clicca per espandere...
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 :LOL:;)
 
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
 
Intervengo senza nulla togliere agli scripter che sono bravi e disponibili quando possono. Ma io, non sapendo nulla di programmazione (manco in Qbasic del Commodore 128 e successivamente VB anche comprando un libro che insegnava il VB6) mi sono rivolto alla I.A. Un esempio: Avevo chiesto agli scripter un listato che trovasse un ambo uguale, anche non isotopo in cui uno dei 2 elementi avesse un'altra sortita su un'altra ruota. Una tecnica della Signora in Rosso, ovvero Elisabetta Masi che gli scripter hanno sorvolato. Ho tirato in ballo COPILOT AI con i parametri che volevo e a furia di fischi e pernacchi, ho avuto il listato per SPMT. E non solo questo, ne ho fatto modificare anche altri e altri da correggere. A volte non bisogna sovraccaricare gli scripter di lavoro, anche loro hanno una vita con annessi e connessi e si può prendere uno script e tentare di modificarlo a piacimento o correggerlo per una istruzione non valida. Non sempre riesce,ma tentar non nuoce...... e senza offesa per nessuno!
 
joe ha scritto:
Geronimo,

prova con quest' altro script:

Codice: 
'https://forum.lottoced.com/threads/aggiornamento-archivio-lotto-e-superenalotto-per-spaziometria-da-spazio-web-silop.2201398/post-2526199


Option Explicit
Sub Main
   'Agg_Silop V.3.3 del 6/05/2023
   'Script per Spaziometria By Joe.
   Dim sFileLoc
   Dim nEstrTot,sDataLastEstr,k,r,e
   Dim sDataEstr,nNumEstr,nSalvate
   Dim b
   Dim sFileBd
   Dim sLink
   Dim Ia,N,sVV,x
   Dim CfrData
   sLink = "https://www.silop.it/Archivio(televideo)/Archivio.txt"
   b = False : N = False
   nSalvate = 0
   sFileBd = GetDirectoryAppData & "BaseDati.dat"
   Scrivi sFileBd,1,,,2 : Scrivi
   sFileLoc = GetDirectoryAppData & "ArcTlv\"
   Messaggio "Script By Joe"
   If CreaDirectory(sFileLoc) Then
      sFileLoc = sFileLoc & "Archivio.txt"
      If DownloadFromWeb(sLink,sFileLoc) Then
         nEstrTot = EstrazioniArchivio
         sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
         Ia = IndiceAnnuale(nEstrTot)
         ReDim aRighe(0)
         Call LeggiRigheFileDiTesto(sFileLoc,aRighe)
         For k = 1 To UBound(aRighe)
            AvanzamentoElab 1,UBound(aRighe),k
            ReDim aV(0)
            If Len(aRighe(k)) = 118 Then
               sDataEstr = Left(aRighe(k),2) & "/" & Mid(aRighe(k),3,2) & "/" & Mid(aRighe(k),5,4)
               sVV = Right(aRighe(k),110)
               If b Then
                  If N = False And(Right(sDataEstr,4) <> Right(sDataLastEstr,4)) Then Ia = 0 : N = True
                  If Left(sDataEstr,4) <> Left(sDataLastEstr,4) Then
                     Ia = Ia + 1
                     nNumEstr =(Ia)
                     If nNumEstr > 0 And IsDate(sDataEstr) Then
                        ReDim aEstr(11,5)
                        r = 1 : e = 0
                        For x = 1 To 110 Step 2
                           e = e + 1
                           aEstr(r,e) = Mid(sVV,x,2)
                           If e = 5 Then r = r + 1 : e = 0
                        Next
                        If CfrData <> Left(sDataEstr,5) Then
                           If SalvaEstrazione(aEstr,sDataEstr,nNumEstr,sFileBd) Then
                              CfrData = Left(sDataEstr,5)
                              nSalvate = nSalvate + 1
                           End If
                        Else
                           ColoreTesto 2
                           Scrivi "ATTENZIONE " & sDataEstr & " ERRORE NELLE DATE",True
                           ColoreTesto 0
                        End If
                     End If
                  End If
               End If
               If sDataEstr = sDataLastEstr Then b = True
            End If
         Next
         If nSalvate > 0 Then AllineaArchivi
      Else
         MsgBox "Errore download verificare il link con il browser"
      End If
      Call Scrivi("Sono state aggiunte " & nSalvate & " estrazioni")
      Call Scrivi("")
      Call Scrivi("Estrazioni totali " & QuantitaEstrazioniInFile(sFileBd))
      Call Scrivi("")
      Call Scrivi("Sito Archivio " & Left(sLink,20))
      Call Scrivi("")
   End If
   Call Scrivi("Tempo Trascorso " & TempoTrascorso)

End Sub
Clicca per espandere...
Grazie Joe, ho aggiornato 3 anni di archivio
 
Salve, qualcuno ha il download di spaziometria 1.6.34? Grazie mille in anticipo,il PC è andato a farsi benedire,ho un altro abbastanza simile in cui avevo questa versione
 
roy ha scritto:
Salve, qualcuno ha il download di spaziometria 1.6.34? Grazie mille in anticipo,il PC è andato a farsi benedire,ho un altro abbastanza simile in cui avevo questa versione
Clicca per espandere...
=======================================================
SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vs.1.0.9 e RicercaLunghetta vers.1.0.31 e LottoOpen v.1.0.62 e LottoProjeectLB.net V.1.0.38
======================
Ciao @roy ,
======================
io uso la versione di Spaziometria 1.6.34 se mi contatti via email te la spedisco
oppure se vai sul mio sito la puoi scaricare.
Purtroppo su questo forum non si possono mettere
nessuna email e neanche link del sito.
Fai una ricerca sul web con il mio nome: silop2005
mi trovi anche su altri forum dove è possibile mandare "mp" messaggi privati.
cosi mi puoi contattare e ti mando il programma Spaziometria by LuigiB la versione che vuoi.
Fammi sapere
Oppure ti puoi scaricare l'ultimissima versione 1.6.54 di Spaziometria qui sul forum Lottoced
https://forum.lottoced.com/threads/programma-spaziometria.119980/
Con la versione 1.6.54 del programma Spaziometria potete aggiornare le estrazioni del LOTTO, del Superenalotto e le estrazioni del 10 e Lotto 5 minuti in automatico.
======================
Buon lunedì a tutto il forum.
======================
stickman.gif
A presto
Silop ;) ;) ;)
 
Fatto grazie,ma archivio fino al 29/04/23,mi ricordo di aver caricato all'epoca un file da inserire
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 30 ottobre 2025
    Bari
    53
    07
    12
    77
    21
    Cagliari
    17
    74
    24
    69
    44
    Firenze
    08
    47
    25
    83
    33
    Genova
    02
    68
    29
    43
    67
    Milano
    84
    90
    75
    45
    72
    Napoli
    49
    06
    09
    12
    20
    Palermo
    13
    65
    34
    86
    07
    Roma
    15
    02
    10
    13
    83
    Torino
    59
    67
    80
    35
    26
    Venezia
    73
    04
    06
    74
    27
    Nazionale
    62
    79
    38
    36
    48
    Estrazione Simbolotto
    07
    01
    28
    12
    33
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto