aiuto da Mike per variazione script

ppaaoolloo · 2 Giugno 2016

ciao Mike
ho provato ma senza successo a modificare leggermente un tuo script
che mi avevi cortesemente elaborato tempo fa,
quindi torno a chiederti aiuto

questo è lo script che mi avevi preparato, è fatto per trovare il ritardo delle decine,
trova quanti estratti ci sono nelle ultime 6 estrazione ed inoltre somma i vari estratti
di queste estrazioni, eccolo:

Sub Main
Dim a(09)
Dim Ru(1)
ReDim aRuote(11)
qualeTab = CInt(InputBox("QUALE TABELLA","1 = Tab Normale 2 = Tab excel",1))

'rt = CInt(InputBox("Quale ruota analizzare ","Ruota",11))
qt = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,200))
sorte = CInt(InputBox("QUALE SORTE ",,4))
color = CInt(InputBox("Quale DECINA vuoi evidenziare",,1))
Dim posta(2)
posta(1) = 1
posta(2) = 1
Fin = EstrazioneFin
Ini = EstrazioneFin - qt
If ScegliRuote(aRuote) > 0 Then
Scrivi "Ruota Di : " & StringaRuote(aRuote),1,0,2,4,3
Scrivi " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),1
Scrivi "Sorte analizzata..." & NomeSorte(sorte),1,1,,1,3
Scrivi
For k = 1 To UBound(aRuote)
If aRuote(k) > 0 Then
Ru(1) = aRuote(k)
'For rt = 1 To 12
'Ru(1) = aRuote(k)
ReDim atitoli(17)
atitoli(1) = " Tipo decina "
atitoli(2) = " Combinazione "
atitoli(3) = " Ritardo "
atitoli(4) = " Rit. Max "
atitoli(05) = " Estr. "
atitoli(06) = " pr.-1 "
atitoli(07) = " pr.-2 "
atitoli(08) = " pr.-3 "
atitoli(09) = " pr.-4 "
atitoli(10) = " pr.-5 "
atitoli(11) = " pr.-6 "
atitoli(12) = " estr.+1 "
atitoli(13) = " estr.+2 "
atitoli(14) = " estr.+3 "
atitoli(15) = " estr.+4 "
atitoli(16) = " estr.+5 "
atitoli(17) = " estr.+6 "

Call InitTabella(atitoli,2,,2,5)
a(01) = "01-02-03-04-05-06-07-08-09-90"
a(02) = "10-11-12-13-14-15-16-17-18-19"
a(03) = "20-21-22-23-24-25-26-27-28-29"
a(04) = "30-31-32-33-34-35-36-37-38-39"
a(05) = "40-41-42-43-44-45-46-47-48-49"
a(06) = "50-51-52-53-54-55-56-57-58-59"
a(07) = "60-61-62-63-64-65-66-67-68-69"
a(08) = "70-71-72-73-74-75-76-77-78-79"
a(09) = "80-81-82-83-84-85-86-87-88-89"
For N = 1 To UBound(a)
Nu = Split("0-" & Format2(a

),"-")
Call StatisticaFormazioneTurbo(nu,aRuote,sorte,rit,max, Incr,fre,Ini,fin)
'If Ru(1) = 11 Then
'ReDim rr(10)
'For xx = 1 To 10
'rr(xx) = xx
'Call VerificaEsito(nu,rr,fin - rit,sorte,,Nothing,retesito,,retestratti)
'Call VerificaEsito(nu,rr,EstrazioneFin,3,,,esitoF,,estr F)
'aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,rr,1)
'Next
'End If
'If Ru(1) <> 11 Then
Call VerificaEsito(nu,aRuote,fin - rit,sorte,,Nothing,retesito,,retestratti)
Call VerificaEsito(nu,aRuote,EstrazioneFin,1,,,esitoF,, estrF)
aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,aRuote,1)
bbb = SerieFreq(EstrazioneFin - 1,EstrazioneFin - 1,nu,aRuote,1)
ccc = SerieFreq(EstrazioneFin - 2,EstrazioneFin - 2,nu,aRuote,1)
ddd = SerieFreq(EstrazioneFin - 3,EstrazioneFin - 3,nu,aRuote,1)
eee = SerieFreq(EstrazioneFin - 4,EstrazioneFin - 4,nu,aRuote,1)
fff = SerieFreq(EstrazioneFin - 5,EstrazioneFin - 5,nu,aRuote,1)
ggg = SerieFreq(EstrazioneFin - 6,EstrazioneFin - 6,nu,aRuote,1)

