SE possibile aggiungere un' Evidenziatore a colori /grassetto

[aldinobis]

Buon giorno a tutti

Sono sei mesi che faccio ricerca di previsioni con le spie usando, l'ultimo ,ottimo, listato di ILEGEND

che permette di fare ricerca su mesi uguali negli anni pregressi

ma mi mancava il colpo d'occhio.....

cerca e ricerca, mi sono imbattuto nello script di JOE ,modificato da Master, che posto qui sotto .

mi sono detto ...e' gia' stato modificato,nessuno si e' lamentato, quindi faccio un tentativo....

e 'richiedo ,non una modifica ma, un'aggiunta....di un Evidenziatore anzi due.. da INPUTBOX

il primo inputbox per selezionare con un colore diciamo rosso le spie ( tre numeri possono bastare)

il secondo inputbox per selezionare la previsione di colore blu ( sei numeri possono bastare)

Con l'eta', che galoppa gli occhiali, non sono piu' sufficienti cosi portandomi, leggermente

avanti , mi sono permesso di aggiungere una linea "scrivi" per indicare le ruote in testa alle colonne.

Il massimo sarebbe di aumentare leggermente la grandezza dei caratteri dell'output..

Ringrazio ,anticipatamente chi vorra' farlo.

code [
Option Explicit


Sub Main
'Archivio per Trivellato
' Script By Joe modificato per solare scelta anni e mese By Master
Dim Ini,Fin,IdEstr,R,P,sEstr,sChr_Num,sChr_Col
Dim Mes,AnIni,AnFin
sChr_Num = "."
sChr_Col = Chr(32)
Mes = CInt(InputBox("Inserisci MESE di ricerca","MESE",1))
AnIni = CInt(InputBox("Inserisci ANNO INIZIO ricerca","ANNO",2019))
AnFin = CInt(InputBox("Inserisci ANNO FINE ricerca","ANNO",2022))
'Call ScegliRange( Ini,Fin,EstrazioneIni,EstrazioneFin)
ColoreTesto 2
Scrivi Space(0) & " DATA | BA | CA | FI | GE | MI | NA | PA | RO | TO | VE | NAZ "
ColoreTesto 0
Ini = EstrazioneIni
Fin = EstrazioneFin
Call ResetTimer
For IdEstr = Fin To Ini Step - 1
If Mese(IdEstr) = Mes And Anno(IdEstr) >= AnIni And Anno(IdEstr) <= AnFin Then
Call AvanzamentoElab(Ini,Fin,IdEstr)
sEstr = Data(IdEstr) & sChr_Col
For R = 1 To 12
If R = 11 Then R = 12
ReDim aEstr(0)
Call GetArrayNumeriRuota(IdEstr,R,aEstr)
For P = 1 To 5
sEstr = sEstr & CStr(Format2(aEstr(P)))
If P < 5 Then sEstr = sEstr & sChr_Num
Next
sEstr = sEstr & sChr_Col
Next
Scrivi 'SE METTI L'APICE L'OUTPUT SI COMPATTA
Scrivi sEstr
End If
Next
End Sub
Function Data(Es)
Dim D,M
D = DataEstrazione(Es)
M = Mese(Es)
Data = Left(D,2) & Space(1) & Left(MeseNome(M),3) & Space(1) & Anno(Es)
End Function

]

 

[joe]

Innanzi tutto,

mi sia concessa una nota di biasimo a tutti quanti ne sono capaci ...

... e NESSUNO ha dato un piccolo aiuto, a chi ne ha fatto richiesta.

Lo script proposto aveva come scopo creare un archivio particolare

per un determinato programma che necessitava di un particolare formato.

Ora propongo questo che dovrebbe meglio rispondere all'esigenza della richiesta.

Sarà facile possibile adattare i colori alle esigenze visive dell'utilizzatore.

Option Explicit
Sub Main
'Evidenziatore Estratti nel Quadro Esteso,
'Script By Joe  V2.0 del 24/05/2022
   Dim Ini,Fin,Es,R,P,T
   Dim N,S,I,GR
   Fin = EstrazioneFin
   Ini = Fin - 39
   S = ScegliNumeri(N)
   Titoli 
   For Es = Ini To Fin
      Scrivi "| " & DataEstrazione(Es),1,0
      Scrivi " | ",1,0
      For R = 1 To 11 : If R = 11 Then R = 12
         For P = 1 To 5
            T = Estratto(Es,R,P)
            For I = 1 To S
               If T = N(I) Then ColoreTesto 2 : GR = 1
            Next
            Scrivi Format2(T) & " ",CInt(GR),0
            ColoreTesto 0 : GR = 0
         Next
         Scrivi "| ",1,0
      Next
      Scrivi
   Next
   Titoli
End Sub
Sub Titoli
Dim R,LNR,SP,SD
    Scrivi "|" & Space(4) & "DATA" & Space(4) & "|",1,0
    For R = 1 To 12 : If R = 11 Then R = 12
        LNR = Len(NomeRuota(R)) : SP = Int((16 - LNR)/2) : SD =(16 - LNR - SP)
        Scrivi Space(SP) & NomeRuota(R) & Space(SD) & "|",1,0
    Next : Scrivi
