Per Joe o chi può Grazie

[solare]

Ciao, ho questa tabella in formato TXT
In sostanza il listato dovrebbe elencare come nell'immagine allegata
con la possibilità di selezionare il periodo dal.....al
oppure se possibile poter selezionare la singola ruota con periodo dal.....al.

15/07/2023 BA 19 31 33 71 80
15/07/2023 CA 26 48 76 64 56
15/07/2023 FI 73 69 49 10 66
15/07/2023 GE 21 11 79 36 45
15/07/2023 MI 88 47 84 74 14
15/07/2023 NA 4 7 26 81 25
15/07/2023 PA 7 69 78 17 37
15/07/2023 RO 31 11 69 17 59
15/07/2023 TO 88 4 3 34 71
15/07/2023 VE 38 85 61 72 42
15/07/2023 NZ 60 50 10 51 54

 

[trivellatomariotretre33]

Ciao mi associo alla richiesta di Solare , ringrazio con anticipo chi interviene .

 

[joe]

Ciao ragazzi.

Sono piccole varianti di uno stesso script, già pubblicate decine e decine di volte.

Questa sera, se riesco, ne scrivo uno che dovrebbe fare quello che chiedete.

I numeretti NON devono essere preceduti dallo Zero ?

 

[solare]

Ciao Joe, i numeretti non devono essere preceduti dallo zero. Grazie infinite come sempre della tua pazienza.

 

[Cinzia27]

Ciao, Joe.
Se non ti dispiace...posto il mio script dato che avevo iniziato a farlo.
Per Solare e trivellatomariotre33, spero vada bene.

​

Sub Main()
'Intervallo estrazioni - Cinzia27
ini=InputBox("scrivi estrazione iniziale ",,EstrazioneFin-10)
If ini="" Then ExitFor
fin=InputBox("scrivi estrazione finale ",,EstrazioneFin)

If ini="" Then ExitFor
For es=ini To fin
Scrivi
For r=1 To 11
If r=11 Then r=12

Scrivi DataEstrazione(es)&" "&SiglaRuota(r)&" "&StringaEstratti(es,r)
Next
Next

End Sub

 

[Cinzia27]

Senza lo zero davanti ai numeretti.

Sub main()
'Intervallo estrazioni - Cinzia27
ini=InputBox("scrivi estrazione iniziale ",,EstrazioneFin-10)
If ini="" Then ExitFor
fin=InputBox("scrivi estrazione finale ",,estrazionefin)

If fin="" Then ExitFor
For es=ini To fin
 Scrivi
For r=1 To 11
If r=11 Then r=12
Scrivi
Scrivi DataEstrazione(es)&" ",0,0
Scrivi FormatSpace(SiglaRuota(r),3,1)&" ",0,0
For p=1 To 5
a=Estratto(es,r,p)
Scrivi a&"",0,0
If p<5 Then scrivi".",0,0
Next
Next
Next
End Sub

 

[solare]

Ciao Cinzia27, Grazie infinite, ottimo però manca un particolare
avere la possibilità della visualizzazione delle estrazioni su richiesta, sia per tutte le ruote che per analizzare una sola ruota.
Non so se sarà fattibile, comunque grazie

 

[Cinzia27]

Ciao, Solare.
Prova adesso.

Sub Main()
Dim ru(12)
'Intervallo estrazioni - Cinzia27
ini=InputBox("scrivi estrazione iniziale ",,EstrazioneFin-10)
If ini="" Then ExitFor
fin=InputBox("scrivi estrazione finale ",,EstrazioneFin)

If fin="" Then ExitFor

rr=InputBox(tst,"","1.2.3.4.5.6.7.8.9.10")
If rr="" Then Exit Sub
rr="0."&rr
ruote=Split(rr,".")
tot=UBound(ruote)+2

For es=ini To fin
 Scrivi
 
 tot=UBound(ruote)+2

For x=1 To UBound(ruote)
ru(1)=ruote(x)
Scrivi
Scrivi DataEstrazione(es)&" ",0,0

Scrivi SiglaRuota(ruote(x))&" ",0,0
For p=1 To 5
a=Estratto(es,ruote(x),p)
Scrivi a&"",0,0
If p<5 Then Scrivi".",0,0

Next
Next
Next

End Sub

 

[solare]

Grazie Cinzia, perfetto !

 

[joe]

Ciao Cinzia.

Evidentemente va bene quanto hai scritto.

Per la verità ricordavo già fatto script analoghi al tuo,

dunque in quello nuovo avrei cercato di inserire maggiori protezioni sui possibili errori di input.

"Dal - al" per esempio l'avevo inteso come data composta di giorno / mese / anno.

Di seguito immaginando che non tutti conoscono le date valide e quelle no ... fosse facile inserire date sbagliate.

 

[joe]

Dicevo il primo script ... sa correggere la data oggi IMPOSSIBILE, restituendo quella più prossima corretta.

Il secondo script sa leggere le ruote selezionate.



Si tratterebbe di unirli al tuo, per averne uno di intelligenza lottologica maggiore.

Ma se servono per avere dati con cui aggiornare un archivio ... è discorso completamente inutile.

 

[trivellatomariotretre33]

Ciao Joe e Cinzia27 vi ringrazio infinitamente .

 

[Cinzia27]

Ciao, Joe.
Le date sono quelle che fornisce l'archivio e non chi fa lo script. Se l'archivio è corretto le date sono corrette, altrimenti no.
Dal ...al che tu metta la data o il numero dell'estrazione corrispondente all'estrazione il risultato non cambia.

