ARCHIVIO LOTTO DIY [UTILITY]

[joe]

Option Explicit
Sub Main
 'Archivio_X_L8.txt
 'Script By Joe
 Dim Ini,Fin,Es
 Dim R,P
 Dim sFile
 Dim sEstrazione
 sFile =("K:\Archivio_X_L8.txt") 'Specifica percorso di archiviazione
 Call EliminaFile(sFile) ' Elimina vecchie copie dell' archivio
 'Ini = 1 : Fin = 9376 'Verificato fino al 30 Settembre 2017
  Ini = 1 : Fin = EstrazioneFin 'Tuttol'archivio
 For Es = Ini To Fin
  AvanzamentoElab Ini,Fin,Es
  sEstrazione = DataEstrazione(Es,,,".")
  For R = 1 To 12
   If R = 11 Then R = 12
   For P = 1 To 5
    sEstrazione = sEstrazione & "." & Format2(Estratto(Es,R,P))
   Next
  Next
  'Call Scrivi(sEstrazione) ' scrivo a video l' Estrazione
  Call ScriviFile(sFile,sEstrazione) ' scrivo anche sul file preposto
 Next
 Call CloseFileHandle(sFile) ' chiudo l'handle al file
 Call LanciaFile(sFile) ' Verifica il file, con il NotePad
End Sub

Ed ora ... non rimane che utilizzare l' Archivio che abbiamo appena creato.

 

[i legend]

Ciao a tutti
complimenti per il lavoro che stai facendo Joe

 

[joe]

Grazie I Legend.

 

[Amedeo1972]

Ciao joe grazie per quello che fai , volevo chiederti come faccio ad utilizzare l'archivo fatto con il tuo script che e' un file di testo( TXT) per aggiornare L8 , grazie , ciao.

 

[joe]

Buon giorno a tutte/i.

Posto giustamente l'accento, sul fatto che dopo aver eseguito lo script,

sulla chiavetta vienescritto un "Archivio per il Lotto" in formato testo. (.txt)

Avendo, uno script per Spaziometria, eseguito con Spaziometria e con

l'archivio "preso" da Spaziometria, esso è l'archivio di Spaziometria.

Ovvero abbiamo, ANCHE, il BackUp dell'archivio Lotto di Spaziometria.

Questo archivio è leggibile e modificabile come qualsiasi testo.

Tale quale è ... è utilizzabile praticamente ovunque.

Tuttavia il formato del testo è IDONEO allo scopo che si era previsto.

Cioè per la procedura che sarà intrappresa,

TUTTE le volte che gli InputBox ce ne faranno rischiesta,

si confermarà premendo semplicemente "OK".

Così sarà, per TUTTE le opzioni, in cui, si confermeranno i valori default come proposti.

Riferendomi all'immagine già presente qualche messaggio sopra, (#99)

* SCEGLIAMO dapprima "Scambia Estrazioni" eppoi "Importa Archivio".

* SCEGLIAMO subito appresso "Archivio per Lotto" in "Formato Testo".

Cioè quello che abbiamo appena creato con lo script.

Confermando, come detto tutte le opzioni di default.

Nell' ’esecuzione di questa procedura, si vedranno conteggiate,

nel loro scorrere, tutte le Estrazioni del nostro File.

Contemporaneamente viene creato/trasferito/convertito questo nuovo archivio.

Al termine è notificata la creazione di un “BackUp” di questo nostro recente lavoro.

Leggiamo e teniamo a mente, il nome del file che è stato salvato sulla chiavetta.

Se si sono seguite le istruzioni che, avevo impartito non ci saranno messaggi di errore.