End Sub

 

[joe]

Nello stesso script.

Ho introdotto la possibilità di scegliere anche in quale mese si intende controllare.

Pertanto lo script fornirà un elenco di estrazioni, raggruppate in funzione della loro mensilità ed annualità,

nelle quali sono in evidenza i numeri prescelti.

Option Explicit
Sub Main
   'Evidenziatore Estratti nel Quadro Esteso,
   'Script By Joe  V2.0 del 24/05/2022
   Dim Ini,Fin,Es,R,P,T
   Dim N,M,S,I,GR
   Fin = EstrazioneFin
   Ini = Fin - 1560
   M = CInt(InputBox("Es: 5 = Maggio","SCEGLI QUALE MESE",5))
   S = ScegliNumeri(N)
   Titoli
   For Es = Ini To Fin
      If Mese(Es) = M Then
         Scrivi "| " & DataEstrazione(Es),1,0
         Scrivi " | ",1,0
         For R = 1 To 11 :If R = 11 Then R = 12
            For P = 1 To 5
               T = Estratto(Es,R,P)
               For I = 1 To S
                  If T = N(I) Then ColoreTesto 2 : GR = 1
               Next
               Scrivi Format2(T) & " ",CInt(GR),0
               ColoreTesto 0 : GR = 0
            Next
            Scrivi "| ",1,0
         Next
         Scrivi
      End If
      If IndiceAnnuale (Es) = 1 Then Titoli
   Next
   Titoli
End Sub
Sub Titoli
   Dim R,LNR,SP,SD
   Scrivi "|" & Space(4) & "DATA" & Space(4) & "|",1,0
   For R = 1 To 12 : If R = 11 Then R = 12
      LNR = Len(NomeRuota(R)) : SP = Int((16 - LNR)/2) : SD =(16 - LNR - SP)
      Scrivi Space(SP) & NomeRuota(R) & Space(SD) & "|",1,0
   Next : Scrivi
End Sub

 

[joe]

SPIE ROSSE / SPIATI BLU

In quest'ultima versione ... ho aggiunto la seconda parte delle richieste.

Option Explicit
Sub Main
   'Spie Rosse / Spiati Blu
   'Evidenziatore Estratti nel Quadro Esteso,
   'Script By Joe  V.3.0 del 25/05/2022
   Dim Ini,Fin,Es,R,P,A,T,O
   Dim N,M,S,I,GR
   Fin = EstrazioneFin
   Ini = Fin - 1560
   M = CInt(InputBox("Es: 5 = Maggio","SCEGLI QUALE MESE",5))
   S = ScegliNumeri(N)
   T = ScegliNumeri(O)
   Titoli
   For Es = Ini To Fin
      If Mese(Es) = M Then
         Scrivi "| " & DataEstrazione(Es),1,0
         Scrivi " | ",1,0
         For R = 1 To 11 : If R = 11 Then R = 12
            For P = 1 To 5 : ColoreTesto 5
               A = Estratto(Es,R,P)
               For I = 1 To S
                  If A = N(I) Then ColoreTesto 2 : GR = 1
               Next
               For I = 1 To T
                  If A = O(I) Then ColoreTesto 1 : GR = 1
               Next
               Scrivi Format2(A) & " ",CInt(GR),0
               ColoreTesto 0 : GR = 0
            Next
            Scrivi "| ",1,0
         Next
         Scrivi
      End If
      If IndiceAnnuale(Es) = 1 Then Titoli
   Next
   Titoli
End Sub
Sub Titoli
   Dim R,LNR,SP,SD
   Scrivi "|" & Space(4) & "DATA" & Space(4) & "|",1,0
   For R = 1 To 12 : If R = 11 Then R = 12
      LNR = Len(NomeRuota(R)) : SP = Int((16 - LNR)/2) : SD =(16 - LNR - SP)
      Scrivi Space(SP) & NomeRuota(R) & Space(SD) & "|",1,0
   Next : Scrivi
End Sub

 

[aldinobis]

Ciao joe

e grazie infinite
con la terza versione ti sei superato,leggendo anche il pensiero inespresso.
infatti evidenziando ,solo ,i numeri da esaminare ;la vista ne gode moltissimo e l'intelletto e'
spronato al galoppo.
senza contare che col drag ,se uno vuole,resuscita i laterali, invisibili ,vicini e lontani na' meraviglia.
ancora grazie e buon proseguimento

 

[lotto_tom75]

Complimentissimi joe!

Ho fatto una piccola aggiunta per la scelta e analisi di una ruota singola (come serviva a me) e per gli anni di verifica voluti.