'End If
If fre > 0 Then
ReDim avalori(17)
avalori(1) = " Dec. " & Format2

avalori(2) = StringaNumeri(nu)
avalori(3) = rit
avalori(4) = max
avalori(05) = aaa
avalori(06) = bbb
avalori(07) = ccc
avalori(08) = ddd
avalori(09) = eee
avalori(10) = fff
avalori(11) = ggg
avalori(12) = aaa + bbb
avalori(13) = aaa + bbb + ccc
avalori(14) = aaa + bbb + ccc + ddd
avalori(15) = aaa + bbb + ccc + ddd + eee
avalori(16) = aaa + bbb + ccc + ddd + eee + fff
avalori(17) = aaa + bbb + ccc + ddd + eee + fff + ggg

Call AddRigaTabella(avalori,,,2)
End If
For x = 1 To 12
If n = color Then Call SetColoreCella((x),3,1)
Next
Next
End If
Next
End If
Call SetTableWidth("100%")
If qualeTab = 1 Then Call CreaTabella(6)
If qualeTab = 2 Then Call CreaTabellaOrdinabile(6)
If qualeTab > 2 Then MsgBox " errore digit Tabella"
PicClear
Call PicStampaTesto(1,10,"Script by Mike58 ",,1,1,,11,vbRed)
PicEsegui
End Sub

io ho provato ha sostituire le decine di questo script
con altre decine, che sono numeri scelti da me

a(01) = "09.29.31.33.40.50.62.66.82.89"
a(02) = "09.31.33.40.45.50.62.66.82.89"
a(03) = "05.16.24.32.33.50.62.66.73.80"
a(04) = "05.16.24.33.36.50.62.66.73.82"
a(05) = "07.09.24.30.33.36.45.50.62.81"
a(06) = "07.09.19.31.45.50.62.66.75.82"
a(07) = "07.09.19.31.39.50.62.64.75.82"
a(08) = "05.15.26.33.39.40.61.62.82.87"
a(09) = "05.15.33.39.51.61.62.73.82.87"

ma lo script mi va in errore, come mai?

è possibile fare un script che abbia lo stesso impianto,
ma invece delle decine analitiche poter inserire lunghette a mio piacimento?

ti ringrazio anticipatamente per la tua disponibilità e cortesia

fammi sapere

ciao

Ouroboros · 2 Giugno 2016

io ho provato ha sostituire le decine di questo script
con altre decine, che sono numeri scelti da me

a(01) = "09.29.31.33.40.50.62.66.82.89"
a(02) = "09.31.33.40.45.50.62.66.82.89"
a(03) = "05.16.24.32.33.50.62.66.73.80"
a(04) = "05.16.24.33.36.50.62.66.73.82"
a(05) = "07.09.24.30.33.36.45.50.62.81"
a(06) = "07.09.19.31.45.50.62.66.75.82"
a(07) = "07.09.19.31.39.50.62.64.75.82"
a(08) = "05.15.26.33.39.40.61.62.82.87"
a(09) = "05.15.33.39.51.61.62.73.82.87"

ma lo script mi va in errore, come mai?

Buongiorno paolo,
lo script funziona benissimo, solamente che i numeri vanno separati con il carattere "-" e non con il carattere ".".
Buon lavoro.

Joe91 · 2 Giugno 2016

Buon Giorno a tutte/i.

Va detto che lo script è fatto ...

e richiede che i dati nella tabella abbiano il formato predeterminato.

Tuttavia è più comodo cambiare un carattere ... in una riga di script

che tutti i separatori dell'intera tabella.

Poi ... la separazione con "il punto" è piu standard e/o diffusa.

Dunque compatibile.

In sintesi:

nello script la linea dicomando:

Nu = Split("0-" & Format2(a

),"-")

dovrebbe diventare

Nu = Split("0." & Format2(a

),".")

... ed ecco che verrà accettato un separatore diverso dal trattino.

Cordiali saluti

Mike58 · 2 Giugno 2016

Ciao Paolo, ben Trovato.
L'errore sta nel fatto che le combinazioni manuali inserite nello script hanno il carattere separatore "-" mentre tu usi il "." cosi facendo poi il codice che agisce sullo split non funziona.
Nu = Split("0-" & Format2(a

),"-")

