Aggiornamento archivio lotto e superenalotto per SPAZIOMETRIA da spazio/web silop

[Alien.]

È MOLTO interessante notare che nel messaggio da me inviato, lo SPAZIO SBAGLIATO nel nome dell'Archivio non c'è :

Vedi l'allegato 2317549

Come si sia aggiunto non saprei.

Per favore mi spieghi cosa è successo ? puoi rettificare lo script.

 

[Alien.]

Prima giocata ZERO
Ultima giocata ZERO

Significa che non esplora l'archivio.

esatto per lo script non esiste l'archivio mentre l'ho aggiornato dove va a vedere forse non ha gli occhiali !

 

[joe]

Il resoconto è l'ultima cosa.

Sistema prima l'Archivio.

 

[joe]

Cancella tutti quelli a Zero e quelli SuperEna.dat.

Esegui lo script del messaggio 1077 e controlli se ha scaricato l'archivio di 75 KB

 

[joe]

La priorità è avere l'archivio.

Un archivio giusto al posto giusto.

Se non è apposto l'archivio, non funziona nessuno script e neanche il programma Spaziometria.

Lo script per provare a vedere se c'è l'archivio che Spaziometria si aspetta di avere è questo :

Option Explicit
Sub Main
  Scrivi EstrazioniArchivioSE 
End Sub

Eseguito restituisce : 4233

 

[Lottopython]

chissà...

 

[Reacher]

esatto per lo script non esiste l'archivio mentre l'ho aggiornato dove va a vedere forse non ha gli occhiali !

3478969340 sentiamoci stasera alle 21.30 e ti guido cercando di sistemare la situazione.

MEGA

MEGA provides free cloud storage with convenient and powerful always-on privacy. Claim your free 20GB now

mega.nz

 

[joe]

Vedi l'allegato 2317592 chissà...

Il "problema" è più grande.

Se non ricordo male nelle ultime versioni dell'installazione LuigiB cambiava ed aggiungeva solo alcuni file.

Verificando quanto c'era già di installato aggiungeva o cambiava solo il necessario.

Quel che c'era ... rimane quel che era e se è sbagliato rimane sbagliato.

Si è assicurato ed ha garantito che in una installazione su un sistema pulito spaziometria funziona bene. (Da XP a Win11)

In ultimo se si mescolano file di versioni differenti è probabile che si generino conflitti.

Poi ...

Il nome dei file deve essere RIGOROSAMENTE quello giusto e la loro posizione anche.

Abbiamo visto che "uno spazio" in più non fa riconoscere il file-archivio al programma Spaziometria.

Ancora ...

Alcuni file sono ritenuti importanti e non si riesce a spostarli / rinominarli / cancellarli.

Oppure vengono rinominati automaticamente (per esempio durante il download) e non vanno più bene,

perché acquistano un nome diverso da quello che dovrebbero avere.

Dopo queste premesse è possibile che qualcosa non sia perfettamente allineato.

Considerando sempre che non ci siano errori nel Web e nel trasferimento dei dati.

Quello che posso aggiungere che il file (i file) presente/i sul sito di Silop sono giusti e compatibili con la versione 1.6.54.

Dunque che ci sia quel file esattamente, con quel nome, quella dimensione, è una delle prime cose di cui essere sicuri.

Poi eventualmente si dovranno ripristinare altre criticità che man-mano che si presentano.

 

[Alien.]

Vedi l'allegato 2317592 chissà...

SI è VERDE

La priorità è avere l'archivio.

Un archivio giusto al posto giusto.

Se non è apposto l'archivio, non funziona nessuno script e neanche il programma Spaziometria.

Lo script per provare a vedere se c'è l'archivio che Spaziometria si aspetta di avere è questo :

Option Explicit
Sub Main
  Scrivi EstrazioniArchivioSE
End Sub

Eseguito restituisce : 4233

2774

 

[joe]

Vede come prevedibile l'archivio più piccolo e vecchio.

Quest'altro script ti dovrebbe restituire la prima e l'ultima data delle estrazioni che hai in archivio.

