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

[joe]

joe perche hai cancellato lo script al messaggio 1000 ? è QUELLO CHE MI HA CREATO IL CORNETTO MA IO LO MANGIO VEGANO.

ED è QUESTO

Option Explicit
Sub Main
Dim D,S,sFile,Riga
D = GetDirectoryAppData
S = Split(D,"\")
sFile = S(0) & "\" & S(1) & "\" & S(2) & "\Desktop\Download Archvio.bat"
Riga = """" & D & "Wget.exe" & """" & " -O " & """" & D & "BaseDatiSuperEna.Dat" & """" & " --no-check-certificate www.silop.it/spaziometria/BaseDatiSuperEna.Dat"
Call EliminaFile(sFile)
Call ScriviFile(sFile,Riga)
Call LanciaFile(sFile)
End Sub

COSA HA ELIMINATO : Call EliminaFile(sFile)



******************************************************************************

Ciao Alien

prova a controllare se con questo script risolvi il problema :

Codice:
Rimosso dall' autore
Dopo averlo eseguito chiudi e poi riavvii Spaziometria e controlli se ha trovato l'ArchivioSE.



Ultima modifica: Ieri alle 22:48

Devi considerare alcune cose :

Il regolamento del sito vorrebbe che non si mettessero indirizzi web.

E ... come vedi riportando lo script lo hai messo !

Secondo, hai scritto che ... aveva cancellato dei tuoi file. E' COSA NON VERA !

Eppoi ancora, hai sollevato dubbi ... e non ce ne possono essere perché:

A) E' un file di testo.

B) E' uno script in chiaro.

C) E' esplicito cosa cancella : SFile = "Download Archvio.bat"

D) E' esplicito cosa Crea : SFile = "Download Archvio.bat"

E) Inoltre NON ti serve e ... a detta tua non funziona.

In ultimo devi considerare che Silop, ha scritto, che rende disponibile il file necessario "a fine mese".

Si era a fine mese ed eseguirlo avrebbe aggiornato il database.

Mentre ADESSO cancellerebbe le ultime estrazioni riportando l'archivio indietro al 30/06/2026.

Pertanto non c'erano ragioni per lasciare uno script dedicato alla soluzione di un problema specifico.

In ultimo ho già spiegato alcune volte perché cancella il vecchio file prima di scrivere quello nuovo.

E' inutile continuare a chiedere cosa cancella se poi "rifiuti" il contenuto del a risposta.

Per essere esplicito e per l'ultima volta: Cancella (se c'è) il file DOWNLOAD ARCHIVIO.BAT dal Desktop per poi riscriverlo ex-novo.

 

[joe]

Il rovescio della medaglia:

Come vedi dall'immagine da te postata e riproposta da altri,

Hai dei file riconosciuti dal sistema operativo dei quali nell'immagine non è visibile di che tipo sono:

Non è visibile la loro estensione.



Cioè sono file.exe, file.txt, file.dat, file.pdf ecc. ecc. e di essi non viene scritto .exe, .txt, .dat, .pdf, ecc. ecc.

Poi ci sono file con il nome teoricamente impossibile (perché la loro estensione non dovrebbe essere visualizzata)

come per esempio ci sono "BaseDatiSuperEna.Dat" e "BaseDati.dat".

File che hai cancellato, esattamente come hai cancellato "BaseDatiSuperEna"

Dunque se vuoi sapere chi ha cancellato il tuo file la risposta è semplice e concisa:

TU.

 

[Alien.]

Si adesso ho cancellato tutto poi ripreso da qua spaziometria ho ancora più caos .No joe mi funzionava tutto ma non vedevo l'archivio supenalotto ma ormai è un altra storia.



ma ho aggiornato tutto con gli script lotto e superenalotto ma non si vede nulla .

ho anchè l'imbuto intasato. Vorrei buttarmi dalla via lattea ma poi casco sulla terra......che è ancora peggio.....

adesso è cosi§:




scarica qua da CED credevo fosse completo ma......acc... ho le castagne al fuoco.

 

[Reacher]

I basedat hanno dimensione 0kb quindi non hai sostituito nulla ecco perché l archivio è ancora vuoto
Continui a sbagliare
E sospetto che il tuo disco possa avere problemi.... Penso....

 

[joe]

Spaziometria vede ZERO estrazioni in archivio,

ed il sistema operativo indica che BaseDati.dat è vuoto.

Mentre hai l'Archivio del SuperEnalotto.

Se esegui questo script che ti ho fatto dovresti avere una copia dell' Archivio del SuperEnanoltto

che da 49 KB diventa 75 KB (se ricordo bene).