Ti ho modificato le tue combinazioni con carattere "-", usalo cosi perché il PUNTO va in conflitto con altri codici.
Poi resta inteso che hai anche un IF_Then che filtra le combinazioni > 0 Frequenze x Sorte e quindi può essere che non trovi combinazioni o non tutte le Combinazioni.

Eccoti lo script corretto.

Codice:

[/SIZE]Sub Main
 Dim a(09)
 Dim Ru(1)
 ReDim aRuote(11)
 qualeTab = CInt(InputBox("QUALE TABELLA","1 = Tab Normale 2 = Tab excel",1))

 'rt = CInt(InputBox("Quale ruota analizzare ","Ruota",11))
 qt = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,200))
 sorte = CInt(InputBox("QUALE SORTE ",,4))
 color = CInt(InputBox("Quale COMBINAZIONE vuoi evidenziare",,9))
 Dim posta(2)
 posta(1) = 1
 posta(2) = 1
 Fin = EstrazioneFin
 Ini = EstrazioneFin - qt
 If ScegliRuote(aRuote) > 0 Then
 Scrivi "Ruota Di : " & StringaRuote(aRuote),1,0,2,4,3
 Scrivi " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),1
 Scrivi "Sorte analizzata..." & NomeSorte(sorte),1,1,,1,3
 Scrivi
 For k = 1 To UBound(aRuote)
 If aRuote(k) > 0 Then
 Ru(1) = aRuote(k)
 'For rt = 1 To 12
 'Ru(1) = aRuote(k)
 ReDim atitoli(17)
 atitoli(1) = " Tipo decina "
 atitoli(2) = " Combinazione "
 atitoli(3) = " Ritardo "
 atitoli(4) = " Rit. Max "
 atitoli(05) = " Estr. "
 atitoli(06) = " pr.-1 "
 atitoli(07) = " pr.-2 "
 atitoli(08) = " pr.-3 "
 atitoli(09) = " pr.-4 "
 atitoli(10) = " pr.-5 "
 atitoli(11) = " pr.-6 "
 atitoli(12) = " estr.+1 "
 atitoli(13) = " estr.+2 "
 atitoli(14) = " estr.+3 "
 atitoli(15) = " estr.+4 "
 atitoli(16) = " estr.+5 "
 atitoli(17) = " estr.+6 "


 Call InitTabella(atitoli,2,,2,5)
 a(01) = "09-29-31-33-40-50-62-66-82-89"
 a(02) = "09-31-33-40-45-50-62-66-82-89"
 a(03) = "05-16-24-32-33-50-62-66-73-80"
 a(04) = "05-16-24-33-36-50-62-66-73-82"
 a(05) = "07-09-24-30-33-36-45-50-62-81"
 a(06) = "07-09-19-31-45-50-62-66-75-82"
 a(07) = "07-09-19-31-39-50-62-64-75-82"
 a(08) = "05-15-26-33-39-40-61-62-82-87"
 a(09) = "05-15-33-39-51-61-62-73-82-87"


 For N = 1 To UBound(a)
 Nu = Split("0-" & Format2(a(n)),"-")
