Aggiornamento archivi del 12/4 errato?

[giomi]

ho provato il tuo listato , e funziona molto bene ,
ti posto il mio listato .da provare , se vuoi me lo integri con le tue soluzioni ,

 

[joe]

Ciao, giomi,

non voglio sembrare scortese ma è molto difficile lavorare su script fatti da altri.

Tra questi ci sono lavori ... che non si riescono (o più modestamente non riesco) ad interpretare,

perché cosa si trova scritto, potrebbe essere contemporaneamente un errore,

o una soluzione molto-ottimizzata di un problema complesso e risolto a quel modo.

Dunque avendo lo schema contenuto in uno script funzionante il consiglio è quello di

di mantenere, la sua struttura, e su questa inserire il proprio lavoro.

Le parti critiche e più difficili da gestire sono quelle relative alle date anche perché

esse sono trattate, manipolate e cambiate di formato dal Sistema Operativo.

Per il resto l'altra cosa difficile è far seguire le nuove estrazioni alle vecchie,

senza accavallarle, ripeterle e saltarle. Allineare ANCHE l'indice annuale.

Per questo appunto io preferisco mantenere la struttura dello script che si sa essere funzionante,

e poi adattare dati e parametri.

Preservando la struttura portante che si sa essere funzionante e già sottoposta a molte prove.



PS: Ho provato e sembra funzionare bene (con W10) sia con una che con più estrazioni mancanti.

 

[rosemary]

Ciao RoseMary, prova questo script.

Provato con XP / Vista / 8 / 10

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
         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

perfetto, ha funzionato! Ora lo salvo e ogni volta lancio lo script, immagino...
Grazie a tutti per la vostra cortesia

 

[giomi]

ho capito
ma se ti verra voglia , basta che ci metti il b e z al posto giusto
se vuoi ti posto il tuo listato con la possibita di ripristino archivio

 

[joe]

perfetto, ha funzionato! Ora lo salvo e ogni volta lancio lo script, immagino...
Grazie a tutti per la vostra cortesia

Ciao.

Sì, giusto, lo script è un insieme di istruzioni. che il computer può eseguire per aggiornare l'archivio.

Salvando il contenuto dello script, il computer lo conserva e ne memorizza le istruzioni.

Esse possono essere richiamate e ri-eseguite ogni volta che si desidera aggiornare l'archivio.

Lo si fa eseguendo nuovamente lo script che si era salvato.

Ringrazio sia te che Giomi, per aver provato lo script ed averne confermato il funzionamento.

ho capito
ma se ti verra voglia , basta che ci metti il b e z al posto giusto
se vuoi ti posto il tuo listato con la possibita di ripristino archivio

Come dicevo adattando, i dati, raccolti sul Web,

alla struttura di uno script spesso già rielaborato più volte,

è possibile vi rimangano imprecisioni, o parti di esso, inutili.

Faccio un esempio: Se l'indice annuale è già presente tra i dati ... inutile calcolarlo,

se nei dati utilizzati precedentemente non c'era ...

lo script doveva avere, nelle sue istruzioni, una routine per questo calcolo.

Dunque nel nuovo script, tutto questo calcolo, le variabili

ed il codice necessario per l'allineamento, sono inutili.

Dunque è da consideararsi sbagliato ed uno spreco di risorse mantenere calcoli inutili.

Il "b" serve, nello script originale, per attivare la scrittura in archivio,

appena trovata una nuova da non ancora presente.

In sintesi serve per attivare l'aggiornamento vero e proprio.

Si possono trovare ANCHE altre soluzioni o ripristinare quella.

Il ripristino dell'archivio è sicuramente MOLTO utile principalmente