(In alternativa SE non si era rinominato il file esso potrebbe essere sovrascritto

e con questo andare cancellato il bachup dell'archivio che si aveva).

In estrema sintesi ora sulla chiavetta c'è ANCHE un NUOVO file.

Cioé "K:/Archivio***.***bak"

Non ci rimarrà che ripristinare questo nuovo/ultimo/corretto/aggiornato "BackUp" dell' Archivio,

così come lo abbiamo creato.

Questo "Percorso Inverso" è già stato descritto precedentemente.

Sarà Semplicemente Archivio / BackUp / Ripristina BackUp ... dopo del quale

si dovrà inserire “il percorso” ove presente il nostro nuovo archivio.

Era, nell'esempio, K:/Archivio***.***bak"

OK ... è necessario per confermare e terminare ... ed è fatto!

Consiglio di chiudere e riavviare il programma

per rendere pienamente attive tutte queste modifiche.

 

[joe]

Il "nuovo focus" è questo: Perchè c'erano o CI SONO ERRORI ?

La risposta principe è: Perchè li si è introdotti durante gli aggiornamenti.

Dunque considerando per esempio che, a fine Ottobre 2017,

il televideo ha introdotto CASUALMENTE un errore, (poi corretto)

nella Data delle Estrazioni, proprio quando, noi tapini, si cercava di non avere errori ...

Ho ritenuto opportuno "lasciare fuori" questi errori, piuttosto che importarli e poi correggerli.

Pertanto l'importazione dell' "ARCHIVIO BASE" era limitata al 30 / 09 / 2017.

Cioè ABBIAMO UN ARCHIVIO CONTROLLATO e SOLO PARZIALMENTE AGGIORNATO.

Per continuarlo senza errori ERA OPPORTUNO CHE NON si modificasse "furbettamente" lo script.

Chi lo ha fatto e facendolo ha introdotto degli errori,

come nel gioco dell'oca, ha come penalità quella di dover sottostare ad una scelta molteplice:

O si gestisce manualmente gli errori introdotti ...

O RITORNA ALLA PARTENZA e poi esegue le procedure descritte ... senza fare "il furbetto".

Entrambi sono validi perchè creano e forniscono "esperienza".

 

[pfca]

Buongiorno Joe, potresti per favore scrivere in quale data e in quale Ruota era presente l'errore
in modo da dare a tutti l'opportunità di correggerlo se si ha l'archivio sbagliato.
Grazie
Francesco

 

[joe]

Lavorando con i risultati in chiaro, prodotti dallo script,

cioè con l' "Archivio in formato testo", osserviamo che

le Estrazioni sono organizzate in linee.

Una Estrazione per ogni linea.

Tra le prime cose da farsi è sapere quante sono queste linee.

Poi quando è noto questo numero di estrazioni ...

cioè quante estrazioni ci sono, (anche se questo numero era noto)

si potrà facilmente, costruire anche l' utilty (utile appunto) per l'aggiornamento.

Codesta, in forma semi-automatica permetterà l'aggiornamento

riducendo al minimo la possibilità di introdurre errori.

Quelli di lettura / interpretazione / trascrizione / duplicazione ...

La "prima parte" dello script potrebbe esssere:

'Option Explicit
'Sub Main
''Eta-Beta By Joe
'Dim sFile,aRighe
'sFile = "k:/Archivio_X_L8.txt"
'Call LeggiRigheFileDiTesto(sFile,aRighe)
'sFile = "k:/Agg.txt"
'Call EliminaFile(sFile)
'Call ScriviFile(sFile,UBound(aRighe) + 2)
'Call CloseFileHandle(sFile)
'Call LeggiRigheFileDiTesto(sFile,aRighe)
'Call CloseFileHandle(sFile)
'Scrivi Eval (aRighe(0)) & "-" & EstrazioniArchivio
'End Sub

Con esso si crea un piccolissimo file (Agg.txt) "che sa"

quante sono le Estrazioni presenti nell' Archivio (txt).

In altre parole "quante estrazioni" sono memorizzate nell' Archivio ...

è equivalente al dire: "fino a quando" l' Archivio è aggiornato.

E' anche ciò che serve "per delimitare" il numero di estrazioni eventualmente necessarie.

(Tra parentesi "OGGI sarebbero" quelle di ottobre 2017 e le prime di novembre).

Eseguendo con Spaziometria questo script, esso dovrebbe dunque scrivere

IL LIMITE DEL PERIODO

ovvero "di quanto" siamo in ritardo, nell' inserire ed aggiornare le Estrazioni,

nell'archivio, del nostro vecchio programma.

 

[joe]

Ciao Francesco.

L' ultima Estrazione di Ottobre 2017

è stata proposta dapprima con data 01/11/2017.

Successivamente la data di questa Estrazione

è stata corretta in 31/10/2017.

In alcuni casi / siti / archivi, ci potrebbe essere,

come detto, l' Estrazione, alla data sbagliata.

Oppure anche la stessa Estrazione presente, 2 volte, in 2 date differenti.

 

[joe]

Posate le linee guida, possiamo testare se vero quanto ipotizzato.

'Option Explicit
'Sub Main
'Dim sFile,aRighe
'Dim Es,R,P
'''sFile = "k:/Archivio_X_L8.txt"
'''Call LeggiRigheFileDiTesto(sFile,aRighe)
'sFile = "k:/Agg.txt"
'''Call EliminaFile(sFile)
'''Call ScriviFile(sFile,UBound(aRighe) + 1)
'''Call CloseFileHandle(sFile)
'Call LeggiRigheFileDiTesto(sFile,aRighe)
'Call CloseFileHandle(sFile)
''Scrivi Eval(aRighe(0) + 1) & "-" & EstrazioneFin
'If Eval(aRighe(0)) < EstrazioneFin Then
'Scrivi "Ci sono estrazioni : "
'For Es = Eval(aRighe(0) + 1) To EstrazioneFin
'Scrivi DataEstrazione (Es,,,"/")
'Next
'Else
'ColoreTesto 2
'Scrivi "NON CI SONO ESTRAZIONI",True
'ColoreTesto 0
'End If
'End Sub

Eseguendo lo script CON SPAZIOMETRIA,

PRODUCE l'elenco di date "mancanti" all'aggiornamento dell'archivio di backup.

"Retrocedendo" il limite di "EstrazioneFinale", nella barra di Spaziometria,

ri-eseguendo lo script, si vede diminuire l'elenco di estrazioni utili.

Questo ... sino alla "data limite" della prima estrazione di ottobre 2017.

Prima di questa data, lo script indicherà che "non ci sono estrazioni".

Utili all'aggiornamento è sottinteso, perchè il nostro BackUp,

è aggiornato al 30/09/2017.

Ultima evidenza.

Essendo ormai noto il numero di estrazioni ed essendo esso

presente su dischetto/chiavetta/file ... inutile ricalcolarlo ogni volta.

Ho remmato le istruzioni di questo (pur ancora presenti vedremo e dirò perchè).

 

[joe]

Buona sera a tutte/i.

Abbiamo detto e visto ben funzionare lo script al messaggio precedente ...

... pur "diversamente inutile" con l'eccezione di queste prove.

Terminate le modifiche ad esso e/o i commenti eventuali sarà da dirsi obsoleto.

Vediamo intanto i risultati degli aggiornamenti ... in accezione multipla.

******************     1
03/10/2017
BA 58 67 03 89 06
CA 01 59 18 75 55
FI 04 24 42 27 69
GE 12 89 56 51 30
MI 03 15 40 44 86
NA 62 26 64 60 29
PA 37 29 62 13 67
RO 10 60 33 72 82
TO 49 24 78 17 68
VE 41 08 78 48 42
NZ 20 14 26 23 09
******************     2
05/10/2017
BA 65 54 68 72 47
CA 73 78 44 35 60
FI 45 54 06 34 17
GE 21 35 84 45 26
MI 78 75 82 65 59
NA 38 42 16 84 46
PA 22 10 27 31 78
RO 69 64 39 11 17
TO 58 66 19 01 79
VE 55 50 46 44 45
NZ 60 49 36 54 30
******************     3
07/10/2017
BA 82 75 27 58 79
CA 65 20 02 82 72
FI 18 16 61 79 29
GE 31 82 49 79 25
MI 21 87 22 77 34
NA 64 07 55 90 10
PA 47 70 54 10 51
RO 20 72 56 04 52
TO 13 75 60 78 59
VE 09 11 05 49 88
NZ 81 83 82 29 35
******************     4
10/10/2017
BA 18 10 22 87 31
CA 45 74 19 66 30
FI 54 88 69 23 90
GE 29 75 80 52 10
MI 14 66 90 42 02
NA 52 10 78 43 07
PA 88 01 38 09 81
RO 60 47 67 04 20
TO 86 10 28 84 41
VE 86 12 43 05 77
NZ 06 81 12 51 28
******************     5
12/10/2017
BA 51 74 48 25 40
CA 25 75 60 73 37
FI 33 84 28 45 80
GE 29 63 77 30 39
MI 18 58 72 39 40
NA 69 82 36 88 27
PA 16 30 12 79 57
RO 87 20 45 67 13
TO 53 54 47 21 32
VE 86 48 25 90 55
NZ 21 59 18 55 41
******************     6
14/10/2017
BA 69 25 03 62 10
CA 60 11 06 58 77
FI 78 02 49 64 50
GE 66 03 16 45 27
MI 44 02 33 30 20
NA 54 89 90 11 52
PA 28 53 23 13 81
RO 37 88 86 63 25
TO 68 77 60 82 53
VE 72 38 53 62 46
NZ 50 59 85 10 49
******************     7
17/10/2017
BA 35 17 06 49 50
CA 45 67 17 20 77
FI 61 26 33 07 39
GE 83 32 62 08 40
MI 71 32 80 85 82
NA 45 47 62 22 68
PA 74 87 33 82 48
RO 61 48 11 22 73
TO 35 67 22 29 57
VE 82 76 08 23 18
NZ 38 55 75 25 15
******************     8
19/10/2017
BA 22 50 27 37 26
CA 74 30 59 33 06
FI 44 06 13 29 31
GE 15 02 57 62 36
MI 23 63 52 51 32
NA 57 05 01 59 09
PA 25 16 41 22 72
RO 85 39 65 84 66
TO 05 12 18 64 15
VE 14 64 72 18 24
NZ 77 79 29 59 05
******************     9
21/10/2017
BA 13 68 85 40 28
CA 86 59 61 69 03
FI 16 23 37 04 73
GE 01 41 33 58 02
MI 68 04 06 86 28
NA 05 57 26 01 29
PA 84 35 63 22 08
RO 33 84 43 78 35
TO 57 07 40 64 32
VE 80 31 74 32 11
NZ 59 70 65 85 11
******************    10
24/10/2017
BA 28 76 33 53 72
CA 48 40 65 29 70
FI 56 16 73 02 18
GE 78 50 77 29 87
MI 15 53 76 01 63
NA 27 08 75 20 82
PA 27 21 37 30 33
RO 89 07 04 06 71
TO 43 38 15 52 57
VE 31 07 16 60 64
NZ 86 03 59 45 23
******************    11
26/10/2017
BA 16 14 46 08 11
CA 52 70 30 43 41
FI 20 44 77 47 56
GE 76 65 81 27 25
MI 90 11 63 78 68
NA 18 72 87 62 34
PA 64 18 23 55 05
RO 15 44 31 24 67
TO 07 69 48 83 35
VE 32 17 34 73 08
NZ 49 82 89 69 86
******************    12
28/10/2017
BA 44 41 13 32 42
CA 36 07 22 10 56
FI 51 60 89 67 81
GE 54 83 52 47 30
MI 23 88 89 76 59
NA 22 30 46 01 55
PA 05 28 78 60 07
RO 08 47 88 37 39
TO 07 34 75 76 56
VE 59 51 40 46 87
NZ 38 64 28 26 21
******************    13
31/10/2017
BA 32 05 31 78 90
CA 77 44 23 18 16
FI 46 35 58 90 51
GE 84 81 40 35 34
MI 50 45 52 31 24
NA 25 59 84 79 67
PA 19 28 53 02 05
RO 29 90 28 42 02
TO 54 25 61 39 41
VE 33 83 79 72 55
NZ 86 48 85 13 01
******************    14
02/11/2017
BA 27 90 38 24 34
CA 64 78 51 28 81
FI 81 24 09 20 69
GE 50 79 25 77 02
MI 30 40 46 42 31
NA 70 47 64 10 61
PA 57 13 14 67 60
RO 35 58 03 59 28
TO 30 76 52 13 68
VE 79 65 85 81 02
NZ 40 32 77 76 62
******************    15
04/11/2017
BA 32 45 05 08 59
CA 24 39 28 69 78
FI 75 44 08 40 04
GE 60 77 59 34 49
MI 19 25 88 68 29
NA 65 33 04 83 80
PA 31 60 65 17 71
RO 80 75 56 24 31
TO 39 63 22 41 11
VE 69 82 16 48 79
NZ 02 84 44 34 39
******************    16
07/11/2017
BA 42 69 53 31 45
CA 08 13 89 11 31
FI 07 72 59 04 14
GE 41 52 83 55 38
MI 78 21 13 57 80
NA 82 67 24 84 02
PA 28 79 44 10 31
RO 68 28 02 10 69
TO 04 40 05 37 18
VE 59 40 45 77 06
NZ 72 54 30 85 62
******************  9392

Evidentemente sono le Estrazioni Mancanti. L'Aggiornamento.

Lo script è quasi un "run-once" quindi prima di pubblicarlo,

spiego come si usa. Cioè come andrebbe usato.

L'output dello script è riprodotto "tale e quale" nel BloccoNote. (o NOTEPAD)

QUINDI SI USA IL CONTENUTO DEL NOTEPAD.

Per ora e per prova e per chi lo vorrà usare ...

deve copiare le estrazioni come le ho appena elencate ed incollarle nel BloccoNote.

(DIVERRA' PROCEDURTA AUTOMATIZZATA)

Quando QUESTE ESTRAZIONI sono state incollate nel notepad ...

partendo dalla prima in alto (1) DI ESSE UNA ALLA VOLTA

si evidenzia TUTTA UNA ESTRAZIONE (solo una estrazione)

DAL primo numero o giorno della data / SINO all'ultimo estratto della Nazionale.

E ... Quando tutta l'Estrazione è evidenziata si PREME CONTROL + X
(così viene TAGLIATA-VIA dall' Elenco ... e "SPARISCE")

Per prova e per acquisire dimestichezza è utile eseguire queste operazioni, di taglio,

semplicissime, ripetendole, una estrazione dopo l'altra.

Fino ad ottenere:

****************** 1

****************** 2

****************** 3

****************** 4

****************** 5

****************** 6

ecc ...

E' fondamentale che venga tagliata cioè PRELEVATA dall' elenco del notepad

UNA ESTRAZIONE TUTTA E COMPLETA.

TUTTA con un solo taglio con un solo CONTROL-X.

La descrizone è sembra complicata ma è compito semplicissimo.

Ci si riesce in meno di "un secondo per estrazione" (senza voler correre).

Inserirò anche un immagine per rendere più facilmente intuibile,

quanto sarà ... semplice.

 

[joe]

ATTENZIONE: PER ORA valgono le istruzioni del messaggio precedente

PERTANTO il NOTEPAD DEVE "ESSERE CARICATO MANUALMENTE".

[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/s2.postimg.org\/mrb0543ux\/Immagine.jpg"}[/IMG2]


*Si "CLIKKA" semplicemente sul simbolo del "Taccuino" o "BloccoNote" o Notepad.

*SI PREME IL PULSANTE SINSTRO del Mouse quando la fraccia del cursore

è subito a sinistra del primo numero del giorno del mese.

(IL PUNTO-ROSSO IN ALTO A SINISTRA)

MANTENENDO PREMUTO IL PULSANTE ("si scorre" tutta l'estrazione)

CIOE' LA SI EVIDENZIA (in colore Blu).

fino a dopo l'ultimo (numero) Estratto della Nazionale

(IL PUNTO-ROSSO IN BASSO A DESTRA)

*Si RILASCIA IL PULSANTE SINISTRO del mouse e

* Sulla TASTIERA si premono (contemporaneamente) CONTROL+X

Così tutta UNA ESTRAZIONE VIENE TAGLIATA (via) DALL'ELENCO.

In pratica tutta la "Parte Blu".

 

[joe]

... Panta Rei ...

Cioè tutto scorre.

Dunque prima di aggiornarvi al nuovo script, desidero ancora anticipare alcune cose.

Aggiornando "quanto era in archivio" ... ovvero il numero di estrazioni "che era" non serve più.

Serve sapere fino a quando si è aggiornato.

Quindi, ho modificato lo script affinchè esso-stesso si mantenga aggiornato.

Si "auto-aggiorni", esso-stesso, al limite raggiunto dall' ipotetico ARCHIVIO-(ESTERNO).

Quindi se si prelevano delle "Estrazioni per effettuare un Aggiornamento"

esso (stupidamente) considera che queste Estrazioni siano usate e ...

NON le ri-proporrà ... più successivamente.

Spiegato perchè ho scritto che è quasi un "Run-Once".

Ciò è perchè "insisto" ... ovvero perchè alcune cose sono scritte "solo" tra le righe dello script.

Passiamo al "PROGRAMMA TARGET" e all' aggiornamento vero e proprio di esso.

Dopo ogni volta, che si è ri-tagliata LA PRIMA ESTRAZIONE MANCANTE ...

SI DEVE :

* RENDERE ATTIVO (con un click sulla sua finestra) il programma a cui è DESTINATA.

* Premere "CONTROL+E" (sulla tastiera del PC)

* Cliccare il bottone "INSERISCI" nella schermata che appare,

* Confermare con OK ... e ... si è aggiornato (l' altro Archivio).

Naturalmente se si è rimasti indietro di più estrazioni occorre ripetere

questa procedura più volte. Quanto necessario.

Cioè sino ad aver "svuotato" tutto l'elenco di Estrazioni da "TRASFERIRE".

Quindi senza nulla dover leggere / scrivere / interpretare / trascrivere ...

Con l' aituto di Spaziometria ...

AGGIORNARE, è procedura, automatizzata, veloce e facile.

 

[joe]

Ultimi consigli:

Cancellare i vecchi script (quelli nei messaggi #108 e #110), obsoleti, divenuti inutili.

Se sono stati usati per esercizio, si può cancellare anche Agg.txt (dalla chiavetta).

Se si sono già effettuati degli aggiornamenti si può inserire

il numero di Estrazione a cui è aggiornato il proprio Archivio, quando lo script lo richiede.

Naturalmente, se sarà, lo stesso numero di quelle presenti in Spaziometria,

o se le Estrazioni, sono intese dallo script, come già utilizzate ...

apparirà il messagggio "Non ci sono estrazioni" (per aggiornare).

Diversamente ci sarà l'elenco delle estrazioni necessarie a completare l' Archivio.

Option Explicit
Sub Main
'Agg_X_Lotto V.1.0
'Script By Joe 9/11/17
Dim sFile,aRighe,k
Dim Es,R,P
sFile = "k:/Agg_Ini.txt"
Call LeggiRigheFileDiTesto(sFile,aRighe)
Call CloseFileHandle(sFile)
If aRighe(0) = 0 Then aRighe(0) = 9376 'Data Verifica Archivio / Agg_Ini
aRighe(0) = InputBox("QUALE ?","ULTIMA ESTRAZIONE IN ARCHIVIO",Eval(aRighe(0)))
If Eval(aRighe(0)) < EstrazioniArchivio Then
For Es = Eval(aRighe(0) + 1) To EstrazioniArchivio
k = k + 1
Scrivi String(18,"*") & FormatSpace(eVal(aRighe(0)) + k,6,True)
Scrivi DataEstrazione(Es,,,"/"),True
For R = 1 To 12 : If R = 11 Then R = 12
Scrivi SiglaRuota(R),True,False
For P = 1 To 5
Scrivi Space(1) & Format2(Estratto(Es,R,P)),False,False
Next
Scrivi
Next
Next
Scrivi String(18,"*") & FormatSpace("Joe",6,True)
Call EliminaFile(sFile)
Call ScriviFile(sFile,Eval(aRighe(0)) + k)
Call CloseFileHandle(sFile)
Else
ColoreTesto 2
Scrivi "NON CI SONO ESTRAZIONI",True
ColoreTesto 0
End If
End Sub

 

[peppe60]

DAL 07.01.1871 AL 30.09.2017 NELL' ARCHIVIO, SONO PRESENTI : BA 9203 Estrazioni. CA 5728 Estrazioni. FI 9369 Estrazioni. GE 5800 Estrazioni. MI 9374 Estrazioni. NA 9371 Estrazioni. PA 9351 Estrazioni. RO 9375 Estrazioni. TO 9375 Estrazioni. VE 9374 Estrazioni. NZ 1937 Estrazioni. 9376 Estrazioni Totali

 

[joe]

Ciao Peppe.

Il numero di estrazioni del tuo arcvhivio è uguale a quello di altri.

Gli altri script e le altre tabelle dovrebbero esserti utili per verificare,

ANCHE eventuali differenze a livello di Estratti e singole Estrazioni.

Se poi dovessero esserci errori, con Spaziometria, nelle ultime versioni,

è possibile ricare e sostituire tutto l'archivio.

 

[i legend]

ciao Joe ho fatto un piccolo script sempre per verificare e confrontare l archivio magari con altri diversi da spazio.
Spero sia corretto.
lo indirizzo a te perche so che hai a disposizioni piu fonti da testare e sai adattare a qualsiasi dialetto basic.
posto lo script.
se ritieni che a questo punto è inutile dimmi pure che cancello il post
salvo errori
ecco lo script.
il mio pc è veloce se avete un pc datato o lento non so il tempo che impieghi a girare lo script.si sconsiglia di lanciarlo

Option Explicit
'Controllare se i dati statistici risultano esatti
'Salvo errori lo script è dato cosi com è
Sub Main
    Dim IdEStr,R,G,M,Gs,Count,Sum
    ReDim aMat(7,2),aCol(1)
    Dim Gi
    Dim Ini:Ini = 3950
    Dim Fin:Fin = 9390
    For IdEStr = Ini To Fin
    Count=Count+1
        For Gi = 1 To 7
            If WeekDay(DataEstrazione(IdEStr,,,"/"),0) = Gi Then
                aMat(Gi,1) = aMat(Gi,1) + 1
                aMat(Gi,2) = aMat(Gi,2) + GetSommaEstrazioneCompleta(IdEStr)
            End If
        Next
        If WeekDay(DataEstrazione(IdEStr,,,"/"),0) = 7 Then Scrivi "DOMENICA:" & GetInfoEstrazione(IdEStr)
        Call AvanzamentoElab(1,Fin-Ini,Count)
        If ScriptInterrotto Then Exit For 
    Next
    Scrivi
    If ScriptInterrotto Then Exit Sub
    Scrivi "GG | ESTRAZIONI  SOMMAESTR",1,,RGB(55,84,200),vbWhite
    For Gi = 1 To 7
    If dispari(Gi) Then aCol(1)=RGB(230,230,240):Else aCol(1)=RGB(240,240,250)
        Scrivi GetGiorno(Gi) & "   " & FormatSpace(aMat(Gi,1),5) & "       " & FormatSpace(aMat(Gi,2),9),1,,aCol(1)
    Next
End Sub
Function GetGiorno(GI)
    Dim aGiorno:aGiorno = Array(0,"LU","MA","ME","GI","VE","SA","DO")
    GetGiorno = aGiorno(GI)
End Function
Function GetSommaEstrazioneCompleta(idestr)
    Dim R,Sum
    Sum = 0
    For R = 1 To 12
        If R = 11 Then R = 12
        Sum = Sum + SommaEstratti(idestr,R)
    Next
    GetSommaEstrazioneCompleta = Sum
End Function

gli ultimi errori nella data della prima di novembre mi ha fatto pensare a questo script
ad esempio da un altro archivio mi risultano due domeniche
P.s: joe se lo script è non adatto allo studio perche scritto male lo cancello
Grazie

 

[joe]

Ciao I legend,

Ti ringrazio ed aggiungo, che piace, leggere qualche script d'autore.

Ancor più quando, diverso sia nella realizazione che nei suoi contenuti evidentemente "originali".

Quello delle date è problema piuttosto complicato.

Dunque senza entrare nel merito di esso ...

(anche perchè al riguardo ho idee piuttosto differenti dalla "media dei lottologi")

... penso che per la più parte dei casi in cui si possono evidenziare differenze tra gli archivi,

non si tratti di errori veri e propri ...

ma di "trascrizioni" della medesima estrazione in date non coincidenti.

Ad esempio, semplicemente potrebbe essere che la domenica di taluni

sia equivalente al sabato per altri.

Spesso in modo non costantemente definito ed anche discontinuo.

 

[i legend]

Grazie joe per le tue parole . Con tutte le cose che mi avete insegnato tu e luigi , qualche cosa l ho imparata
grazie
p.s:
è un piacere leggere ed imparare dai tuoi script

 

[joe]

Ciao I legend.

accenno solo brevemente a quanto anticipato sulle date.

I lottologi hanno, coltivano, osannano, cabale assurde, quali prima del mese, ultima ecc. ecc. ecc.

Poi ci sono scioperi / guerre / errori umani / di natura da determinare ... casuali.

Per cui è evidente ed è "gioco-forza" che una estrazione sia spostata,

per una festa Civile/Religiosa, un lutto, per caso.

Questo porta a degenerare qualsiasi "omogeneità" del "ragionamento" (o della Statistica).

Spostando per esempio una "ultima" ad essere "prima" nel mese successivo, ne consegue

che i risultati dell'una andrebbero attribuiti all'altra e viceversa.

Vi è poi, che le date (ivi comprese quelle delle "Altre Estrazioni")

sono DIS-OMOGENEAMENTE distribuite tra i mesi.

Tra i mesi di uno stesso anno.

Nelle le date, di uno stesso mese, in anni diversi.

Dividendo così "quasi arbitrariamente", una realtà, dai confini costantemente mutanti.

Confini incerti e difficilmente misurabili, anche e solo "nelle quantità".

Poi, va detto che le date hanno origine biblica, o meglio, pre-biblica.

Perchè la Genesi ci descrive ed insegna come, i giorni regolano il tempo,

nella formazione dell'universo e della terra.

Come emanai dalla Luce, illuminano e regolano, il tempo della Terra.

E ... per mezzo della Luce, l' "Uomo" (come immagine ed opera del Creatore)

determina ed espande, la conoscenza il dominio em la misura "del Tempo" nell' Universo.

Non sono teologo, quindi reputo che noi umani, si guardi al tempo,

umanamente-sbagliando per nostra fallibilità. Imprecisi ed incerti per le nostre colpe.

Piuttosto che del Creatore che le avrebbe (ovvero le ha) fatte cose semplici.

Il lotto, con le sue cabale, attraversa e supera i confini, di ogni esistenza umana,

Quindi esse risalgono ad esperienze pre-nostra-vita.

Ove dapprima non esisteva internet, poi il computer, poi la telvisione,

poi il quotidiano stampato per tutte le edicole, eppoi la nostra Italia,

ed anche alcuni dei nostri monarchi-re prima delle guerre

e delle vecchie e nuove "politiche sul lotto".

Cioè delle politiche, dei mezzi, dei linguaggi, divenuti via-via, diversi.

Dunque escludendo archivi elettronici, cartacei e "certificati" ...

L'esistenza di "Alcune Estrazioni" in "Alcune Date" sono "scelte-umane".

Scelte politicamente-discutibili, opininabili ed opinioni,

che tuttavia alterano qualsasi statistica.

Matematica o Lottologica che sia.

Vi è poi da aggiungere che i computer ("nostri" nel loro nome), come Enigma,

diventano presto, inglesi, nel linguaggio.

L'anima (cioè il software) ed il ragionamento di essi "è inglese".

Quindi è ovvio che chi è inglese ragiona da "inglese" specie se deve essere protestante.

Gli 'inglesi" hanno un loro testa ed una "gestione della logica delle date" diversa da noi.

Il computer dunque è poco adatto ("di suo") a gestire le date "di un nostro lottologo".

Con Luigi abbiamo (nel senso che lo abbiamo visto assieme. Mea culpa)

persino dotato Spaziometria di una "piccola intelligenza artificiale".

Con essa si stabilisce correttamente se una estrazionie "IsUltimaDelMese".

Ma ... un vero Lottologo è per sua natura umanamente incontenibile.

Non vado oltre con lo scrivere, ma devo suggerirti di rivedere

come la "forma scritta" di una data, differisca di Nazione in Nazione.

Così pure è nella logica sottesa al "come nasce" la settimana.

Novella-Babilonia-Informatico-Lottologica a cui potrai, se lo desideri, mettere mano e risolvere.

Per questo ti lascio d'esempio un piccolissimo script.

Option Explicit
Sub Main
Dim Ini,Fin,Es
Dim GDS 'Giorno della Settimana
Ini = 3950 'EstrazioneFin - 10
Fin = EstrazioneFin
For Es = Ini To Fin
GDS = Left(DataEstrazione(Es,True),3)
If GDS = "dom" Then ColoreTesto 2 : MsgBox DataEstrazione (Es)
  Scrivi GDS & " " & DataEstrazione(Es,,,"/")
ColoreTesto 0
Next
End Sub