Call StatisticaFormazioneTurbo(nu,aRuote,sorte,rit,max, Incr,fre,Ini,fin)
 'If Ru(1) = 11 Then
 'ReDim rr(10)
 'For xx = 1 To 10
 'rr(xx) = xx
 'Call VerificaEsito(nu,rr,fin - rit,sorte,,Nothing,retesito,,retestratti)
 'Call VerificaEsito(nu,rr,EstrazioneFin,3,,,esitoF,,estr F)
 'aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,rr,1)
 'Next
 'End If
 'If Ru(1) <> 11 Then
 Call VerificaEsito(nu,aRuote,fin - rit,sorte,,Nothing,retesito,,retestratti)
 Call VerificaEsito(nu,aRuote,EstrazioneFin,1,,,esitoF,, estrF)
 aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,aRuote,1)
 bbb = SerieFreq(EstrazioneFin - 1,EstrazioneFin - 1,nu,aRuote,1)
 ccc = SerieFreq(EstrazioneFin - 2,EstrazioneFin - 2,nu,aRuote,1)
 ddd = SerieFreq(EstrazioneFin - 3,EstrazioneFin - 3,nu,aRuote,1)
 eee = SerieFreq(EstrazioneFin - 4,EstrazioneFin - 4,nu,aRuote,1)
 fff = SerieFreq(EstrazioneFin - 5,EstrazioneFin - 5,nu,aRuote,1)
 ggg = SerieFreq(EstrazioneFin - 6,EstrazioneFin - 6,nu,aRuote,1)




 'End If
 If fre > 0 Then
 ReDim avalori(17)
 avalori(1) = " Comb. " & Format2(n)
 avalori(2) = StringaNumeri(nu)
 avalori(3) = rit
 avalori(4) = max
 avalori(05) = aaa
 avalori(06) = bbb
 avalori(07) = ccc
 avalori(08) = ddd
 avalori(09) = eee
 avalori(10) = fff
 avalori(11) = ggg
 avalori(12) = aaa + bbb
 avalori(13) = aaa + bbb + ccc
 avalori(14) = aaa + bbb + ccc + ddd
 avalori(15) = aaa + bbb + ccc + ddd + eee
 avalori(16) = aaa + bbb + ccc + ddd + eee + fff
 avalori(17) = aaa + bbb + ccc + ddd + eee + fff + ggg

 Call AddRigaTabella(avalori,,,2)
 End If
 For x = 1 To 17
 If n = color Then Call SetColoreCella((x),3,1)
 Next
 Next
 End If
 Next
 End If
 Call SetTableWidth("100%")
 If qualeTab = 1 Then Call CreaTabella(6)
 If qualeTab = 2 Then Call CreaTabellaOrdinabile(6)
 If qualeTab > 2 Then MsgBox " errore digit Tabella"
 PicClear
 Call PicStampaTesto(1,10,"Script by Mike58 ",,1,1,,11,vbRed)
 PicEsegui
 End Sub





[SIZE=2]

Ciao se hai bisogno ci sono

Mike58 · 2 Giugno 2016

Ciao Joe intanto un saluto e da tanto che non interagiamo.
Ho provato anche io a cambiare solo il carattere separatore ma va in conflitto con altro,mentre con altri carattere separatori, lo script esegue i calcoli.

Bho misteri dello split.

Joe91 · 2 Giugno 2016

Ciao Mike.

No.

e' più probabile che siano errori di sintassi.

Format2 ... trasforma un numero di una cifra in uno ... di 2.

Quindi, aggiunge lo zero ... davanti ai numeretti

(per sintetizzare lottologicamente).

E' un errore volere ricavare "molti numeri" da una lunghetta di "2 cifre".

Quindi pur in assenza di una shell per testare la mia ipotesi ...

penso più ad un errore ... che ad un mistero.

Cordiali saluti.

ppaaoolloo · 2 Giugno 2016

ciao Mike e ciao a tutti

grazie per l'aiuto
adesso,mi funziona benissimo

Mike58 · 2 Giugno 2016

X Joe concordo con la tua analisi è sicuramente un qualche errore di sintassi.
Se ci imbattiamo ancora con questo modo di procedere avremo modo di far tesoro di questo.

Ciao una buona giornata.

Joe91 · 2 Giugno 2016

Ciao Mike ...

reputo sia più giusto correggere,

specie se un errore è noto e ha già palesato malfunzionamenti.

Codice:

