PROGRAMMA SPAZIOMETRIA

[amanzio]

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]

MI da questo errore:
Vedi l'allegato 2303900

Devi togliere il punto e virgola

 

[phil79]

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]

Me medesimo deve togliere ; che da errore

 

[phil79]

questo aggiorna contemporaneamente superenalotto e lotto

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]

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]

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

 

[geronimo]

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]

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

 

[phil79]

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]

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]

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

 

[phil79]

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]

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

Puoi rimettere 1

 

[Duplex]

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!

 

[maumau]

Geronimo,

prova con quest' altro script:

'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

Grazie Joe, ho aggiornato 3 anni di archivio

 

[roy]

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

 

[silop2005]

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

=======================================================

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.

======================

A presto

Silop

 

[roy]

Grazie mille Silop per la disponibilità