PROGRAMMA SPAZIOMETRIA

[Alien.]

Ciao joe ma è semplice( adesso ho tutto l'archivio) lo script se lo "rilancio" mi aggiorna volta per volta l'archivio altrimenti.......ma tu come fai ad aggiornare l'archivio ?

 

[joe]

Ciao joe ma è semplice( adesso ho tutto l'archivio) lo script se lo "rilancio" mi aggiorna volta per volta l'archivio altrimenti.......ma tu come fai ad aggiornare l'archivio ?

Una risposta semplice non c'è.

Spesso non aggiorno perchè mi è comodo avere fissa l'estrazione finale e con questo il periodo oggetto di osservazione.

Se si tratta di aggiungere solo una estrazione urgentemente
la prendo dal sito che la propone più velocemente o in quel momento.

Ho script per importarla dal televideo ed eventualmente aggiungerla anche ad un archivio testuale.

Quello che ho dato a Silop e che avete indirettamente utilizzato a lungo

Poi similmente posso aggiornare dall'archivio di Gam.

Da Oscar (non più funzionante) mentre recentemente ho reso funzionante quello da brightstar...

Tra i piu recenti ho aggiornato l'archivio con uno script che usa l'archivio di Lottologia. Quello che hai mostrato in immagine.

Infine già di quest'anno ho ri-sistemato lo script per utilizzare l'archivio di LottoPython.

Dunque quando leggo che scrivi "script" per me è come ipotizzare dove andrà a sbattere la biglia in un flipper.

La cosa che posso immaginare è che prima o poi finirà in buca.

Dunque .... Buona Domenica.

 

[Alien.]

Acc...sei come una foglia spinta dal vento e non si sa quando ti poserai forse ho capito dove devo andare a "parare" so leggere fra le righe ma non gli script ,perchè scusa non si scrive così.

 

[joe]

Scusa se, oggi, insisto.

Se io scrivo: "Non funziona"

Ti chiedo cosa vuol dire: "Non funziona" ?

Spaziometria, un programma In Python, Pascal, Delphi, VBa, il collegamento internet, L8, il sito xyz, L' I.A. ...

Capisci anche tu che una frase senza soggetto e senza complemento oggetto

non esprime un concetto di senso compiuto.

Non riesco ad aggiornare L8 (verisone tale)

Questo script si blocca (con questo errore in questa riga)

Questo ritardo/frequenza sono sbagliati (perchè .... ).

Soggetto, verbo, complemento oggetto permettono di esprimere un concetto.

Tutto il resto non serve a nulla!

Crea solo dei post inutili che probabilmente non avranno mai risposta perché non la si può dare.

Non è scritto tra le righe è ben esplicito!

 

[Alien.]

Ma joe sei un po "birichino" non ho mai scritto che " non funziona" si lo so è un esempio ma ti ho scritto che adesso mi funziona tutto bene dopo lo script archivio, spaziometria ecc...ma ti ho semplicemente chiesto come aggiorno superenalotto adesso ! riuso sempre lo script ? e null'altro .

 

[joe]

Ma joe sei un po "birichino" non ho mai scritto che " non funziona" si lo so è un esempio ma ti ho scritto che adesso mi funziona tutto bene dopo lo script archivio, spaziometria ecc...ma ti ho semplicemente chiesto come aggiorno superenalotto adesso ! riuso sempre lo script ? e null'altro .

Birichino ?

Troppo buono Lei.

Se hai uno script che funziona ...

... usi semplicemente lo script che funziona.

 

[Alien.]

Grazie per la cordiale risposta e.....
Sono onorato del LEI !

 

[Duplex]

Mi scuso se intervengo. Grazie alla IA ho modificato molti script, ove possibile, ovviamente dando in pasto alla IA uno script qualsiasi che attingesse all'archivio estrazioni di Spaziometria,il che è molto importante. Provateci,hai visto mai?

 

[Lottopython]

Mi scuso se intervengo. Grazie alla IA ho modificato molti script, ove possibile, ovviamente dando in pasto alla IA uno script qualsiasi che attingesse all'archivio estrazioni di Spaziometria,il che è molto importante. Provateci,hai visto mai?

perchè scusarti ..anzi se puoi dare indicazioni piu precise a tal riguardo ,cosa modificare ,come farlo ,quali prompt hai usato , quale IA ti è venuta in soccorso o condividere semplicemente lo script modficato. sempre che ci sia un archivio valido.

 

[joe]

Buona sera a tutte/i,

Ho questo script che è una arlecchinata fatta di 1000 modifiche,

che nel tempo ho apportato ad un vecchio lavoro adattandolo alla lettura degli archivi più disparati.

A me funziona.

(La versione 4.2 sta ad indicare che è adatto alla stessa versione del programma LottoPython e del suo Archivio Remoto).

ption Explicit
Sub Main
     'Agg_Lotto V.4.2 By Joe *** Archivio LottoPython ***  - 06/01/2026 -
     'Script per Spaziometria By Joe.
     Dim sFileLoc
     Dim nEstrTot,sDataLastEstr,k,r
     Dim sDataEstr,nNumEstr,nSalvate
     Dim b
     Dim sFileBd
     Dim sLink
     Dim Ia,N,sVV,x
     Dim CfrData
     Dim Vecchio,Nuovo
     Dim V
     Dim E
     Dim S: S = String(4," ")
     sLink = "https://raw.githubusercontent.com/Lottopython/exstrazionales/refs/heads/main/Estrazionales%20lotto.txt"
     b = False : N = False
     nSalvate = 0
     sFileBd = GetDirectoryAppData & "BaseDati.dat"
     Scrivi sFileBd,1,,,2 : Scrivi
     sFileLoc = GetDirectoryAppData & "ArcTlv\"
     Messaggio "Agg_Lotto V.3 By Joe *** Archivio LottoPython ***"
     If CreaDirectory(sFileLoc) Then
          sFileLoc = sFileLoc & "Archivio.txt"
          If DownloadFromWeb(sLink,sFileLoc) Then
               nEstrTot = EstrazioniArchivio
               sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
               Vecchio = Right(sDataLastEstr,4)
               Ia = IndiceAnnuale(nEstrTot)
               ReDim aRighe(0)
               Call LeggiRigheFileDiTesto(sFileLoc,aRighe)
               For k = 0 To UBound(aRighe) Step 12
                    AvanzamentoElab 1,UBound(aRighe),k
                    ReDim aV(0)
                    If Len(aRighe(k)) = 53 Then
                         sDataEstr = Left(aRighe(k),2) & "/" & Mid(aRighe(k),4,2) & "/" & Mid(aRighe(k),7,4)
                         ReDim aEstr(11,5)
                         For r = 0 To 10
                              sVV = Right(aRighe(k + r),27)
                              V = Split(sVV,S) 'Spazio
                              For x = 0 To 4
                                   aEstr(r + 1,x + 1) = V(x)
                              Next
                         Next
                         Nuovo = Right(sDataEstr,4)
                         If b Then
                              If Nuovo <> Vecchio Then Ia = 0 : Vecchio = Nuovo
                              If sDataEstr <> sDataLastEstr Then
                                   Ia = Ia + 1
                                   nNumEstr = Ia
                                   If nNumEstr > 0 And IsDate(sDataEstr) Then
                                        If CfrData <> sDataEstr Then
                                             If SalvaEstrazione(aEstr,sDataEstr,nNumEstr,sFileBd) Then
                                                  CfrData = sDataEstr
                                                  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
                    Else
                         Scrivi "Errore nel Download"
                    End If
               Next
               If nSalvate > 0 Then AllineaArchivi
          Else
               Scrivi "Errore nella creazione Dei File Necessari"
          End If
          Call Scrivi("Aggiornamento Lotto V.4.2 By Joe *** Utilizza Archivio lottoPython ***",1)
          Call Scrivi("")
          Call Scrivi("Estrazioni trovate in Archivio Remoto " & QuantitaEstrazioniInFile(sFileBd))
          Call Scrivi("")
          Call Scrivi("Archivio Locale Aggiornato all' Estrazione N° " & IndiceAnnuale(EstrazioniArchivio) & " del " & DataEstrazione(EstrazioneFin,,,"/"))
          Call Scrivi("")
          Call Scrivi("- Sono state Aggiunte " & nSalvate & " Estrazioni -",1,,,1)
          Call Scrivi("")
     End If
End Sub