Sub Main
	Dim a(09)
	Dim Ru(1)
	ReDim aRuote(11)
	qualeTab = CInt(InputBox("QUALE TABELLA","1 = Tab Normale 2 = Tab excel",1))
	'rt = CInt(InputBox("Quale ruota analizzare ","Ruota",11))
	qt = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO",,200))
	sorte = CInt(InputBox("QUALE SORTE ",,4))
	color = CInt(InputBox("Quale COMBINAZIONE vuoi evidenziare",,9))
	Dim posta(2)
	posta(1) = 1
	posta(2) = 1
	Fin = EstrazioneFin
	Ini = EstrazioneFin - qt
	If ScegliRuote(aRuote) > 0 Then
		Scrivi "Ruota Di : " & StringaRuote(aRuote),1,0,2,4,3
		Scrivi " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),1
		Scrivi "Sorte analizzata..." & NomeSorte(sorte),1,1,,1,3
		Scrivi
		For k = 1 To UBound(aRuote)
			If aRuote(k) > 0 Then
				Ru(1) = aRuote(k)
				'For rt = 1 To 12
				'Ru(1) = aRuote(k)
				ReDim atitoli(17)
				atitoli(1) = " Tipo decina "
				atitoli(2) = " Combinazione "
				atitoli(3) = " Ritardo "
				atitoli(4) = " Rit. Max "
				atitoli(05) = " Estr. "
				atitoli(06) = " pr.-1 "
				atitoli(07) = " pr.-2 "
				atitoli(08) = " pr.-3 "
				atitoli(09) = " pr.-4 "
				atitoli(10) = " pr.-5 "
				atitoli(11) = " pr.-6 "
				atitoli(12) = " estr.+1 "
				atitoli(13) = " estr.+2 "
				atitoli(14) = " estr.+3 "
				atitoli(15) = " estr.+4 "
				atitoli(16) = " estr.+5 "
				atitoli(17) = " estr.+6 "
				Call InitTabella(atitoli,2,,2,5)
				a(01) = "09.29.31.33.40.50.62.66.82.89"
				a(02) = "09.31.33.40.45.50.62.66.82.89"
				a(03) = "05.16.24.32.33.50.62.66.73.80"
				a(04) = "05.16.24.33.36.50.62.66.73.82"
				a(05) = "07.09.24.30.33.36.45.50.62.81"
				a(06) = "07.09.19.31.45.50.62.66.75.82"
				a(07) = "07.09.19.31.39.50.62.64.75.82"
				a(08) = "05.15.26.33.39.40.61.62.82.87"
				a(09) = "05.15.33.39.51.61.62.73.82.87"
				For N = 1 To UBound(a)
					Nu = Split("0." & a(n),".")
					Call StatisticaFormazioneTurbo(nu,aRuote,sorte,rit,max,Incr,fre,Ini,fin)
					'If Ru(1) = 11 Then
					'ReDim rr(10)
					'For xx = 1 To 10
					'rr(xx) = xx
					'Call VerificaEsito(nu,rr,fin - rit,sorte,,Nothing,retesito,,retestratti)
					'Call VerificaEsito(nu,rr,EstrazioneFin,3,,,esitoF,,estr F)
					'aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,rr,1)
					'Next
					'End If
					'If Ru(1) <> 11 Then
					Call VerificaEsito(nu,aRuote,fin - rit,sorte,,Nothing,retesito,,retestratti)
					Call VerificaEsito(nu,aRuote,EstrazioneFin,1,,,esitoF,,estrF)
					aaa = SerieFreq(EstrazioneFin,EstrazioneFin,nu,aRuote,1)
					bbb = SerieFreq(EstrazioneFin - 1,EstrazioneFin - 1,nu,aRuote,1)
					ccc = SerieFreq(EstrazioneFin - 2,EstrazioneFin - 2,nu,aRuote,1)
					ddd = SerieFreq(EstrazioneFin - 3,EstrazioneFin - 3,nu,aRuote,1)
					eee = SerieFreq(EstrazioneFin - 4,EstrazioneFin - 4,nu,aRuote,1)
					fff = SerieFreq(EstrazioneFin - 5,EstrazioneFin - 5,nu,aRuote,1)
					ggg = SerieFreq(EstrazioneFin - 6,EstrazioneFin - 6,nu,aRuote,1)
					'End If
					If fre > 0 Then
						ReDim avalori(17)
						avalori(1) = " Comb. " & Format2(n)
						avalori(2) = StringaNumeri(nu)
						avalori(3) = rit
						avalori(4) = max
						avalori(05) = aaa
						avalori(06) = bbb
						avalori(07) = ccc
						avalori(08) = ddd
						avalori(09) = eee
						avalori(10) = fff
						avalori(11) = ggg
						avalori(12) = aaa + bbb
						avalori(13) = aaa + bbb + ccc
						avalori(14) = aaa + bbb + ccc + ddd
						avalori(15) = aaa + bbb + ccc + ddd + eee
						avalori(16) = aaa + bbb + ccc + ddd + eee + fff
						avalori(17) = aaa + bbb + ccc + ddd + eee + fff + ggg
						Call AddRigaTabella(avalori,,,2)
					End If
					For x = 1 To 17
						If n = color Then Call SetColoreCella((x),3,1)
					Next
				Next
			End If
		Next
	End If
	Call SetTableWidth("100%")
	If qualeTab = 1 Then Call CreaTabella(6)
	If qualeTab = 2 Then Call CreaTabellaOrdinabile(6)
	If qualeTab > 2 Then MsgBox " errore digit Tabella"
	PicClear
	Call PicStampaTesto(1,10,"Script by Mike58 ",,1,1,,11,vbRed)
	PicEsegui