Option Explicit
Sub Main
   'Spie Rosse / Spiati Blu
   'Evidenziatore Estratti nel Quadro Esteso,
   'Script By Joe  V.3.0 del 25/05/2022
   Dim Ini,Fin,Es,R,P,A,T,O
   Dim N,M,S,I,GR
   Dim quantianni
   Dim Estrazionicorrispondenti
   Dim Ruotasingolaotutteleruote
   Ruotasingolaotutteleruote = InputBox("ruota singola (s) o tutte le ruote (t)","ruota singola (s) o tutte le ruote (t)","s")
   quantianni = CInt(InputBox("quanti anni verificare","quanti anni verificare",5))
   Estrazionicorrispondenti = quantianni * 144
   Fin = EstrazioneFin
   Ini = Fin - Estrazionicorrispondenti '1560
   M = CInt(InputBox("Es: 5 = Maggio","SCEGLI QUALE MESE",5))
   S = ScegliNumeri(N)
   T = ScegliNumeri(O)
   If Ruotasingolaotutteleruote = "t" Then
      Titoli
      For Es = Ini To Fin
         If Mese(Es) = M Then
            Scrivi "| " & DataEstrazione(Es),1,0
            Scrivi " | ",1,0
            For R = 1 To 11 : If R = 11 Then R = 12
               For P = 1 To 5 : ColoreTesto 5
                  A = Estratto(Es,R,P)
                  For I = 1 To S
                     If A = N(I) Then ColoreTesto 2 : GR = 1
                  Next
                  For I = 1 To T
                     If A = O(I) Then ColoreTesto 1 : GR = 1
                  Next
                  Scrivi Format2(A) & " ",CInt(GR),0
                  ColoreTesto 0 : GR = 0
               Next
               Scrivi "| ",1,0
            Next
            Scrivi
         End If
         If IndiceAnnuale(Es) = 1 Then Titoli
      Next
      Titoli
   Else
      Dim Ruotavoluta
      Ruotavoluta = CInt(InputBox("Es: 1 = Bari","Scegli ruota ",1))
      Titoli2(Ruotavoluta)
      For Es = Ini To Fin
         If Mese(Es) = M Then
            Scrivi "| " & DataEstrazione(Es),1,0
            Scrivi " | ",1,0
            For R = Ruotavoluta To Ruotavoluta ' : If R =  Then R = 12
               'Scrivi
               'Scrivi  "hai scelto " & NomeRuota(Ruotavoluta)
               'Scrivi
               For P = 1 To 5 : ColoreTesto 5
                  A = Estratto(Es,R,P)
                  For I = 1 To S
                     If A = N(I) Then ColoreTesto 2 : GR = 1
                  Next
                  For I = 1 To T
                     If A = O(I) Then ColoreTesto 1 : GR = 1
                  Next
                  Scrivi Format2(A) & " ",CInt(GR),0
                  ColoreTesto 0 : GR = 0
               Next
               Scrivi "| ",1,0
            Next
            Scrivi
         End If
         If IndiceAnnuale(Es) = 1 Then Titoli2(Ruotavoluta)
      Next
      Titoli2(Ruotavoluta)
   End If
End Sub
Sub Titoli
   Dim R,LNR,SP,SD
   Scrivi "|" & Space(4) & "DATA" & Space(4) & "|",1,0
   For R = 1 To 12 : If R = 11 Then R = 12
      LNR = Len(NomeRuota(R)) : SP = Int((16 - LNR)/2) : SD =(16 - LNR - SP)
      Scrivi Space(SP) & NomeRuota(R) & Space(SD) & "|",1,0
   Next : Scrivi
End Sub
Sub Titoli2(ruotavoluta)
   Dim R,LNR,SP,SD
   Scrivi "|" & Space(4) & "DATA" & Space(4) & "|",1,0
   For R = ruotavoluta To ruotavoluta ' : If R = 11 Then R = 12
      LNR = Len(NomeRuota(R)) : SP = Int((16 - LNR)/2) : SD =(16 - LNR - SP)
      Scrivi Space(SP) & NomeRuota(R) & Space(SD) & "|",1,0
   Next : Scrivi
End Sub

Adesso se si mette come gruppo numerico da tabella sempre il solito... il resto viene scritto in bianco e giustamente, rispetto lo sfondo dello stesso colore, non si vede... Al momento però di estrapolare l'output con salva in txt ad esempio ecco che rispuntano fuori anche i numeri volutamente resi invisibili... Quindi... come modificare l'output affinchè i numeri che non interessano non risultino proprio e non siano solo "non visibili" ?

Grazie se puoi ottimizzarlo anche in tal senso big joe!

 

[joe]

Ciao joe

e grazie infinite
con la terza versione ti sei superato,leggendo anche il pensiero inespresso.
infatti evidenziando ,solo ,i numeri da esaminare ;la vista ne gode moltissimo e l'intelletto e'
spronato al galoppo.
senza contare che col drag ,se uno vuole,resuscita i laterali, invisibili ,vicini e lontani na' meraviglia.
ancora grazie e buon proseguimento

Complimentissimi joe!