in caso di sostituzione (dell'archivio stesso) e in tutti i casi in cui

quello importato fosse corrotto o ormai non aggiornato.

 

[joe]

Ciao Giomi.

Ho notato che insisti per leggere le estrazioni dal 1871.

Essendo uno script per aggiornare ... io avevo ritenuto opportuno considerare solo un paio di anni addietro,

Effettivamente se lo script fosse in grado di costruire tutto l'archivio, non sarebbe male.

Però se cancello l'archivio, poi, "il tuo" script non funziona.

"Il mio" riesce ad eseguirsi ... ma probabilmente non avendo una data iniziale ... non carica le estrazioni.

Dovrò pertanto fare un pò di prove per cercare di renderlo in grado di funzionare meglio.

 

[giomi]

usando il tuo sript ,questo puo
AGGIORNARE
RIPRISTINARE
RICREARE DA ZERO
joe provalo

 

[joe]

Ciaso giomi,

E' Ok ...

... ho provato a ripristinare da un backup vuoto e naturalmente ha cancellato tutte le estrazioni.

Analogamente ha funzionato bene la costruzione totale dell'archivio che ha importato 1016 Estrazioni.

L'unica cosa io avevo evitato di raddoppiare lo script con il copia-incolla semplicemente,

attivando il già citato flag "b" con:

If nEstrTot = 0 Then b = True

 

[happy]

Ciao, ho provato entrambi gli script con win 10 e funzionano.
Grazie per averli condivisi.
E' possibile sostituire l'archivio-lotto principale con un archivio virtuale personalizzato caricandolo dal proprio pc , modificando lo script che offre la possibilità di sostituire l'intero archivio ? Oppure esiste un' altro modo per farlo?
Grazie

 

[joe]

Ciao, happy sicuramente si ... se la struttura è uguale

come nel 1871 ... non ci sono tutte le ruote ...

negli eventuali spazi vuoti, ci si mettono degli zeri.

Si Spaziometria può trattare archivi in formato testo.

Ma non ho particolari esperienze al riguardo.

Puoi cercare tra gli script di esempio.

o qui nel forum. Ricordo che qualcosa è stato scritto.

 

[happy]

Ciao, happy sicuramente si ... se la struttura è uguale

come nel 1871 ... non ci sono tutte le ruote ...

negli eventuali spazi vuoti, ci si mettono degli zeri.

Si Spaziometria può trattare archivi in formato testo.

Ma non ho particolari esperienze al riguardo.

Puoi cercare tra gli script di esempio.

o qui nel forum. Ricordo che qualcosa è stato scritto.

Ciao joe, grazie per l'informazione, provo a cercare .

 

[giomi]

joe puo fare guida illustrata questa procedura
per happy
vai su
base dati
archivio untente
imposta archivio utente
imposta
istruzioni

Richiesto file excel con le prime 56 colonne valorizzate
La prima riga deve contenere l' intestazione delle colonne
La prima Colonna deve contenere la data estrazione
dall colonna 2 in poi ci sono i numeri estratti

per ripristinare
reimposta archivio originale
spunta archivio originale lotto

esempio , rinomina estensione in .xls , office 07

 

[joe]

Penso che non sia necessaria la guida su come utilizzare,

quanto LuigiB ha fatto, per rendere semplice l'uso di un archivio proprietario.

Piuttosto esso deve essere predisposto (formattato) per lo scopo.

Duque forse è più utile, o forse viene solo prima, lo script per creare questo archivio.

O quello per adattare l'archivio di cui si dispone alle esigenze di Spaziometria,

qualora esso, non fosse già adatto alle necessità.

 

[happy]

Grazie giomi per aver indicato come caricare l'archivio utente e per il file archivio.xls, quando torno a casa provo la procedura.

Allora joe, se ho capito, tu suggerisci che il modo migliore sarebbe creare con Spaziometria uno script per generare/modificare l'archivio personale con la formattazione richiesta e salvarlo in un file testo, poi importarlo in execel per salvarlo come .xls ed infine utilizzare la procedura "archivio utente" indicata da giomi, oppure alludevi alla possibilità di creare uno script che permettesse anche di bypassare l'uso di execel e la procedura per l'archivio utente ?
Spero di essere riuscito a spiegare e di non aver detto cavolate, grazie.

 

[joe]

Penso,meglio sono certo che che LuigiB sia uno MOLTO esperto in Excel, Sistemi Operativi, VBScript ed Informatica.

Spaziometria è frutto del compromesso e della commistione nata da tutta questa Esperienza.

Dipende, se si ha già l'archivio (come testo) si può renderlo compatibile.

Se invece è solo un progetto meglio crearlo direttamente con spaziometria

In ogni caso, meglio avere una descrizione del progetto.

Un passaggio si può saltare, creando direttamente un file CSV.

Oppure meglio ancora "incollare" il lavoro direttamente in Excel.

 

[happy]

Questo appare se cerco di aprire il file con EXCEL, che faccio apro?

joe: Se invece è solo un progetto meglio crearlo direttamente con spaziometria
In ogni caso, meglio avere una descrizione del progetto.

Si joe è un nuovo progetto.
La descrizione del progetto è molto semplice voglio sostituire i 5 estratti di ogni estrazione con 5 numeri casuali.
Propenderei per un file csv, ma va bene anche passare direttamente i dati ad Excel. Grazie.

 

[Membro cancellato 19206]

حذف · إزالة · إلغاء · محو · حذفه · مسح · شطب · قم بحذف.

 

[joe]

Si joe è un nuovo progetto.
La descrizione del progetto è molto semplice voglio sostituire i 5 estratti di ogni estrazione con 5 numeri casuali.
Propenderei per un file csv, ma va bene anche passare direttamente i dati ad Excel. Grazie.

Ciao,
per quanto possa sembrare semplice qualche problemino salta sempre fuori.
Il primo dipende dal fatto che generando 5 numeri casuali interi (nei limiti di 1 e 90),
in alcuni casi ci potrebbero essere dei doppioni.

Ma questo si risolve molto facilmente ed anche se non specificato.
Suppongo si debbano replicare le regole note.
NON ci devono essere numeri duplicati tra i cinque.

Il secondo è più subdolo.

Noi si è abituati alla regola che il nostro archivio sia "statico",
una volta estratti i numeri quelli sono UGUALI PER TUTTI e NON cambiano.
Mentre quelli generati casualmente da uno scirpt dipendono dall'istante. in cui sono generati.
Variano di volta in volta, di estrazione in estrazione, da un archivio all'altro.

Dunque occorrerebbe che creato e salvato "UN" ARCHIVIO CASUALE, esso dovrebbe conservarsi così come è.

Una eventuale nuova estrazione di aggiornamento dovrebbe aggiungersi semplicemente in coda,
senza "rifare" TUTTO UN ARCHIVIO NUOVO e peggio TUTTO DIVERSO.

In ultimo se dovessero essere create più copie, da utenti diversi ... ognuno avrebbe un suo archivio...
con numeri diversi da quelli di ogni altro archivio e di ogni altro utente.

In ultimo, la questione della dimensione e delle date.

Quanto deve essere grande? Le Date di presenza e di assenza delle estrazioni (con i relativi "buchi")

replicano pari-pari quelli dell'archivio tradizionale?

Oppure i deve fare un archivio più piccolo / più regolare / più omogeneo o meno ... ?

Sarà possibile che qualcuno renda disponibile OnLine un Archivio Casuale (aggiornato) ?

 

[happy]

Ciao,
per quanto possa sembrare semplice qualche problemino salta sempre fuori.
Il primo dipende dal fatto che generando 5 numeri casuali interi (nei limiti di 1 e 90),
in alcuni casi ci potrebbero essere dei doppioni.

Ma questo si risolve molto facilmente ed anche se non specificato.
Suppongo si debbano replicare le regole note.
NON ci devono essere numeri duplicati tra i cinque.

Il secondo è più subdolo.

Noi si è abituati alla regola che il nostro archivio sia "statico",
una volta estratti i numeri quelli sono UGUALI PER TUTTI e NON cambiano.
Mentre quelli generati casualmente da uno scirpt dipendono dall'istante. in cui sono generati.
Variano di volta in volta, di estrazione in estrazione, da un archivio all'altro.

Dunque occorrerebbe che creato e salvato "UN" ARCHIVIO CASUALE, esso dovrebbe conservarsi così come è.

Una eventuale nuova estrazione di aggiornamento dovrebbe aggiungersi semplicemente in coda,
senza "rifare" TUTTO UN ARCHIVIO NUOVO e peggio TUTTO DIVERSO.

In ultimo se dovessero essere create più copie, da utenti diversi ... ognuno avrebbe un suo archivio...
con numeri diversi da quelli di ogni altro archivio e di ogni altro utente.

In ultimo, la questione della dimensione e delle date.

Quanto deve essere grande? Le Date di presenza e di assenza delle estrazioni (con i relativi "buchi")

replicano pari-pari quelli dell'archivio tradizionale?

Oppure i deve fare un archivio più piccolo / più regolare / più omogeneo o meno ... ?

Sarà possibile che qualcuno renda disponibile OnLine un Archivio Casuale (aggiornato) ?

Ciao Joe,
è vero l'utilizzo di un generatore di numeri pseudocasuali comporta le criticità da te evidenziate e forse anche altre.
Confermo che non devono esserci ripetizioni all' interno della stessa "estrazione".
L'archivio va generato interamente una sola volta e poi regolarmente aggiornato.
Va bene che l'archivio sia unico.
Le date devono corrispondere a quelle reali, a partire dal:
14/09/1946 – Data riconosciuta come inizio del Lotto Moderno con Archivi privi di buchi estrazionali.

Mi sorge una domanda: ma le venus sono veri generatori casuali, o sono pseudocasuali, o forse sono un ibrido?
GRAZIE.


x gcarlo

salve
secondo me , puoi fare
aprirlo lo stesso
o basta che rinomini il file , o togliendo l ' estensione ".txt" , o rinominandolo "Archivio Utente.xls"

Ciao
il file ha estensione .xls, però viene visto come .txt

 

[joe]

Ciao Happy,

Alcune cose ... erano nelle cose.

Dal 1946 semplifica un pò, ma se si devono far aderire le estrazioni dell'archivio casuale

a quelle dell'archivio reale, le cose si complicano un pochino.

Poi ... per aggiornare penso ci vorrà un programma apposito. (Ma si fa)

Dunque una domanda secca: Perché non utilizzi semplicemente uno degli paralleli L1 / L2 / L... ?

Già ci sono questi archivi virtuali. Già si aggiornano automaticamente e non ultimo sono già UGUALI PER TUTTI!