Per Joe o chi può Grazie

[i legend]

Grazie Oscar , non ricordando come si comportava il form ho messo il controllo.

X Salvo
Grazie
Ho scritto la funzione stringaes perché non ricordo se i numeretti in stringa estratti sono formattati automaticamente con lo zero davanti e solare aveva chiesto che non ci fosse.
Se si potesse decidere di omettere lo zero e scegliere il separatore sarebbe meglio usare stringaestratti ovviamente.

 

[Oscar]

E' perfetta come ha chiesto solare
Bravo

 

[i legend]

Grazie

 

[Oscar]

Ciao a Tutti

Ciao ILegend

Lo script è perfetto C'è solo un errore che sicuramente l'hai fatto perché non hai il computer

La funzione è stringaestratti così

Scrivi DataEstrazione(idE) &" "& SiglaRuota(aR(R))&" " &StringaEstratti( idE,aR(R),sep)

sei un grande

Ciao Salvo è solo questione di gusti lui ha messo una variabile sep = " " , non è un errore tante volte uso anch'io una variabile

 

[Cinzia27]

Per iLegend
adesso va bene
14.07.2023 GE 18 47 13 65 10
14.07.2023 PA 12 60 86 28 1
15.07.2023 GE 21 11 79 36 45
15.07.2023 PA 7 69 78 17 37

Su tutte la pagina è bianca, ma credo dev'essere così. Solare ha chiesto le singole ruote e non la ruota tutte.

E' perfetta come ha chiesto solare
Bravo

Scusami, Oscar, perché il mio non era come aveva chiesto Solare?
Tra l'output di ILegend(sopra) a cui faccio i miei complimenti e il mio ( qui sotto) non vedo differenze.
Sono versioni diverse.

14.07.2023 GE 18.47.13.65.10
14.07.2023 PA 12.60.86.28.1

15.07.2023 GE 21.11.79.36.45
15.07.2023 PA 7.69.78.17.37

 

[Oscar]

Per iLegend
adesso va bene
14.07.2023 GE 18 47 13 65 10
14.07.2023 PA 12 60 86 28 1
15.07.2023 GE 21 11 79 36 45
15.07.2023 PA 7 69 78 17 37

Su tutte la pagina è bianca, ma credo dev'essere così. Solare ha chiesto le singole ruote e non la ruota tutte.


Scusami, Oscar, perché il mio non era come aveva chiesto Solare?
Tra l'output di ILegend(sopra) a cui faccio i miei complimenti e il mio ( qui sotto) non vedo differenze.
Sono versioni diverse.

14.07.2023 GE 18.47.13.65.10
14.07.2023 PA 12.60.86.28.1

15.07.2023 GE 21.11.79.36.45
15.07.2023 PA 7.69.78.17.37

Si certo che no era perfetto anche il tuo

brava

ILegend su tutte l'ha disattivata con IF <> 11 then

 

[i legend]

Ciao Cinzia la differenza è solo nell output.
Gli estratti li ho separati con uno spazio tu con un punto.
Non so a cosa serve , questo script, se fosse tipo un archivio l importantante per splittarlo e che le colonne siano separate dallo stesso carattere, che sia uno spazio oppure un punto.

Potreste postare un immagine di un pezzettino da Bari a nazionale flaggando tutte le ruote anche tt per vedere come si comporta lo script.?
Se resta uno spazio bianco tra venezia e nazionale non credo vada bene , ma bisognerebbe aspettare solare visto che è una sua richiesta.

Cinzia se metti la ruota 11 nell inputbox ( potrebbe succedere se uno non sta attento) non restituisce errore lo script?
Senza fare test non è facile ed è da aprile che non lusto uno script . Non ricordo come funziano le funzioni.
Cmq complimenti
Il tuo andava bene,io
Volevo solo fare un qualcosa di alternativo.
Anzi grazie a tutti per averlo testato e per i vostri feedback, almeno non resto troppo fermo.

 

[i legend]

Grazie per il test Oscar

 

[Cinzia27]

Ciao Cinzia la differenza è solo nell output.
Gli estratti li ho separati con uno spazio tu con un punto.
Non so a cosa serve , questo script, se fosse tipo un archivio l importantante per splittarlo e che le colonne siano separate dallo stesso carattere, che sia uno spazio oppure un punto.

Potreste postare un immagine di un pezzettino da Bari a nazionale flaggando tutte le ruote anche tt per vedere come si comporta lo script.?
Se resta uno spazio bianco tra venezia e nazionale non credo vada bene , ma bisognerebbe aspettare solare visto che è una sua richiesta.