Se metto il numero di estrazione che deve ancora avvenire non me la scrive

Sub Main()
es=10268
Scrivi DataEstrazione(es)
End Sub

E allora dov'è il rischio di errore?

Detto ciò lo può abbellire, migliorare, velocizzare,sostituire, ecc.
Cosa che sicuramente farai e ne saremo tutti contenti.

 

[Cinzia27]

Dicevo il primo script ... sa correggere la data oggi IMPOSSIBILE, restituendo quella più prossima corretta.

Il secondo script sa leggere le ruote selezionate.

Vedi l'allegato 2263708

Si tratterebbe di unirli al tuo, per averne uno di intelligenza lottologica maggiore.

Ma se servono per avere dati con cui aggiornare un archivio ... è discorso completamente inutile.

Scusa, Joe, ma se uno sbaglia ad inserire la data, come nell'esempio, inserendo ad es. la 10268 di giovedì 20 viene fuori questo output

27.06.2023 BA 73.40.74.58.33
27.06.2023 FI 81.36.72.38.43

29.06.2023 BA 59.22.52.32.68
29.06.2023 FI 73.38.30.49.16

01.07.2023 BA 67.38.15.24.62
01.07.2023 FI 4.83.41.23.65

04.07.2023 BA 11.51.12.1.68
04.07.2023 FI 87.56.21.45.85

06.07.2023 BA 62.35.30.7.67
06.07.2023 FI 59.69.37.49.40

07.07.2023 BA 47.23.18.67.77
07.07.2023 FI 52.8.79.24.42

08.07.2023 BA 83.33.60.72.63
08.07.2023 FI 32.56.45.59.75

11.07.2023 BA 62.88.37.81.76
11.07.2023 FI 85.57.72.37.74

13.07.2023 BA 17.82.71.81.34
13.07.2023 FI 61.18.10.8.1

14.07.2023 BA 66.22.58.42.19
14.07.2023 FI 28.15.42.58.50

15.07.2023 BA 19.31.33.71.80
15.07.2023 FI 73.69.49.10.66

Numero estrazione fuori dal range (DataEstrazione) BA 0.0.0.0.0
Numero estrazione fuori dal range (DataEstrazione) FI 0.0.0.0.0

Numero estrazione fuori dal range (DataEstrazione) BA 0.0.0.0.0
Numero estrazione fuori dal range (DataEstrazione) FI 0.0.0.0.0


Pertanto, ci si accorge facilmente di aver sbagliato.
E quindi non vedo il problema.

Anzi, è meglio accorgersi di aver sbagliato e far ripartire lo script con l'estrazione voluta che con una data fittizia.
Poi è questione di preferenze.
Del resto unisci pure se lo ritieni utile.

 

[Oscar]

Ciao, ho questa tabella in formato TXT
In sostanza il listato dovrebbe elencare come nell'immagine allegata
con la possibilità di selezionare il periodo dal.....al
oppure se possibile poter selezionare la singola ruota con periodo dal.....al.

15/07/2023 BA 19 31 33 71 80
15/07/2023 CA 26 48 76 64 56
15/07/2023 FI 73 69 49 10 66
15/07/2023 GE 21 11 79 36 45
15/07/2023 MI 88 47 84 74 14
15/07/2023 NA 4 7 26 81 25
15/07/2023 PA 7 69 78 17 37
15/07/2023 RO 31 11 69 17 59
15/07/2023 TO 88 4 3 34 71
15/07/2023 VE 38 85 61 72 42
15/07/2023 NZ 60 50 10 51 54

Ciao Solare
Ma se ci metti l'input della ruota a quello di Cinzia non hai già risolto il problema della ruota e del periodo con una sola ruota

 

[solare]

Ciao Oscar, io non ho capacità di programmazione
se riesci tu
Grazie

 

[Cinzia27]

Ciao Solare
Ma se ci metti l'input della ruota a quello di Cinzia non hai già risolto il problema della ruota e del periodo con una sola ruota

Ciao Oscar, io non ho capacità di programmazione
se riesci tu
Grazie

Scusate, ma non c'è già?

 

[Cinzia27]

Ciao, Solare.
Prova adesso.

Sub Main()
Dim ru(12)
'Intervallo estrazioni - Cinzia27
ini=InputBox("scrivi estrazione iniziale ",,EstrazioneFin-10)
If ini="" Then ExitFor
fin=InputBox("scrivi estrazione finale ",,EstrazioneFin)

If fin="" Then ExitFor

rr=InputBox(tst,"","1.2.3.4.5.6.7.8.9.10")
If rr="" Then Exit Sub
rr="0."&rr
ruote=Split(rr,".")
tot=UBound(ruote)+2

For es=ini To fin
 Scrivi
 
 tot=UBound(ruote)+2

For x=1 To UBound(ruote)
ru(1)=ruote(x)
Scrivi
Scrivi DataEstrazione(es)&" ",0,0

Scrivi SiglaRuota(ruote(x))&" ",0,0
For p=1 To 5
a=Estratto(es,ruote(x),p)
Scrivi a&"",0,0
If p<5 Then Scrivi".",0,0

Next
Next
Next

End Sub

Grazie Cinzia, perfetto !

 

[solare]

Ciao Cinzia, per me andava bene anche prima
non vedo differenza

 

[solare]

Cinzia, vista la tua disponibilità eventualmente se si potrebbe inserire anche la selezione della singola ruota
grazie