Option Explicit
Sub Main
Dim D,S,sFile,Riga
D = GetDirectoryAppData
S = Split(D,"\")
sFile = S(0) & "\" & S(1) & "\" & S(2) & "\Desktop\Download Archvio.bat"
Riga = """" & D & "Wget.exe" & """" & " -O " & """" & D & "BaseDatiSuperEna.Dat" & """" & " --no-check-certificate www.silop.it/spaziometria/BaseDatiSuperEna.Dat"
Call ScriviFile(sFile,Riga)
Call LanciaFile(sFile)
Call EliminaFile(sFile)
End Sub

Esegui questo script e controlla se ti ha scaricato l'archivio del SuperEnalotto aggiornato al 30/06/2026 e/o 08/07/2026.

Non fare nient'altro.

 

[joe]

Intanto vedo che ti mancano 2 file (cioè sono vuoti) :

BaseDati.dat e Premi.dat che sono indispensabili per avere l'archivio del Lotto e per calcolare il rendiconto delle giocate.

Però prima sistema il SuperEnalotto.

Così possiamo controllare se i suggerimenti funzionano e mi raccomando non installare e cancellare nulla.

Altrimenti non sappiamo MAI cosa è fatto, cosa c'è da fare, cosa funziona e cosa no, cosa c'è e cosa non c'è.

Di buono, per adesso, c'è che si ha meno caos ed una corrispondenza/congruenza tra Archivio, Programma e File.

 

[Alien.]

Ciao joe ho cancellato tutto la directory 1.5.64 ed ho preso la 1.6.34 spaziometria perfetto solo che anche eliminato gli otre 120 script che avevo ho aggiornato il tutto lotto e superenalotto sviluppo gli script lotto tutto ok mi è rimasto uno script superenalotto lo lancio ma nulla da fare mi da:



HO VISTO SOLO ADESSO IL POST SOPRA CON LO SCRIPT ASPETTO A LANCIARLO VEDI SOTTO COSA HO:



adesso ho questo quindi manca solo che lo script non si "collega " all'archivio:
CONFRONTA CON IL TUO VEDI COSA MI MANCA.





ci sono anche vari 0kB

2 BASE DATI SUPERENA.DAT QUALE CANCELLO: 49KB

DOVREBBE MANCARE UNA CARTELLA GIALLA .

 

[Alien.]

IL LOTTO CON GLI SCRIPT LI ESEGUE IL SUPER NO.

 

[joe]

Alien,

mi spiace ma non mi è possibile aiutarti.

La situazione è troppo pasticciata da installazioni su installazioni e disinstallazioni,

che hanno mescolato e cancellato i file che ci dovrebbero essere.

Purtroppo ritengo sia impossibile recuperare questo caos.

 

[Alien.]

I basedat hanno dimensione 0kb quindi non hai sostituito nulla ecco perché l archivio è ancora vuoto
Continui a sbagliare
E sospetto che il tuo disco possa avere problemi.... Penso....

Già lo credo anch'io ho un SSD FATTO METTERE 2/3 ANNI FA pagato 100 € POI VADO A VEDERE IL MARCHIO E MODELLO SU INTERNET COSTA 25 € (bravi ragazzi)-Se acquisto un SSD da esterno ci posso trasportare tutto quello che ho sul pc programmi office ecc.?





superenalotto aggiorno tutto con gli script.






manca solo il collegamento con gli script all'archivio ci vorrebbe TARZAN con le liane.

 

[Reacher]

No l installazione va solo su disco interno
Scarica crystal disk info e controlla lo stato del disco
È un primo controllo che farei
Poi penserei a spaziometria

 

[joe]

Secondo me ... bisogna prima ingessargli le mani, e poi portargli via il portafoglio. Altrimenti prima compra e poi installa spaziometria per la 1'234esima volta anche su qualche altro supporto.

 

[Reacher]

 

[joe]

Se Spaziometria usa un archivio SuperEnalotto ed un ArchivioLotto,

e li riferisce aggiornati, evidentemente ha il collegamento ai 2 file

di maggiori dimensioni che non sono certamente quelli vuoti.

Quindi prima cosa non installare e non cancellare niente.

 

[joe]

Ciao joe ho cancellato tutto la directory 1.5.64 ed ho preso la 1.6.34 spaziometria perfetto solo che anche eliminato gli otre 120 script che avevo ho aggiornato il tutto lotto e superenalotto sviluppo gli script lotto

Poi bisogna capire quale versione di Spaziometria c'è installata.

Perché nei messaggi viene sempre cancellato il titolo della GUI principale ...

e ... dalla descrizione sembra di leggere numeri a caso!

Per gli script ... cancellandoli ... si cancellano.

Si potrebbero forse recuperare almeno in parte, se non ci fossero

state installazioni successive di programmi corposi come Spaziometria,

ma ora è +/- come piangere sul latte versato.

 

[joe]

Ribadisco che non mi sono mai interessato al SuperEnalotto nelle sue evoluzioni.

Del suo archivio, però mi sembra di ricordare che è cambiato nel tempo.

Dunque bisogna sapere quale versione di Spaziometria c'è installata,

Perché se è una vecchia versione potrebbe non funzionare con i nuovi script.

Quale archivio c'è ... e, non ultimo, quale è lo script che non funziona.

Perché se c'è uno script che, non funziona, potrebbe essere,

solo un problema dello script.

Script che naturalmente va provato su altre macchine,

per verificare se funziona o se ha dei problemi

In somma, per poter confrontare i suoi risultati.

 

[Alien.]

È MI TOCCHERA FARE TUTTI GLI SVILUPPI CON EXCEL NON E DIFFICILE MA NOIOSO NON HO LA VISUALE DI UN ANNO PER VALUTARE- BEATI GLI ALIENI POCO TERRESTRI .-

 

[joe]

Se non metti lo script non si può verificare perché non funziona.

 

[joe]

Con Google, Cercando LottoCed Script SuperEnalotto,

mi trova questo file fatto da LuigiB per Marpioncella:

Option Explicit
Dim aColonne()
Sub Main
   Dim Inizio,Fine
   Dim k,j
   Dim nCadenza
   nCadenza = 3
   Inizio = ChiediValore("Inizio ricerca",EstrazioniArchivioSE - 200)
   Fine = ChiediValore("Fine ricerca",EstrazioniArchivioSE)
   ImpostacolonneInGioco
   For k = Inizio To Fine
      AvanzamentoElab Inizio,Fine,k
      If QuantitaNumInCadenza(k,nCadenza) >= 2 Then
         For j = 0 To UBound(aColonne)
            ReDim aN(0)
            Call SplitByChar(aColonne(j),"-",aN)
            Call ImpostaGiocataSE(j + 1,aN,1,100)
         Next
         Call GiocaSE(k)
      End If
   Next
   Call ScriviResocontoSE
End Sub
Function ChiediValore(s,Valdef)
   ChiediValore = CInt(InputBox(s,,Valdef))
End Function
Function QuantitaNumInCadenza(idEstr,nCadenza)
   Dim k
   Dim q
   q = 0
   For k = 1 To 6
      If Cadenza(EstrattoSE(idEstr,k)) = nCadenza Then
         q = q + 1
      End If
   Next
   QuantitaNumInCadenza = q
End Function
Sub ImpostacolonneInGioco()
   ReDim aColonne(15)
   aColonne(0) = "1-14-55-77-80-89"
   aColonne(1) = "1-35-42-55-57-62"
   aColonne(2) = "2-55-70-77-81-90"
   aColonne(3) = "3-15-67-69-70-75"
   aColonne(4) = "3-17-48-66-77-90"
   aColonne(5) = "4-8-26-32-62-88"
   aColonne(6) = "4-64-67-68-79-90"
   aColonne(7) = "18-19-32-73-77-88"
   aColonne(8) = "5-14-48-52-77-90"
   aColonne(9) = "18-45-67-70-77-90"
   aColonne(10) = "19-22-49-55-70-88"
   aColonne(11) = "19-26-55-67-68-83"
   aColonne(12) = "19-47-69-71-88-90"
   aColonne(13) = "26-48-55-66-69-90"
   aColonne(14) = "26-55-59-63-69-77"
   aColonne(15) = "34-36-55-62-66-88"
End Sub

L'ho modificato per limitare la ricerca alle ultime 200 Estrazioni.

Restituisce questo resoconto :

In corso per altre 91 estrazioni
+-------------------------------------+
| Prima Giocata : 4036 |
| Ultima Giocata : 4214 |
| Range : 179 |
| Casi giocab perc. : 15,084% |
+-------------------------------------------------+
| RESOCONTO |
+-------------------------------------------------+
| Casi esaminati : 27 |
| Casi vincenti : 27 |
| Percentuale pos. : 100 % |
| Pronostici totali : 432 |
| Pronostici vinc. : 384 |
| Percentuale pos. : 88,89 % |
| Giocate in corso : 240 |
| Giocate terminate : 192 |
| Bollette giocate : 30.528 |
| Bollette vincenti : 1.370 |
| Attesa media : 19 |
| Spesa : 30.528,00 € |
| Mass. Esposizione : 1.600,00 € |
| Estratto : 0 |
| Ambo : 1.261 |
| Terno : 109 |
| Quaterna : 0 |
| Cinquina : 0 |
| Sestina : 0 |
| 5+1 : 0 |
+-------------------------------------------------+

Poi non ho idea, se sia giusto, sbagliato funziona oppure no.

 

[Asuniverso]

Salve a tutti premetto che di programmazione ne capisco poco, avevo il programma spaziometria che era aggiornato al 2024, ho chiesto ad un amico gli archivi aggiornati.... BaseDati e BaseDatiSupeEna ho fatto il copia ed incolla e tutto è aggiornato. Vedo che fate tanti passaggi che trovo complicati per gli aggiornamenti; chiedo perchè tutti questi passaggi? Quando basta fare il copia ed incolla degli archivi e tutto torna aggiornato.

Scusate la mia invadenza ma la mia è solo curiosità.