Cinzia se metti la ruota 11 nell inputbox ( potrebbe succedere se uno non sta attento) non restituisce errore lo script?
Senza fare test non è facile ed è da aprile che non lusto uno script . Non ricordo come funziano le funzioni.
Cmq complimenti
Il tuo andava bene,io
Volevo solo fare un qualcosa di alternativo.
Anzi grazie a tutti per averlo testato e per i vostri feedback, almeno non resto troppo fermo.

Ciao, Ilegend mettendo il flag su tutte le ruote comprese tutte questo è l'output

13.07.2023 BA 17 82 71 81 34
13.07.2023 CA 54 44 6 77 35
13.07.2023 FI 61 18 10 8 1
13.07.2023 GE 10 85 51 89 39
13.07.2023 MI 54 19 20 28 68
13.07.2023 NA 19 24 40 7 43
13.07.2023 PA 4 75 82 78 19
13.07.2023 RO 67 57 23 2 28
13.07.2023 TO 71 37 61 10 62
13.07.2023 VE 66 45 18 16 61
13.07.2023 NZ 71 43 56 90 59
14.07.2023 BA 66 22 58 42 19
14.07.2023 CA 46 5 16 25 52
14.07.2023 FI 28 15 42 58 50
14.07.2023 GE 18 47 13 65 10
14.07.2023 MI 18 48 35 8 74
14.07.2023 NA 58 45 77 33 42
14.07.2023 PA 12 60 86 28 1
14.07.2023 RO 4 40 85 67 20
14.07.2023 TO 68 38 19 21 65
14.07.2023 VE 86 69 84 67 6
14.07.2023 NZ 82 59 85 33 9
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

Se il flag lo metto solo su tutte restituisce la pagina bianca senza altro segnale.

 

[i legend]

Ottimo grazie CINZIA , credo che così possa andare bene.
Funzionano solo le ruote selezionate una ad una .
Aspettiamo che dice solare.

 

[joe]

Buona serata a tutte/i.

Quello che intendevo dire e che se un ipotetico ricercatore volesse delimitare il periodo,

non inserendo gli IdEstrazione ma più realisticamente ... le date ... da lui scelte,

costui non sa se, per esempio, il periodo che va dal 15 agosto 2021 al 15 agosto 2022,

inizia e termina con date in cui sono avvenute estrazioni del lotto e neppure quali sono gli "id"

più adatti a delimitare il periodo. L'interfaccia utente utilizzata da Ilegend aiuta molto,

con i suoi cursori a limitare l'intervallo prescelto.

Nel suo stesso script sostituendo: Call RuoteSel (aR) si ottiene quanto avevo proposto,

come seconda miglioria, evitando l'input delle ruote.

Per la ruota TT_ occorre aggiungere un piccolo ciclo per abilitare una ad una tutte le ruote.

 

[i legend]

Ciao ho provato ad inserire un if che se è selezionata solo la ruota tt lo script esce .

X joe
Ottima soluzione anche la tua , ma da cellulare non mi è semplicissimo perché bisognerebbe flaggare anche la nazionale se inserita.
Visto che sul form è presente il pulsante che flagga tutto in una volta così viene esclusa la ruota tt se selezionata.

Se hai tempo e ti va potresti aggiungerla al mio script.

il discorso delle date è corretto avevo capito cosa volevi dire.

 

[joe]

Buon giorno a tutte/i.

Ho preparato un piccolo programma per testare quanto immaginato.

Ad ogni sua esecuzione, dovrebbe leggere e restituire, quali sono le ruote selezionate

nella finestra principale di Spaziometria.

Option Explicit
Sub Main
' Lettura/Elenco Ruote Selezionate nella Finestra di Spaziometria.
' Script  By Joe V.1.0 del 19/07/02023
   Dim aR,N,R
   N = RuoteSelB(aR)
   If N = 0 Then Scrivi "Nessuna Ruota Selezionata"
   If aR(11) Then
      For R = 1 To 10
         aR(R) = True
      Next
      aR(11) = False
   End If
   For R = 1 To 12
      If aR(R) Then Scrivi NomeRuota(R)
   Next
End Sub

La selezione della RUOTA VIRTUALE "TUTTE" è dominante e annulla la mancata selezione di qualsiasi singola ruota.

Cioè, se si desidera "tutte" è sufficiente selezionare "tutte".

Se si desidera un sottogruppo di ruote si devono selezionare le ruote che si intendono includere in questo gruppo.

E per contro ... NON selezionare Tutte.

 