End Sub

Cordiali saluti.

ppaaoolloo · 2 Giugno 2016

ciao
qualcuno riesce a rifare questo script,
averlo la possibilità di poter mettere dei numeri
e delle lunghette a proprio piacimento,
senza ogni volta perdere un sacco di tempo
per inserire a mano i vari numeri nelle varie lunghette...

ringrazio anticipatamente chi vorrà impegnarsi in questo

ciao

Mike58 · 2 Giugno 2016

Paolo, intanto non si capisce cosa ti serve, ma immagino che ti serve uno script che allacci in qualche modi un file di testo.
Sono anche in questo, fatti e messi a disposizione script di questo tipo.

Poi permettimi la battuta, voi richiedenti perdete tempo a immettere in manuale poche righe, e chi fa script cosa deve dire che oltre a scrivere e decifrare anche quale sia il progetto,deve scrivere righe e righe di codice e per di più con logica progettuale.

Ciao

P.s. piccolo disappunto siamo rimasti in pochi e oltre a far fatica a portare la croce, mancano le idee innovative linfa vitale per uno scripter e appassionato del gioco.

ppaaoolloo · 2 Giugno 2016

ciao Mike

ma immagino che ti serve uno script che allacci in qualche modi un file di testo.

sì

Sono anche in questo, fatti e messi a disposizione script di questo tipo.

dove li trovo e mi potresti anche indicare come fare?

Poi permettimi la battuta, voi richiedenti perdete tempo a immettere in manuale poche righe, e chi fa script cosa deve dire che oltre a scrivere e decifrare anche quale sia il progetto,deve scrivere righe e righe di codice e per di più con logica progettuale.

hai perfettamente ragione, a volte evito richieste di script per non infierire sulla vostra disponibilità

ringrazio di cuore chi come te passa ore e ore a formulare script per tutti i richiedenti
che molte volte mi diverto a provare o per fare ricerche
e spero che un giorno la vostra fatica venga generosamente compensata,
sono onorato di aver trovato persone tanto competenti e tanto generose,
la mia ammirazione per quello che fate è indescrivibile

ciao

Mike58 · 2 Giugno 2016

ma immagino che ti serve uno script che allacci in qualche modi un file di testo.

sì

Dai provo a cercarlo e vedere cosa posso fare.

ringrazio di cuore chi come te passa ore e ore a formulare script per tutti i richiedenti
che molte volte mi diverto a provare o per fare ricerche
e spero che un giorno la vostra fatica venga generosamente compensata,
sono onorato di aver trovato persone tanto competenti e tanto generose,
la mia ammirazione per quello che fate è indescrivibile

Un bel ternetto di ritorno con tutti gli script che ho fatto non sarebbe male.

Joe91 · 3 Giugno 2016

Ciao Mike ...

a proposito di "un bel ternetto" (non) di ritorno,

controllavo qualche giorno fa ... e so che avevi fatto un tuo script per quelli mai usciti.

Mi sembra di ricordare che nel 2015/16 tra essi ci sono stati molti risultati.

Per quanto riguarda lo specifico e considerando che lo script è già fatto,

nulla vieta di orientare l'output di un qualsiasi script ... o di uno nuovo ...

affinchè con questo si generi una tabella direttamente "incollabile".

Spero di poter fornire a breve ... un esempio.

Buona Giornata.

Joe91 · 3 Giugno 2016

No Title

Dicevo ...

Sostituendo (sovrascrivendo e/o incollandoci sopra) la tabella prodotta da un nuovo script,

predisposto alla preparazione di essa,