Adesso se si mette come gruppo numerico da tabella sempre il solito... il resto viene scritto in bianco e giustamente, rispetto lo sfondo dello stesso colore, non si vede... Al momento però di estrapolare l'output con salva in txt ad esempio ecco che rispuntano fuori anche i numeri volutamente resi invisibili... Quindi... come modificare l'output affinchè i numeri che non interessano non risultino proprio e non siano solo "non visibili" ?

Grazie se puoi ottimizzarlo anche in tal senso big joe!

Saluto tutte/i nel ringraziarvi.

Personalmente "per me" ho settato lo sfondo al colore grigio.

Dunque "bianco su grigio" è visibile .

Il grigio è, meno "abbagliante" del bianco e con questo ci si guadagna un colore (bianco) "invisibile".



Le combinazioni di colori (non moltissime) possono essere testate e cambiate sino al raggiungimento, del migliore comfort visivo.

Dal punto di vista ottico, non è possibile fornire una soluzione unica ed universale.

Perché vi è un "mix" di fattori sconosciuti capaci di rendere preferibili alcune scelte rispetto ad altre diverse.

Si dovrebbero considerare, la luminosità, la qualità e la dimensione del monitor, la regolazione del suo colore, del contrasto,

la presenza di patologie (come discromatopsia, daltonismo, cataratta, miopia, presbiopia, astigmatismo ... )

o le semplici preferenze ed abitudini personali.

Per esempio ci si potrebbe essere abituati al volere vedere i ritardi o le spie scritte in rosso. (O evidenziate in giallo o ...).

Tom (io non avrei sicuramente scritto così) ma non è questo il problema.

Lo script è stato richiesto ed orientato alla ricerca visiva ed il suo output è per la coppia Uomo-Monitor.

Devi selezionare una piccola parte dell'output verso il disco.

Cioè solo la parte "interessante" di esso.

Chiaro che i bit dello streaming non potranno essere a colori vivaci.

 

[lotto_tom75]

Tom (io non avrei sicuramente scritto così) ma non è questo il problema.

Lo script è stato richiesto ed orientato alla ricerca visiva ed il suo output è per la coppia Uomo-Monitor.

Devi selezionare una piccola parte dell'output verso il disco.

Cioè solo la parte "interessante" di esso.

Chiaro che i bit dello streaming non potranno essere a colori vivaci.

Non ho capito...

Ad ogni modo io ti chiedevo se fosse possibile modificare il tuo code affinchè non mostri i numeri che si decide di non mostrare ma non rendendoli del colore uguale allo sfondo bensì non riportandoli proprio in output... Se non è possibile (ma non credo...) pazienza e di nuovo complimenti lo stesso

 

[Alien.]

Ciao,bel lavoro ma si potrebbe inserire in fondo pagina quanti ambi-terni, ecc (nei numeri immessi ed usciti) nella singola ruota ?

 

[joe]

Ciao Tom, come vedi in output-visivo ci sono:

- Date
- Ruote
- Numeri
- Colore dello sfondo (per far "sparire" i numeri bianchi)
- Numeri Bianchi
- Numeri Rossi (che visualizzano le spie)
- Numeri Blu (che visualizzano gli spiati)
- Separatori (tra le colonne che compongono data e ruote)

Per eseguire la ricerca su ruota-unica bastava aggiungere scegliruota
oppure un imputbox. (Da questo discende: "io non avrei scritto così").

Se si cerca solo su una ruota diventerebbero NON necessari:

Il nome della ruota (che potrebbe diventare il titolo del file)

ed i separatori delle colonne (divenute inesistenti).

Mentre, Data o Numero di Estrazione e numeri, va da sé che siano necessari.

I risultati quando "scritti" su disco, NON possono avere un colore per distinguerli.

Pertanto come ho già scritto ,.. prima bisogna stabilire cosa si vuole.

Se:

- solo spie
- solo risultati
- ENTRAMBI

- Se Entrambi
- Come distinguere spie e risultati?

Stabilito "cosa" si vuole e per sommi capi "come" realizzarlo ...

diventa conseguente ed esplicito l'algoritmo risolutore del problema.

Come sempre, manca una richiesta chiara, corredata da esempi.

Perché è di tutta evidenza che lo script fatto per risolvere "un problema"

evidentemente non è adatto alla soluzione di un problema diverso.

 

[lotto_tom75]

Ciao Tom, come vedi in output-visivo ci sono:

- Date
- Ruote
- Numeri
- Colore dello sfondo (per far "sparire" i numeri bianchi)
- Numeri Bianchi
- Numeri Rossi (che visualizzano le spie)
- Numeri Blu (che visualizzano gli spiati)
- Separatori (tra le colonne che compongono data e ruote)

Per eseguire la ricerca su ruota-unica bastava aggiungere scegliruota
oppure un imputbox. (Da questo discende: "io non avrei scritto così").

Se si cerca solo su una ruota diventerebbero NON necessari:

Il nome della ruota (che potrebbe diventare il titolo del file)