[i legend]

Ciao a tutti
So che è un lavoro inutile , visto che chi ha richiesto lo script ha detto che gli andava benissimo il primo script.
Questo è semplicemente per noi che facciamo i listati


Non ho modo si verificare la sub si joe
Se la mia sub è errata non quotatela

'Non ho modo di testare questo script
'Non quotatelo per favore, grazie
' vado a memoria
' il nome o i parametri di alcune funzioni potrebbero essere errati
' ho provato ad usare una funzione poco usata
' l ho ripresa da altri mie script qui nel forum,
' modificata un po, quindi potrebbe dare errore
Option explicit
Sub main
Dim ini, fin: call scegliRange ( ini, fin,1,estrazioniArchivio)
Redim aR(0): call selRuote(aR)
Dim idE
Dim R
DIM sep: sep=" "
Dim bRet: bRet = false
' non ricordo bene il nome di questa funzione
If  ini >0 then
   If fin>= ini and  fin <= estrazioniArchivio then
      If ubound( aR)>0 then
    
                 bRet = true
    
       End if
    End if
End if
If bRet = false then
Scrivi " errore variabili"
Exit sub
End if

For ide= ini to fin
   For r= 1 to ubound ( aR)
      ' If aR(r)<> 11 then

         Scrivi dataestrazione(ide) &sep& siglaruota(aR(r))&sep&stringaES( ide,aR(r),sep)
        'End if
   Next

Next
End Sub
'Non ricordo se stringaestratti formatta automaticamente i numeretti per questo la funzione che segue
Function StringaEs(idE,R,sep)
  Dim p , s
S=""
For p= 1 to 5
S=s&estratto( ide,r,p)&sep
Next


StringaEs= rimuovilastchr(s, sep)
End function

Sub SelRuote(aRu)
Dim aV: aV=array("BA","CA","FI","GE","MI","NA","PA","RO","TO","VE","NZ")
Dim aVociSel(10)
Dim m,k

If sceglidalista(aV,aVociSel,"Scegli Ruote") >=0 then
   M=0
   K=0
   For K = 0 to 10
     If aVociSel(k) then
       M=m+1
       Redim preserve aRu(m)
       ARu(m)= k+1
          If aRu(m)=11 then aRu(m)=12
     End if 
  Next
End if


End sub

SE avete modo di provarla ditemi se funzia correttamente
Grazie
Cuao a tutti
 

 

[solare]

Ciao Ilegend, grazie comunque
però da errore su questa riga:
If ScegliDaLista(aV,aVociSel,"Scegli Ruote")

 

[i legend]

Ciao Solare riprova ora se va bene

 

[Xeroxs]

Ciao a Tutti, scusate se intervengo manca anche la chiusura per questo For

For k = 0 To 10


diventa così se non sbaglio


If ScegliDaLista(aV,aVociSel,"Scegli Ruote") >=0 Then
m=0
k=0
For k = 0 To 10
If aVociSel(k) Then
m=m+1
ReDim Preserve aRu(m)
aRu(m)= k+1
If aRu(m)=11 Then aRu(m)=12
End If
Next
End If


Ciao, I Legend sempre ottimi lavori non posso provarlo ora ma mi sono permesso di intervenire solo come aiuto..

Grazie anche a Te per quanto proponi per Tutti Noi

 

[salvo50]

Ciao a tutti
So che è un lavoro inutile , visto che chi ha richiesto lo script ha detto che gli andava benissimo il primo script.
Questo è semplicemente per noi che facciamo i listati


Non ho modo si verificare la sub si joe
Se la mia sub è errata non quotatela

'Non ho modo di testare questo script
'Non quotatelo per favore, grazie
' vado a memoria
' il nome o i parametri di alcune funzioni potrebbero essere errati
' ho provato ad usare una funzione poco usata
' l ho ripresa da altri mie script qui nel forum,
' modificata un po, quindi potrebbe dare errore
 
'Non ricordo se stringaestratti formatta automaticamente i numeretti per questo la funzione che segue
 


 
SE avete modo di provarla ditemi se funzia correttamente
Grazie
Cuao a tutti
 
[/QUOTE]
Ciao ILegend

Va benone, hai solo dimenticato a mettere un Next

questo

[ATTACH type="full" alt="ilegend.PNG"]2263977[/ATTACH]

 

[salvo50]

Ops...
Scusa Xeroxs non avevo visto la tua risposta

Ho corretto il nome, sto ancora dormendo

 

[solare]

Ok adesso con la correzione di salvo50 funziona
Grazie ancora