X mike58

[Zetrix]

ok druid

 

[Zetrix]

ImpostaGiocata 1,ambo1,ruote,poste,co,2
ImpostaGiocata 2,ambo2,ruote,poste,co,2
ImpostaGiocata 3,ambo3,ruote,poste,co,2
ImpostaGiocata 4,ambo4,ruote,poste,co,2
ImpostaGiocata 5,ambo5,ruote,poste,co,2
ImpostaGiocata 6,ambo6,ruote,poste,co,2
ImpostaGiocata 7,ambo7,ruote,poste,co,2
ImpostaGiocata 8,ambo8,ruote,poste,co,2
ColoreTesto 3
ImpostaGiocata 9,ambo9,ruote,poste,co,2
ColoreTesto 0
ImpostaGiocata 10,ambo10,ruote,poste,co,2
ImpostaGiocata 11,ambo11,ruote,poste,co,2
ColoreTesto 3
ImpostaGiocata 12,ambo12,ruote,poste,co,2
ColoreTesto 0
Gioca es,1,,1

ilegend come si fa a colorare una stringa di queste
vorrei evidenziare di colore verde questa stringa
ImpostaGiocata 9,ambo9,ruote,poste,co,2

ho scritto coloretesto 3 ma in output non colora niente..
scrivo un esempio metto una previsione casuale
quindi non la si deve giocare..

G 0009 Numeri in gioco : 19.59 su NA VE TT NZ per Ambo

lo script mi dovrebbe colorare di verde questa stringa in output
come si fa ?

 

[i legend]

Puoi scegliere i colori se usi la funzione scrivi , forse ci sono altre possibilità ma non le conosco.
Mi spiace

 

[joe]

If GetAmbiUguali(es,CollAmbiTrovati) Then

'sAmbo = ""
sAmbo = sAmbo & x & "-" & z & vbCrLf

Call Scrivi(sAmbo)


6-27
50-85
62-19
1-73
45-41
57-65
86-34
40-2
52-26
49-5
85-15
41-55
6-66
42-76
88-26
18-25
54-35
10-75
76-27
56-63
72-53
13-71
83-17
9-7
45-83
25-29
41-19
49-22
4-87
24-45
72-58
27-33
47-81
62-14
17-79
37-37
71-58
72-79
4-74
45-38
46-59
68-54
9-54
10-75
32-70
38-74
4-38
24-14
23-29
79-83
9-59
48-49
14-13
34-79
16-67
58-65
8-3
73-68
25-66
65-4
52-90
4-88
44-26
58-16
6-45
73-33
70-72
18-11
85-89
16-2
54-31
31-19

ho provato in questo modo in output mi scrive tutti gli ambi generati
dalla tecnica ma non mi dice se ci sono ambi uguali ripetuti

grazie joe proverò il tuo script
buonanotte

Dovrebbe essere questo :

01.73 pres = 1
02.16 pres = 1
02.40 pres = 1
03.08 pres = 1
04.38 pres = 1
04.65 pres = 1
04.74 pres = 1
04.87 pres = 1
04.88 pres = 1
05.49 pres = 1
06.27 pres = 1
06.45 pres = 1
06.66 pres = 1
07.09 pres = 1
09.54 pres = 1
09.59 pres = 1
10.75 pres = 2
11.18 pres = 1
13.14 pres = 1
13.71 pres = 1
14.24 pres = 1
14.62 pres = 1
15.85 pres = 1
16.58 pres = 1
16.67 pres = 1
17.79 pres = 1
17.83 pres = 1
18.25 pres = 1
19.31 pres = 1
19.41 pres = 1
19.62 pres = 1
22.49 pres = 1
23.29 pres = 1
24.45 pres = 1
25.29 pres = 1
25.66 pres = 1
26.44 pres = 1
26.52 pres = 1
26.88 pres = 1
27.33 pres = 1
27.76 pres = 1
31.54 pres = 1
32.70 pres = 1
33.73 pres = 1
34.79 pres = 1
34.86 pres = 1
35.54 pres = 1
38.45 pres = 1
38.74 pres = 1
41.45 pres = 1
41.55 pres = 1
42.76 pres = 1
45.83 pres = 1
46.59 pres = 1
47.81 pres = 1
48.49 pres = 1
50.85 pres = 1
52.90 pres = 1
53.72 pres = 1
54.68 pres = 1
56.63 pres = 1
57.65 pres = 1
58.65 pres = 1
58.71 pres = 1
58.72 pres = 1
68.73 pres = 1
70.72 pres = 1
72.79 pres = 1
79.83 pres = 1
85.89 pres = 1

 

[Zetrix]

bravo joe caspita gli ai pure ordinati i numeri complimenti
come ai fatto..

 

[Zetrix]

Puoi scegliere i colori se usi la funzione scrivi , forse ci sono altre possibilità ma non le conosco.
Mi spiace

non importa ilegend volevo solo evidenziare alcune ricerche mie personali
ma non sono cosi importanti anche se sarebbe un ottima cosa se si
potesse evidenziarle con colori diversi..

 

[joe]

Ciao,

Devi registrarli ordinatamente.

Se l' Ambo ha prima il "numero grande" e poi il "numero piccolo"

prima di registrarlo devi scambiare le posizioni degli estratti.

bravo joe caspita gli ai pure ordinati i numeri complimenti
come ai fatto..

Non si può spiegare oltre quanto ho scritto ed ho dimostrato con lo script e con i suoi risultati ottenuti.

Perché essendoci solo l' astrazione di una base di dati su cui operare ...

ci può essere solo una dimostrazione pratica ... che tuttavia diviene puramente teorica.

In quanto, la soluzione al quesito potrebbe essere tutt'altra

a seguito di tutt'altre condizioni di altri dati in input.