ed i separatori delle colonne (divenute inesistenti).

Mentre, Data o Numero di Estrazione e numeri, va da sé che siano necessari.

I risultati quando "scritti" su disco, NON possono avere un colore per distinguerli.

Pertanto come ho già scritto ,.. prima bisogna stabilire cosa si vuole.

Se:

- solo spie
- solo risultati
- ENTRAMBI

- Se Entrambi
- Come distinguere spie e risultati?

Stabilito "cosa" si vuole e per sommi capi "come" realizzarlo ...

diventa conseguente ed esplicito l'algoritmo risolutore del problema.

Come sempre, manca una richiesta chiara, corredata da esempi.

Perché è di tutta evidenza che lo script fatto per risolvere "un problema"

evidentemente non è adatto alla soluzione di un problema diverso.

Ok.. no problem joe

 

[joe]

Tom, secondo me, è sbagliato complicarsi la vita.

Se ti basta uno script di "10 righe" molto più veloce ed efficiente è inutile volerne adattare uno molto più complicato.

Quindi, non risolvere problemi è equivalente ad avere problemi da risolvere.

Option Explicit
Sub Main
   Dim Ini,Fin,Es,Ex,R,E,N,M,S
   S =  Space(1)
   Ini = EstrazioneFin - 10000 : Fin = EstrazioneFin
   N = 1 : M = 2 : R = BA_
   For Es = Ini To Fin
      If Posizione(Es,R,N) > 0 Then
         Scrivi DataEstrazione(Es) & S & SiglaRuota(R) & S & StringaEstratti(Es,R) & S,0,0
         For Ex = Es + 1 To Es + 9
            If Posizione(Ex,R,M) > 0 Then
               Scrivi(Ex - Es) & "°Cp" &S & StringaEstratti(Ex,R) & S,0,0
               ' Exit For ' Tutti i risultati. 
            End If
         Next
         Scrivi
      End If
   Next
End Sub

 

[lotto_tom75]

Tom, secondo me, è sbagliato complicarsi la vita.

Se ti basta uno script di "10 righe" molto più veloce ed efficiente è inutile volerne adattare uno molto più complicato.

Quindi, non risolvere problemi è equivalente ad avere problemi da risolvere.

Option Explicit
Sub Main
   Dim Ini,Fin,Es,Ex,R,E,N,M,S
   S =  Space(1)
   Ini = EstrazioneFin - 10000 : Fin = EstrazioneFin
   N = 1 : M = 2 : R = BA_
   For Es = Ini To Fin
      If Posizione(Es,R,N) > 0 Then
         Scrivi DataEstrazione(Es) & S & SiglaRuota(R) & S & StringaEstratti(Es,R) & S,0,0
         For Ex = Es + 1 To Es + 9
            If Posizione(Ex,R,M) > 0 Then
               Scrivi(Ex - Es) & "°Cp" &S & StringaEstratti(Ex,R) & S,0,0
               ' Exit For ' Tutti i risultati.
            End If
         Next
         Scrivi
      End If
   Next
End Sub

Anche se non ho capito cosa fa deve essere sicuramente strafigo

Di nuovo grazie comunque!

 

[joe]

Cerca il numero 1 su Bari (spia)

e quando presente, dopo la sua presenza cerca come risultato il 2 (lo spiato) sempre su Bari (entro i 9 colpi).

 

[lotto_tom75]

Cerca il numero 1 su Bari (spia)

e quando presente, dopo la sua presenza cerca come risultato il 2 (lo spiato) sempre su Bari (entro i 9 colpi).

Anche se non riguarda il problema sopra... questa tua chicca condivisa è come al tuo solito sinteticamente spettacolare!

 

[Alien.]

Ciao,bel lavoro ma si potrebbe inserire in fondo pagina quanti ambi-terni, ecc (nei numeri immessi ed usciti) nella singola ruota ?

 

[joe]

Ciao Tom,

come hai scritto Titoli2 in Funzione di Ruota_Voluta

Bastava appunto fissare :

Ruota_Prima = 1 : Ruota_Ultima = 12

If RuotaVoluta <> 11 Then

Ruota_Prima = Ruota_Voluta

Ruota_ultima = Ruota_Voluta

End If

For Ruota_Prima To Ruota_Ultima

ecc...

Next

Non potendo usare i colori penso una soluzione possa essere quella di avere 2 colonne per ogni data

Dunque 3 colonne una per la Data / una per le Spie trovate / una per i Risultati.

Naturalmente si potranno scrivere "2 spazi" per i numeri non presenti ed utilizzare,

dei separatori_omogenei qualora successivamente fosse necessario splittare le linee della tabella prodotta,

Tuttavia penso sia meglio avere uno script diverso dal precedente specifico per questa tua ricerca a ruota-unica

e che produrrà, una tabella in bianco e nero.

 

[joe]

Lo script raddoppiandosi per rimanere unico naturalmente s'è complicato molto.