Option Explicit
Sub Main
   Scrivi DataEstrazioneSE(1)
   Scrivi DataEstrazioneSE(EstrazioniArchivioSE)
End Sub

 

[Alien.]

UNA COSA STRANA COSI MI SVILUPPA IL SUPERENALOTTO

Ini = EstrazioniArchivioSE - estr
fin = EstrazioniArchivioSE
Tot = fin - Ini

COSI NO!

For es = 3334 To EstrazioniArchivioSE

QUESTO E UN VECCHIO LISTATO E FUNZIONA
Sub Main
Dim Riga,T,V,Nu(1)
estr = InputBox("Quante estrazioni Analizzo",,20)
Ini = EstrazioniArchivioSE - estr
fin = EstrazioniArchivioSE
Tot = fin - Ini
Scrivi "Presenze SuperEnalotto",1,1,,1,3,,1
Scrivi "Range Inizio : " & DataEstrazioneSE(Ini)
Scrivi "Range Fine : " & DataEstrazioneSE(fin)
Scrivi "Totali Estraz.: " & Tot
Scrivi
T = Array(T,"N.Presenze","Numeri","Q.tà")
Call InitTabella(T)
For x = 0 To estr
For n = 1 To 90
Nu(1) = n
If SerieFreqSE(Ini,fin,Nu,1) = x Then
k = k + 1
Riga = Riga & Nu(1) & " "
End If
Next
If Riga <> "" Then
V = Array(V,x,Riga,k)
Call AddRigaTabella(V)
End If
Riga = ""
k = 0
Next
Call CreaTabella()
End Sub








QUESTO E UN NUOVO LISTATO. E NON LO SVILUPPA DEVE AVER ALZATO IL GOMITO NON TROVA LA VIA DI CASA.....!!!

'LA SPIA 8 AL SUPERENALOTTO X ALIEN Vers.2 spia a scelta
'
'
Sub Main()

Dim nr(6),amb(6),amb1(6),amb2(6),amb3(6),amb4(6),amb5(6),amb6(6),amb7(6)
'
spia = InputBox("SCEGLI SPIA DA CERCARE",,8)
k = InputBox("COLPI DI GIOCO",,12)
For es = 3334 To EstrazioniArchivioSE
'If IndiceMensileSE(es) = 1 Then

If PosizioneSE(es,spia) > 0 Then
Scrivi"*** LA SPIA " & spia & " AL SUPERENALOTTO X ALIEN Vers.2 *** ",True,True,2,4,3
Scrivi"*** ALIEN *** ",True,True,2,4,3

'*********************************************************
amb(1) = Fuori90(90 + EstrattoSE(es,1) + 10)
amb(2) = Fuori90(90 + EstrattoSE(es,1) + 39)
amb(3) = Fuori90(EstrattoSE(es,1) * 71)
amb(4) = Fuori90(EstrattoSE(es,1) * 61)
amb(5) = Fuori90(90 + EstrattoSE(es,3) - 79)
amb(6) = Fuori90(90 + EstrattoSE(es,1) - 80)

Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb) Then
rip = 1
While NumeriRipetuti(amb)
For x = 1 To 5
For y = x + 1 To 6
If amb(x) = amb Then amb = Fuori90(amb + 1)
Next
Next
Wend
End If
Rem fine formula



SE ADESSO INSTALLO NUOVAMENTE SPAZIOMETRIA QUA DA CED COSA SUCCEDE !! ACC..............

 

[Alien.]

Vede come prevedibile l'archivio più piccolo e vecchio.

Quest'altro script ti dovrebbe restituire la prima e l'ultima data delle estrazioni che hai in archivio.

Option Explicit
Sub Main
   Scrivi DataEstrazioneSE(1)
   Scrivi DataEstrazioneSE(EstrazioniArchivioSE)
End Sub

02.01.2009
07.07.2026
MI PUò STAR BENE LO STESSO TANTO MI SERVONO LE ESTRAZIONI FUTURE