si possono ottenere con lo script originale (cioè quello che ho inserito al messaggio #9)

i risultati per le lunghette che si sono generate per le nuove statistiche.

Nel caso che propongo è la talella dei radicali, che nell' output dello script è:

Codice:

[FONT=Courier New][SIZE=2][COLOR=#000000]A(1)= "[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]01[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000].[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]10[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000].[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]11[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000].[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]19[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]"[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000]A(2)= "[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]02[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000].[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]20[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000].[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]22[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000].[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]29[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]"[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000]A(3)= "[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]03[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000].[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]30[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000].[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]33[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000].[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]39[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]"[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000]A(4)= "[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]04[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000].[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]40[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000].[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]44[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000].[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]49[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]"[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000]A(5)= "[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]05[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000].[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]50[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000].[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]55[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000].[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]59[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]"[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000]A(6)= "[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]06[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000].[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]60[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000].[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]66[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000].[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]69[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]"[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000]A(7)= "[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]07[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000].[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]70[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000].[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]77[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000].[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]79[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]"[/COLOR][/SIZE][/FONT]
[FONT=Courier New][SIZE=2][COLOR=#000000]A(8)= "[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]08[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000].[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]80[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000].[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]88[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000].[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]89[/COLOR][/SIZE][/FONT][FONT=Courier New][SIZE=2][COLOR=#000000]"

[/COLOR][/SIZE][/FONT]

Cordiali Saluti

Mike58 · 3 Giugno 2016

SI Joe...
erano i terni vergini, che erano come numero all'incirca 120 ed ad oggi si sono ridotti a 76.
Penso anche che si possa fare qualsiasi script che elabora combinazioni e salvare le stesse in un file per poi richiamarlo per rielaborazioni in tabelle.

Questi sono i terni Vergini attuali ad esempio

Vedi l'allegato miei TerniVergini.txt

e questo può essere uno script per richiamare le combinazioni

Codice:

'Option Explicit
Class clsCombinazione
 Private aNumeri
 Function SetNumeriFromRiga(sRiga,sChrSep)
  Dim k,nUpper
  ReDim aV(0)
  Call SplitByChar(sRiga,".",aV)
  nUpper = 0
  ReDim aNumeri(nUpper)
  For k = 0 To UBound(aV)
   If IsNumeric(aV(k)) Then
    If isNumeroValidoLotto(CInt(aV(k))) Then
     nUpper = nUpper + 1
     ReDim Preserve aNumeri(nUpper)
     aNumeri(nUpper) = CInt(aV(k))
    End If
   End If
  Next
  If nUpper > 0 Then
   SetNumeriFromRiga = True
  Else
   SetNumeriFromRiga = False
  End If
 End Function
 Sub GetArrayNumeri(aNum)
  aNum = aNumeri
 End Sub
End Class
Sub AlimentaCollComb(sFile,Coll,sChrSep)
 Dim k
 Dim clsComb
 Set Coll = GetNewCollection
 ReDim aRighe(0)
 Call LeggiRigheFileDiTesto  (sFile,aRighe)
 For k = 0 To UBound(aRighe)
  Set clsComb = New clsCombinazione
  If clsComb.SetNumeriFromRiga(aRighe(k),sChrSep) Then
   Coll.Add clsComb
  End If
 Next
End Sub
Sub Main
 Dim sFileCombinazioni
 Dim sDirDef
 Dim CollCombinazioni
 Dim clsComb
 Dim aNumeri
 Dim Ru(1)
 
 sDirDef = GetDirectoryAppData
 sFileCombinazioni = ScegliFile(sDirDef,".txt")
 Call AlimentaCollComb(sFileCombinazioni,CollCombinazioni,".")
 
 ' ciclo su tutte le combinazioni da analizzare
 For Each clsComb In CollCombinazioni
 kn = kn + 1
  Call clsComb.GetArrayNumeri(aNumeri)
  ' ora abbiamo i numeri della combinazione corrente
  
  ' semplicemente per esempio scrivo la stringa numeri ma in un caso reale
  ' qui mettero il codice che lavora con la combinazione corrente
 'ImpostaArchivio10ELotto(1)
 fin = EstrazioniArchivio
 Ru(1) = 11
  
  
  
  
  Call VerificaEsito(aNumeri,Ru,fin-100,2,100,,esito,,estratti,id)
  Call Scrivi(FormatSpace(kn,2) & vbTab & StringaNumeri(aNumeri,,True),0,0)
  If esito = "Cinquina" Then
  ColoreTesto 2
  Scrivi vbTab & estratti  & vbTab & esito,1
  Else
  ColoreTesto 0
  Scrivi vbTab & estratti  & vbTab & esito
  End If
  
 Next
 Scrivi
 'Scrivi "ultima colonna estratta.... " & StringaEstratti(fin,5),1,1,,1,2
End Sub

X Paolo se riesci metti un file di testo delle tue lunghette anche ad esempio cosi vediamo cosa vorresti scrivere in output.

ciao

Joe91 · 3 Giugno 2016

Ok ...

... intese come terzine (generiche) alcune di esse il 31/05/2016 hanno prodotto:

26 11.31.70 GE 31 .. 11 .. .. Ambo
27 12.35.56
28 12.38.69
29 12.54.82
30 13.24.56 BA 56 13 .. .. .. Ambo
31 14.37.70
32 14.60.66
33 15.24.88
34 15.28.47
35 15.65.70
36 15.76.87
37 17.51.88
38 17.52.61
39 17.64.81
40 18.31.55 NA .. 31 .. .. 55 Ambo
41 18.51.54 PA 18 54 .. .. .. Ambo

Come hai scritto ...

... è solo una questione di "soggetto" da analizzare.

Cordiali saluti.

ppaaoolloo · 4 Giugno 2016

ciao Mike
voglio ringraziarti ancora una volta per il tuo impegno,
qui sotto riporto le lunghette, comunque non utilizzo
sempre e solo file di testo, a volte aggiungo anche
dei numeri simpatici oppure sincroni o ritardi,
quindi sono arrivato alla conclusione che hai ragione
nel dire che immettere in manuale poche righe
alla fin fine non è un grosso problema e farò così.
grazie per lo script corretto
buon week end

ecco le lunghette come da te chiesto,
comunque
09.29.31.33.40.50.66.68.82.89
24.29.33.50.51.66.73.74.82.89
22.32.33.50.61.66.77.79.82.90
04.25.32.34.51.54.56.82.87.90
09.19.36.40.46.47.49.82.83.87
04.05.23.34.47.51.56.82.83.87
08.15.25.51.52.58.61.70.73.82
08.22.32.33.52.55.61.73.79.88
08.19.22.45.47.53.65.79.82.85

Joe91 · 4 Giugno 2016

Ciao Paolo, con le scuse a Mike ...

Come prima cosa devi salvare le lunghette che hai, come file di testo ...

dove il Pc le possa leggere/scrivere con un nome adeguato:

Qui ad esempio, ho scelto una chiavetta-usb intesa come disco "K"

ed il file si chama Lunghette_Paolo.txt

Questo script ... le recupera trasformandole in lottroni:

Codice:

Sub Main
Dim Nu
Dim File
File = "K:\Lunghette_Paolo.txt"
ReDim Lunghetta(0)
Call LeggiRigheFileDiTesto(File,Lunghetta)
For k = 0 To UBound(Lunghetta)
If Lunghetta(k) <> "" Then
Nu = Split(Lunghetta(k),".")
Scrivi StringaNumeri(Nu)
End If
Next
End Sub

Dunque si dovranno solo apportare le modifiche al programma che

le genera per far scrivere direttamente da esso queste lunghette.

Oppure modificarle con un classico programma per i testi e salvarle.

In ultimo, modificare secondo queste indicazioni lo script per la verifica.

Così esso le leggerà e le gestirà verificando risultati e quant'altro.

Tuttavia quanto avevo proposto precedentemente,

non prevedendo la lettura/scrittura su file ... era un pochino più semplice.

Cordiali saluti.

Joe91 · 7 Giugno 2016

In ultimo ...

abbiamo detto che è noioso numerare le lunghette e formattarle, una ad una.

Ma è necessario affinchè esse siano compatibili con lo script

che era gia stato creato e che prevedeva "questo formato" caratteristico.

Il PC ... può effetuare tutto questo "editing" velocemente.

Quindi nel piccolo script del messaggio #19 basta modificare

una sola la linea di esso.

Cioè quella che manda in output, i dati letti dal file di testo ...

aggiungendo le operazioni di editing, produrrà una la tabella già formattata.

L'output di questo lettore/convertitore/formattatore

è dunque, reso compatibile, e potrà essere incollato nell' "altro" script.

Abbiamo cosi risparmiato tutto il lavoro noioso di editing

E ... lo script potrà' effettuare tutti i controlli,

sulle lunghette fornite come esempio.

Codice:

Sub Main
Dim Nu
Dim File
File = "K:/Lunghette_Paolo.txt"
ReDim Lunghetta(0)
Call LeggiRigheFileDiTesto(File,Lunghetta)
For k = 0 To UBound(Lunghetta)
If Lunghetta(k) <> "" Then
Nu = Split(Lunghetta(k),".")
Scrivi "A(" & K + 1 & ") = """ & Trim(StringaNumeri(Nu,,True)) & """"
End If
Next
End Sub

aiuto da Mike per variazione script

Super Member >PLATINUM<

Senior Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Allegati

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Super Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<