Option Explicit
Sub Main
     'Spie Rosse / Spiati Blu
     'Evidenziatore Estratti nel Quadro Esteso ed a Ruota Singola,
     'Script By Joe  V.5.0 del 31/05/2022
     Dim Ini,Fin,Es,R,P,A,T,O
     Dim N,M,S,I,GR
     Dim quantianni
     Dim Estrazionicorrispondenti
     Dim Ruotasingolaotutteleruote
     Dim R_Ini,R_Fin : R_Ini = 1 : R_Fin = 12
     Ruotasingolaotutteleruote = CInt(InputBox("Ruota (N°) o Tutte  (11)","SCELTA RUOTE","11"))
     If Ruotasingolaotutteleruote <> 11 Then R_Ini = Ruotasingolaotutteleruote : R_Fin = Ruotasingolaotutteleruote
     quantianni = CInt(InputBox("quanti anni verificare","quanti anni verificare",5))
     Estrazionicorrispondenti = quantianni * 144
     Fin = EstrazioneFin
     Ini = Fin - Estrazionicorrispondenti '1560
     M = CInt(InputBox("Es: 5 = Maggio","SCEGLI QUALE MESE",5))
     S = ScegliNumeri(N)
     T = ScegliNumeri(O)
     If R_Ini <> R_Fin Then
          'Titoli
          For Es = Ini To Fin
               If Mese(Es) = M Then
                    Scrivi "| " & DataEstrazione(Es),1,0
                    Scrivi " | ",1,0
                    For R = R_Ini To R_Fin : If R = 11 Then R = 12
                         For P = 1 To 5 : ColoreTesto 5
                              A = Estratto(Es,R,P)
                              For I = 1 To S
                                   If A = N(I) Then ColoreTesto 2 : GR = 1
                              Next
                              For I = 1 To T
                                   If A = O(I) Then ColoreTesto 1 : GR = 1
                              Next
                              Scrivi Format2(A) & " ",CInt(GR),0
                              ColoreTesto 0 : GR = 0
                         Next
                         Scrivi "| ",1,0
                    Next
                    Scrivi
               End If
               If IndiceAnnuale(Es) = 1 Then Call Titoli(R_Ini,R_Fin)
          Next
          Call Titoli(R_Ini,R_Fin)
     Else
          '============ RUOTA SINGOLA ===========
          For Es = Ini To Fin
               If Mese(Es) = M Then
                    Scrivi "| " & DataEstrazione(Es),1,0
                    Scrivi " | ",1,0
                    ColoreTesto 2
                    For R = R_Ini To R_Fin : If R = 11 Then R = 12
                         For P = 1 To 5 : GR = False
                              A = Estratto(Es,R,P)
                              For I = 1 To S
                                   If A = N(I) Then Scrivi Format2(A) & " ",1,0 : GR = True
                              Next
                              If GR = False Then Scrivi String(2,"..") & Space(1),0,0
                         Next
                         ColoreTesto 0 : Scrivi "| ",1,0
                         ColoreTesto 1
                         For P = 1 To 5 : GR = False
                              A = Estratto(Es,R,P)
                              For I = 1 To T
                                   If A = O(I) Then
                                        Scrivi Format2(A) & " ",1,0: GR = True
                                   End If
                              Next
                              If GR = False Then Scrivi String(2,"..") & Space(1),0,0
                         Next
                         ColoreTesto 0 : Scrivi "|",1,1
                    Next
               End If
               If IndiceAnnuale(Es) = 1 Then Call Titoli(R_Ini,R_Fin)
          Next
          Call Titoli(R_Ini,R_Fin)
          '=====================================
     End If
End Sub
Sub Titoli(R_Ini,R_Fin)
     Dim R,LNR,SP,SD
     Scrivi "|" & Space(4) & "DATA" & Space(4) & "|",1,0
     For R = R_Ini To R_Fin : If R = 11 Then R = 12
          LNR = Len(NomeRuota(R)) : SP = Int((16 - LNR)/2) : SD =(16 - LNR - SP)
          Scrivi Space(SP) & NomeRuota(R) & Space(SD) & "|",1,0
          If R_Ini = R_Fin Then Scrivi Space(SP) & NomeRuota(R) & Space(SD) & "|",1,0
     Next : Scrivi
End Sub

 

[lotto_tom75]

Lo script raddoppiandosi per rimanere unico naturalmente s'è complicato molto.

Option Explicit
Sub Main
     'Spie Rosse / Spiati Blu
     'Evidenziatore Estratti nel Quadro Esteso ed a Ruota Singola,
     'Script By Joe  V.5.0 del 31/05/2022
     Dim Ini,Fin,Es,R,P,A,T,O
     Dim N,M,S,I,GR
     Dim quantianni
     Dim Estrazionicorrispondenti
     Dim Ruotasingolaotutteleruote
     Dim R_Ini,R_Fin : R_Ini = 1 : R_Fin = 12
     Ruotasingolaotutteleruote = CInt(InputBox("Ruota (N°) o Tutte  (11)","SCELTA RUOTE","11"))
     If Ruotasingolaotutteleruote <> 11 Then R_Ini = Ruotasingolaotutteleruote : R_Fin = Ruotasingolaotutteleruote
     quantianni = CInt(InputBox("quanti anni verificare","quanti anni verificare",5))
     Estrazionicorrispondenti = quantianni * 144
     Fin = EstrazioneFin
     Ini = Fin - Estrazionicorrispondenti '1560
     M = CInt(InputBox("Es: 5 = Maggio","SCEGLI QUALE MESE",5))
     S = ScegliNumeri(N)
     T = ScegliNumeri(O)
     If R_Ini <> R_Fin Then
          'Titoli
          For Es = Ini To Fin
               If Mese(Es) = M Then
                    Scrivi "| " & DataEstrazione(Es),1,0
                    Scrivi " | ",1,0
                    For R = R_Ini To R_Fin : If R = 11 Then R = 12
                         For P = 1 To 5 : ColoreTesto 5
                              A = Estratto(Es,R,P)
                              For I = 1 To S
                                   If A = N(I) Then ColoreTesto 2 : GR = 1
                              Next
                              For I = 1 To T
                                   If A = O(I) Then ColoreTesto 1 : GR = 1
                              Next
                              Scrivi Format2(A) & " ",CInt(GR),0
                              ColoreTesto 0 : GR = 0
                         Next
                         Scrivi "| ",1,0
                    Next
                    Scrivi
               End If
               If IndiceAnnuale(Es) = 1 Then Call Titoli(R_Ini,R_Fin)
          Next
          Call Titoli(R_Ini,R_Fin)
     Else
          '============ RUOTA SINGOLA ===========
          For Es = Ini To Fin
               If Mese(Es) = M Then
                    Scrivi "| " & DataEstrazione(Es),1,0
                    Scrivi " | ",1,0
                    ColoreTesto 2
                    For R = R_Ini To R_Fin : If R = 11 Then R = 12
                         For P = 1 To 5 : GR = False
                              A = Estratto(Es,R,P)
                              For I = 1 To S
                                   If A = N(I) Then Scrivi Format2(A) & " ",1,0 : GR = True
                              Next
                              If GR = False Then Scrivi String(2,"..") & Space(1),0,0
                         Next
                         ColoreTesto 0 : Scrivi "| ",1,0
                         ColoreTesto 1
                         For P = 1 To 5 : GR = False
                              A = Estratto(Es,R,P)
                              For I = 1 To T
                                   If A = O(I) Then
                                        Scrivi Format2(A) & " ",1,0: GR = True
                                   End If
                              Next
                              If GR = False Then Scrivi String(2,"..") & Space(1),0,0
                         Next
                         ColoreTesto 0 : Scrivi "|",1,1
                    Next
               End If
               If IndiceAnnuale(Es) = 1 Then Call Titoli(R_Ini,R_Fin)
          Next
          Call Titoli(R_Ini,R_Fin)
          '=====================================
     End If
End Sub
Sub Titoli(R_Ini,R_Fin)
     Dim R,LNR,SP,SD
     Scrivi "|" & Space(4) & "DATA" & Space(4) & "|",1,0
     For R = R_Ini To R_Fin : If R = 11 Then R = 12
          LNR = Len(NomeRuota(R)) : SP = Int((16 - LNR)/2) : SD =(16 - LNR - SP)
          Scrivi Space(SP) & NomeRuota(R) & Space(SD) & "|",1,0
          If R_Ini = R_Fin Then Scrivi Space(SP) & NomeRuota(R) & Space(SD) & "|",1,0
     Next : Scrivi
End Sub

Ottimo joe . Solo non riesco ancora a trovare la riga dove poter cambiare la scritta dei numeri dell'estrazione non contemplati dalle spie o dagli spiati in caratteri nulli tipo uno spazio " " in modo che quando si estrapola l'output nel txt appunto quelli non risultino proprio a differenza di adesso che anche se nel report a video non si vedono perchè sono dello stesso colore dello sfondo quando si salvano su txt compaiono... "sporcando" leggermente la scena finale... Spero di essere stato + chiaro nell'esporre l'ottimizzazione che mi necessiterebbe al tuo comunque splendido script.

 

[joe]

Ottimo joe . Solo non riesco ancora a trovare la riga dove poter cambiare la scritta dei numeri dell'estrazione non contemplati dalle spie o dagli spiati in caratteri nulli tipo uno spazio " " in modo che quando si estrapola l'output nel txt appunto quelli non risultino proprio a differenza di adesso che anche se nel report a video non si vedono perchè sono dello stesso colore dello sfondo quando si salvano su txt compaiono... "sporcando" leggermente la scena finale... Spero di essere stato + chiaro nell'esporre l'ottimizzazione che mi necessiterebbe al tuo comunque splendido script.

Tom, devi considerare che lo script è stato fatto per un'altra richiesta.

Poi hai aggiunto, la tua, nella quale chiedevi se fosse possibile utilizzarlo a ruota singola, togliendo i numeri non selezionati.

Così ho fatto.

Non è che non sei chiaro nello scrivere è che non riesci a leggere ciò che tu stesso scrivi.

Pertanto hai riportato a richiesta quanto ti avevo scritto cioè: "Naturalmente si potranno scrivere "2 spazi" per i numeri non presenti "

E' di tutta evidenza che o scrivi la variabile "A" che contiene l' Estratto-Pro-Tempore oppure nelle sue veci ci scrivi degli spazi vuoti.

Ma poi quando avrai tutto senza colori e senza "null'altro" che un pò di numeri ... non ci capirai più nulla.

Comunque sia eccoti accontentato.

Option Explicit
Sub Main
   'Spie Rosse / Spiati Blu
   'Evidenziatore Estratti nel Quadro Esteso ed a Ruota Singola,
   'Script By Joe  V.5.1 del 31/05/2022
   Dim Ini,Fin,Es,R,P,A,T,O
   Dim N,M,S,I,GR,E
   Dim quantianni
   Dim Estrazionicorrispondenti
   Dim Ruotasingolaotutteleruote
   Dim R_Ini,R_Fin : R_Ini = 1 : R_Fin = 12
   Ruotasingolaotutteleruote = CInt(InputBox("Ruota (N°) o Tutte  (11)","SCELTA RUOTE","11"))
   If Ruotasingolaotutteleruote <> 11 Then R_Ini = Ruotasingolaotutteleruote : R_Fin = Ruotasingolaotutteleruote
   quantianni = CInt(InputBox("quanti anni verificare","quanti anni verificare",5))
   Estrazionicorrispondenti = quantianni * 144
   Fin = EstrazioneFin
   Ini = Fin - Estrazionicorrispondenti '1560
   M = CInt(InputBox("Es: 5 = Maggio","SCEGLI QUALE MESE",5))
   S = ScegliNumeri(N)
   T = ScegliNumeri(O)
   If R_Ini <> R_Fin Then
      'Titoli
      For Es = Ini To Fin
         If Mese(Es) = M Then
            Scrivi "| " & DataEstrazione(Es),1,0
            Scrivi " | ",1,0
            For R = R_Ini To R_Fin : If R = 11 Then R = 12
               For P = 1 To 5 : ColoreTesto 5
                  A = Estratto(Es,R,P)
                  E = Space(2)
                  For I = 1 To S
                     If A = N(I) Then E = Format2(A) : ColoreTesto 2 : GR = 1
                  Next
                  For I = 1 To T
                     If A = O(I) Then E = Format2(A) : ColoreTesto 1 : GR = 1
                  Next
                  Scrivi Format2(E) & " ",CInt(GR),0
                  ColoreTesto 0 : GR = 0
               Next
               Scrivi "| ",1,0
            Next
            Scrivi
         End If
         If IndiceAnnuale(Es) = 1 Then Call Titoli(R_Ini,R_Fin)
      Next
      Call Titoli(R_Ini,R_Fin)
   Else
      '============ RUOTA SINGOLA ===========
      For Es = Ini To Fin
         If Mese(Es) = M Then
            Scrivi "| " & DataEstrazione(Es),1,0
            Scrivi " | ",1,0
            ColoreTesto 2
            For R = R_Ini To R_Fin : If R = 11 Then R = 12
               For P = 1 To 5 : GR = False
                  A = Estratto(Es,R,P)
                  For I = 1 To S
                     If A = N(I) Then Scrivi Format2(A) & " ",1,0 : GR = True
                  Next
                  If GR = False Then Scrivi String(2,"..") & Space(1),0,0
               Next
               ColoreTesto 0 : Scrivi "| ",1,0
               ColoreTesto 1
               For P = 1 To 5 : GR = False
                  A = Estratto(Es,R,P)
                  For I = 1 To T
                     If A = O(I) Then
                        Scrivi Format2(A) & " ",1,0: GR = True
                     End If
                  Next
                  If GR = False Then Scrivi String(2,"..") & Space(1),0,0
               Next
               ColoreTesto 0 : Scrivi "|",1,1
            Next
         End If
         If IndiceAnnuale(Es) = 1 Then Call Titoli(R_Ini,R_Fin)
      Next
      Call Titoli(R_Ini,R_Fin)
      '=====================================
   End If
End Sub
Sub Titoli(R_Ini,R_Fin)
   Dim R,LNR,SP,SD
   Scrivi "|" & Space(4) & "DATA" & Space(4) & "|",1,0
   For R = R_Ini To R_Fin : If R = 11 Then R = 12
      LNR = Len(NomeRuota(R)) : SP = Int((16 - LNR)/2) : SD =(16 - LNR - SP)
      Scrivi Space(SP) & NomeRuota(R) & Space(SD) & "|",1,0
      If R_Ini = R_Fin Then Scrivi Space(SP) & NomeRuota(R) & Space(SD) & "|",1,0
   Next : Scrivi
End Sub