[Spaziometria - esportazione Archivio filtrato]

lotto_tom75 · 16 Luglio 2013

Come si fa?

Dopo aver filtrato l'archivio ed aver impostato ad esempio di visualizzare solo le estrazioni di luglio con indice mensile 5°-6°-7°-8° come si fa ad esportare il tutto peraltro visualizzato correttamente andando in spaziometria -> Elenco estrazioni ?

Se vado in Base dati -> Elenco estrazioni -> esporta estrazioni lotto in excel mi esporta tutto l'archivio mentre io vorrei, se possibile, che esportasse solo l'archivio filtrato (evidenziato dall'icona imbuto rosso in basso a sinistra)

Grazie agli esperti o alle esperte di questa utilissima ennesima funzione di spaziometria!

Se non fosse attualmente possibile l'esportazione filtrata... suggerirei se nn è troppo laborioso.. di implementarla perchè potrebbe essere molto utile a diversi lotto ricercatori

TizianoCiclomet · 16 Luglio 2013

BARI solo estrazioni avvenute nei mesi di : luglio

Numeri Ricerca : 10-85
Estrazioni analizzate : 728

Estratti : 84 (Previsti : 81) Ritardo max 37 attuale 24
Ambi : 1 (Previsti : 2) Ritardo max 358 attuale 369

Data Numeri estratti Ritardo Ruota

04/07/1874 56 67 1 52 85 0 Bari
17/07/1875 37 59 83 24 85 5 Bari
15/07/1876 43 12 78 10 18 4 Bari
06/07/1878 30 76 84 85 6 6 Bari
12/07/1879 48 40 10 56 24 4 Bari
07/07/1883 55 86 10 42 71 17 Bari
28/07/1883 36 76 45 85 4 2 Bari
12/07/1884 10 65 73 32 66 1 Bari
16/07/1892 85 39 48 80 24 34 Bari
01/07/1893 73 10 58 30 21 2 Bari
08/07/1893 42 39 85 73 69 0 Bari
07/07/1894 10 13 37 7 53 3 Bari
26/07/1902 51 85 86 73 28 37 Bari
02/07/1904 9 30 85 44 59 4 Bari
29/07/1905 23 69 85 83 87 8 Bari
28/07/1906 85 66 84 59 74 3 Bari
10/07/1909 82 76 69 85 74 9 Bari
04/07/1914 60 18 85 6 44 21 Bari
31/07/1915 10 66 8 46 86 7 Bari
29/07/1916 28 56 31 85 12 4 Bari
21/07/1917 14 30 8 10 82 2 Bari
05/07/1919 71 60 7 26 85 5 Bari
02/07/1921 6 40 7 31 10 8 Bari
25/07/1925 10 31 28 82 38 20 Bari
30/07/1927 37 41 85 25 3 9 Bari
27/07/1929 74 37 15 85 35 7 Bari
18/07/1931 9 44 10 4 81 6 Bari
30/07/1932 71 85 1 29 4 5 Bari
27/07/1935 10 44 40 1 30 12 Bari
04/07/1936 85 17 82 37 22 0 Bari
09/07/1938 6 10 70 51 87 9 Bari
16/07/1938 38 10 68 26 49 0 Bari
15/07/1939 27 60 89 80 10 4 Bari
27/07/1940 42 38 10 66 78 5 Bari
31/07/1943 83 90 50 16 10 12 Bari
01/07/1944 14 10 13 40 50 0 Bari
21/07/1945 10 61 20 44 84 6 Bari
13/07/1946 76 81 10 26 40 2 Bari
20/07/1946 20 52 46 10 62 0 Bari
19/07/1947 37 10 57 64 24 3 Bari
07/07/1951 44 53 69 40 85 16 Bari
05/07/1952 60 17 7 10 16 3 Bari
11/07/1953 90 36 63 8 85 4 Bari
31/07/1954 79 85 10 49 50 6 Bari
26/07/1958 5 10 18 38 47 16 Bari
07/07/1962 67 34 73 2 85 14 Bari
09/07/1966 85 12 42 46 17 17 Bari
30/07/1966 88 63 10 55 30 2 Bari
12/07/1969 40 22 69 10 72 10 Bari
26/07/1969 30 70 22 39 85 1 Bari
04/07/1970 25 49 34 85 21 0 Bari
01/07/1972 85 42 83 38 21 8 Bari
22/07/1972 6 10 4 71 16 2 Bari
29/07/1972 19 10 63 56 89 0 Bari
17/07/1976 41 44 81 10 66 14 Bari
24/07/1976 10 58 67 68 40 0 Bari
09/07/1977 7 84 8 63 10 2 Bari
23/07/1977 10 1 50 57 70 1 Bari
21/07/1979 62 15 84 31 85 8 Bari
28/07/1979 34 85 83 48 46 0 Bari
10/07/1982 86 85 69 22 71 9 Bari
14/07/1984 42 61 41 63 10 9 Bari
06/07/1985 60 19 54 10 34 2 Bari
27/07/1985 8 28 10 12 16 2 Bari
20/07/1991 10 56 24 81 37 24 Bari
05/07/1997 16 85 71 23 18 25 Bari
01/07/2000 39 52 85 63 62 25 Bari
05/07/2000 50 85 7 29 68 0 Bari
22/07/2000 10 80 15 58 76 4 Bari
07/07/2001 10 63 86 39 9 3 Bari
11/07/2001 10 4 8 87 13 0 Bari
31/07/2002 12 10 81 76 64 13 Bari
02/07/2005 19 48 29 10 58 18 Bari
26/07/2005 54 35 75 85 13 9 Bari
25/07/2006 52 7 10 45 20 12 Bari
03/07/2007 23 36 9 85 75 2 Bari
03/07/2008 42 37 43 54 85 13 Bari
08/07/2008 1 84 47 68 10 1 Bari
24/07/2008 58 25 85 9 40 6 Bari
03/07/2010 25 10 46 19 39 17 Bari
02/07/2011 34 80 57 85 14 12 Bari
09/07/2011 87 23 70 10 21 2 Bari
19/07/2011 10 41 44 57 73 3 Bari
Ciao Lotto Tom cerchi una ricerca di questo tipo

lotto_tom75 · 16 Luglio 2013

TizianoCiclomet ha scritto:
BARI solo estrazioni avvenute nei mesi di : luglio

Numeri Ricerca : 10-85
Estrazioni analizzate : 728

Estratti : 84 (Previsti : 81) Ritardo max 37 attuale 24
Ambi : 1 (Previsti : 2) Ritardo max 358 attuale 369

Data Numeri estratti Ritardo Ruota

04/07/1874 56 67 1 52 85 0 Bari
17/07/1875 37 59 83 24 85 5 Bari
15/07/1876 43 12 78 10 18 4 Bari
06/07/1878 30 76 84 85 6 6 Bari
12/07/1879 48 40 10 56 24 4 Bari
07/07/1883 55 86 10 42 71 17 Bari
28/07/1883 36 76 45 85 4 2 Bari
12/07/1884 10 65 73 32 66 1 Bari
16/07/1892 85 39 48 80 24 34 Bari
01/07/1893 73 10 58 30 21 2 Bari
08/07/1893 42 39 85 73 69 0 Bari
07/07/1894 10 13 37 7 53 3 Bari
26/07/1902 51 85 86 73 28 37 Bari
02/07/1904 9 30 85 44 59 4 Bari
29/07/1905 23 69 85 83 87 8 Bari
28/07/1906 85 66 84 59 74 3 Bari
10/07/1909 82 76 69 85 74 9 Bari
04/07/1914 60 18 85 6 44 21 Bari
31/07/1915 10 66 8 46 86 7 Bari
29/07/1916 28 56 31 85 12 4 Bari
21/07/1917 14 30 8 10 82 2 Bari
05/07/1919 71 60 7 26 85 5 Bari
02/07/1921 6 40 7 31 10 8 Bari
25/07/1925 10 31 28 82 38 20 Bari
30/07/1927 37 41 85 25 3 9 Bari
27/07/1929 74 37 15 85 35 7 Bari
18/07/1931 9 44 10 4 81 6 Bari
30/07/1932 71 85 1 29 4 5 Bari
27/07/1935 10 44 40 1 30 12 Bari
04/07/1936 85 17 82 37 22 0 Bari
09/07/1938 6 10 70 51 87 9 Bari
16/07/1938 38 10 68 26 49 0 Bari
15/07/1939 27 60 89 80 10 4 Bari
27/07/1940 42 38 10 66 78 5 Bari
31/07/1943 83 90 50 16 10 12 Bari
01/07/1944 14 10 13 40 50 0 Bari
21/07/1945 10 61 20 44 84 6 Bari
13/07/1946 76 81 10 26 40 2 Bari
20/07/1946 20 52 46 10 62 0 Bari
19/07/1947 37 10 57 64 24 3 Bari
07/07/1951 44 53 69 40 85 16 Bari
05/07/1952 60 17 7 10 16 3 Bari
11/07/1953 90 36 63 8 85 4 Bari
31/07/1954 79 85 10 49 50 6 Bari
26/07/1958 5 10 18 38 47 16 Bari
07/07/1962 67 34 73 2 85 14 Bari
09/07/1966 85 12 42 46 17 17 Bari
30/07/1966 88 63 10 55 30 2 Bari
12/07/1969 40 22 69 10 72 10 Bari
26/07/1969 30 70 22 39 85 1 Bari
04/07/1970 25 49 34 85 21 0 Bari
01/07/1972 85 42 83 38 21 8 Bari
22/07/1972 6 10 4 71 16 2 Bari
29/07/1972 19 10 63 56 89 0 Bari
17/07/1976 41 44 81 10 66 14 Bari
24/07/1976 10 58 67 68 40 0 Bari
09/07/1977 7 84 8 63 10 2 Bari
23/07/1977 10 1 50 57 70 1 Bari
21/07/1979 62 15 84 31 85 8 Bari
28/07/1979 34 85 83 48 46 0 Bari
10/07/1982 86 85 69 22 71 9 Bari
14/07/1984 42 61 41 63 10 9 Bari
06/07/1985 60 19 54 10 34 2 Bari
27/07/1985 8 28 10 12 16 2 Bari
20/07/1991 10 56 24 81 37 24 Bari
05/07/1997 16 85 71 23 18 25 Bari
01/07/2000 39 52 85 63 62 25 Bari
05/07/2000 50 85 7 29 68 0 Bari
22/07/2000 10 80 15 58 76 4 Bari
07/07/2001 10 63 86 39 9 3 Bari
11/07/2001 10 4 8 87 13 0 Bari
31/07/2002 12 10 81 76 64 13 Bari
02/07/2005 19 48 29 10 58 18 Bari
26/07/2005 54 35 75 85 13 9 Bari
25/07/2006 52 7 10 45 20 12 Bari
03/07/2007 23 36 9 85 75 2 Bari
03/07/2008 42 37 43 54 85 13 Bari
08/07/2008 1 84 47 68 10 1 Bari
24/07/2008 58 25 85 9 40 6 Bari
03/07/2010 25 10 46 19 39 17 Bari
02/07/2011 34 80 57 85 14 12 Bari
09/07/2011 87 23 70 10 21 2 Bari
19/07/2011 10 41 44 57 73 3 Bari
Ciao Lotto Tom cerchi una ricerca di questo tipo

Interessantissimo anche questo tuo script Tiziano!

Se vuoi posta pure il codice anche di questo!

Ma io cercherei qualcosa piu' di questo tipo:

Visualizzazione e esportazione di quale ruota, o ruote, mese, indice estrazione?
Io rispondo ad. esempio... ruote: BARI e FIRENZE mese: LUGLIO indice: 5°-6°-7°-8°

e lo script mi estrapola e mi permette di salvare in excel o TXT quanto impostato e visualizzato

Troppo?

Ciao

TizianoCiclomet · 16 Luglio 2013

Ciao Lotto Tom non essendo farina del mio sacco non posso fare di più
ma questo tipo di ricerca fa proprio tutte le cose che tu chiedi

lotto_tom75 · 16 Luglio 2013

TizianoCiclomet ha scritto:
Ciao Lotto Tom non essendo farina del mio sacco non posso fare di più
ma questo tipo di ricerca fa proprio tutte le cose che tu chiedi

Con questo intendi dire che non puoi postare il codice?
Se si... puoi dirmi almeno chi è l'autore dello script?
Se fa quello che ho chiesto come dici vorrei sapere se fosse
possibile averlo o meno GRAZIE!

TizianoCiclomet · 16 Luglio 2013

lotto_tom75 ha scritto:
Con questo intendi dire che non puoi postare il codice?
Se si... puoi dirmi almeno chi è l'autore dello script?
Se fa quello che ho chiesto come dici vorrei sapere se fosse
possibile averlo o meno GRAZIE!

Ciao Lotto Tom mi dispiace Divieto Assoluto Divulgazione da parte del Autore
Ti Auguro un Buona Serata

lotto_tom75 · 16 Luglio 2013

TizianoCiclomet ha scritto:
Ciao Lotto Tom mi dispiace Divieto Assoluto Divulgazione da parte del Autore
Ti Auguro un Buona Serata

Ok. Peccato però

. Solo che non capisco perchè mi hai postato il report dello script allora

.
Per farmi venire solo l'acquolina in bocca?

. Buona serata anche a te tiziano.

Mike58 · 16 Luglio 2013

Ciao Tom, non essendo d'accordo con quanto letto eccoti una sorte di script che ricava le estrazioni per mese e per numero scelto.
Poi se hai necessità di ampliare il tutto vedremo di arrivarci insieme(vedi quello per Giulio_LG)

Ciao, dove sono finiti i tuoi approcci allo studio del vbscript ?

Codice:

Sub Main
	Dim nu(1)
	Dim ru(1)
	qe = InputBox("Quante strazioni analizzo",,1500)
	mm = CInt(InputBox("Quale mese vedo le estrazioni",,7))
	spia = CInt(InputBox("Quale Numero cercare ? ",,85))
	r = InputBox("Quale ruota",,1)
	Ini = EstrazioneFin - qe
	fin = EstrazioneFin
	Tot = fin - Ini
	Scrivi "Elenco estrazioni per mese scelto ",1
	Scrivi
	For es = Ini To fin
		ru(1) = r
		For p = 1 To 5
			a = Estratto(es,r,p)
			nu(1) = spia
			If a = spia Then
				Call StatisticaFormazioneTurbo(nu,ru,1,rerit,reritmax,,refre,Ini,fin)
				If a = spia And Mese(es) = mm Then
					Scrivi GetInfoEstrazione(es) & "  " & StringaEstratti(es,1) & " - Mese..." & MeseNome(mm)' & " Con ritardo... " & rit(x)
					
				End If
				For x = 1 To 12
					Select Case x
						
					Case 1 If a = spia And Mese(es) = 1 Then m1 = m1 + 1
					Case 2 If a = spia And Mese(es) = 2 Then m2 = m2 + 1
					Case 3 If a = spia And Mese(es) = 3 Then m3 = m3 + 1
					Case 4 If a = spia And Mese(es) = 4 Then m4 = m4 + 1
					Case 5 If a = spia And Mese(es) = 5 Then m5 = m5 + 1
					Case 6 If a = spia And Mese(es) = 6 Then m6 = m6 + 1
					Case 7 If a = spia And Mese(es) = 7 Then m7 = m7 + 1
					Case 8 If a = spia And Mese(es) = 8 Then m8 = m8 + 1
					Case 9 If a = spia And Mese(es) = 9 Then m9 = m9 + 1
					Case 10 If a = spia And Mese(es) = 10 Then m10 = m10 + 1
					Case 11 If a = spia And Mese(es) = 11 Then m11 = m11 + 1
					Case 12 If a = spia And Mese(es) = 12 Then m12 = m12 + 1
					End Select
				Next
				
			End If
		Next
	Next
	Scrivi "Numero Spia... " & nu(1) & " Sulla ruota di..." & NomeRuota(r),1
	Scrivi
	Scrivi "Ritardo Attuale......" & rerit
	Scrivi "Ritardo storico......" & reritmax
	Scrivi "Frequenza............" & refre
	Scrivi
	Scrivi "Uscita per Mesi su estrazioni n° " & Tot,1
	ReDim at(12)
	at(1) = MeseNome(1)
	at(2) = MeseNome(2)
	at(3) = MeseNome(3)
	at(4) = MeseNome(4)
	at(5) = MeseNome(5)
	at(6) = MeseNome(6)
	at(7) = MeseNome(7)
	at(8) = MeseNome(8)
	at(9) = MeseNome(9)
	at(10) = MeseNome(10)
	at(11) = MeseNome(11)
	at(12) = MeseNome(12)
	Call InitTabella(at,1,,3,5)
	ReDim av(12)
	av(1) = "   " & m1
	av(2) = "   " & m2
	av(3) = "   " & m3
	av(4) = "   " & m4
	av(5) = "   " & m5
	av(6) = "   " & m6
	av(7) = "   " & m7
	av(8) = "   " & m8
	av(9) = "   " & m9
	av(10) = "   " & m10
	av(11) = "   " & m11
	av(12) = "   " & m12
	Call AddRigaTabella(av,,,3)
	Call CreaTabella(0,0,0,0,1)
	Scrivi
	Scrivi "Tabella Listed By Mike58 ",1
End Sub

lotto_tom75 · 16 Luglio 2013

Mike58 ha scritto:

Ciao Tom, non essendo d'accordo con quanto letto eccoti una sorte di script che ricava le estrazioni per mese e per numero scelto.
Poi se hai necessità di ampliare il tutto vedremo di arrivarci insieme(vedi quello per Giulio_LG)

Ciao, dove sono finiti i tuoi approcci allo studio del vbscript ?

Codice:

Sub Main
	Dim nu(1)
	Dim ru(1)
	qe = InputBox("Quante strazioni analizzo",,1500)
	mm = CInt(InputBox("Quale mese vedo le estrazioni",,7))
	spia = CInt(InputBox("Quale Numero cercare ? ",,85))
	r = InputBox("Quale ruota",,1)
	Ini = EstrazioneFin - qe
	fin = EstrazioneFin
	Tot = fin - Ini
	Scrivi "Elenco estrazioni per mese scelto ",1
	Scrivi
	For es = Ini To fin
		ru(1) = r
		For p = 1 To 5
			a = Estratto(es,r,p)
			nu(1) = spia
			If a = spia Then
				Call StatisticaFormazioneTurbo(nu,ru,1,rerit,reritmax,,refre,Ini,fin)
				If a = spia And Mese(es) = mm Then
					Scrivi GetInfoEstrazione(es) & "  " & StringaEstratti(es,1) & " - Mese..." & MeseNome(mm)' & " Con ritardo... " & rit(x)
					
				End If
				For x = 1 To 12
					Select Case x
						
					Case 1 If a = spia And Mese(es) = 1 Then m1 = m1 + 1
					Case 2 If a = spia And Mese(es) = 2 Then m2 = m2 + 1
					Case 3 If a = spia And Mese(es) = 3 Then m3 = m3 + 1
					Case 4 If a = spia And Mese(es) = 4 Then m4 = m4 + 1
					Case 5 If a = spia And Mese(es) = 5 Then m5 = m5 + 1
					Case 6 If a = spia And Mese(es) = 6 Then m6 = m6 + 1
					Case 7 If a = spia And Mese(es) = 7 Then m7 = m7 + 1
					Case 8 If a = spia And Mese(es) = 8 Then m8 = m8 + 1
					Case 9 If a = spia And Mese(es) = 9 Then m9 = m9 + 1
					Case 10 If a = spia And Mese(es) = 10 Then m10 = m10 + 1
					Case 11 If a = spia And Mese(es) = 11 Then m11 = m11 + 1
					Case 12 If a = spia And Mese(es) = 12 Then m12 = m12 + 1
					End Select
				Next
				
			End If
		Next
	Next
	Scrivi "Numero Spia... " & nu(1) & " Sulla ruota di..." & NomeRuota(r),1
	Scrivi
	Scrivi "Ritardo Attuale......" & rerit
	Scrivi "Ritardo storico......" & reritmax
	Scrivi "Frequenza............" & refre
	Scrivi
	Scrivi "Uscita per Mesi su estrazioni n° " & Tot,1
	ReDim at(12)
	at(1) = MeseNome(1)
	at(2) = MeseNome(2)
	at(3) = MeseNome(3)
	at(4) = MeseNome(4)
	at(5) = MeseNome(5)
	at(6) = MeseNome(6)
	at(7) = MeseNome(7)
	at(8) = MeseNome(8)
	at(9) = MeseNome(9)
	at(10) = MeseNome(10)
	at(11) = MeseNome(11)
	at(12) = MeseNome(12)
	Call InitTabella(at,1,,3,5)
	ReDim av(12)
	av(1) = "   " & m1
	av(2) = "   " & m2
	av(3) = "   " & m3
	av(4) = "   " & m4
	av(5) = "   " & m5
	av(6) = "   " & m6
	av(7) = "   " & m7
	av(8) = "   " & m8
	av(9) = "   " & m9
	av(10) = "   " & m10
	av(11) = "   " & m11
	av(12) = "   " & m12
	Call AddRigaTabella(av,,,3)
	Call CreaTabella(0,0,0,0,1)
	Scrivi
	Scrivi "Tabella Listed By Mike58 ",1
End Sub

Grazie mille Mike!

Per quanto riguarda a dove sono arrivato con vbscript...
A niente...

rispetto a te e gli altri grandissimi scripters in circolazione (vedi es. joe91 ecc...)

Mike58 · 16 Luglio 2013

Ciao Tom, mi spiace, se posso darti un consiglio segui la costruzione guida script, non è mai tardi per imparare.

Ciao

Cerca

Cerca

[Spaziometria - esportazione Archivio filtrato]

lotto_tom75

Advanced Premium Member

TizianoCiclomet

Advanced Member >PLATINUM PLUS<

lotto_tom75

Advanced Premium Member

TizianoCiclomet

Advanced Member >PLATINUM PLUS<

lotto_tom75

Advanced Premium Member

TizianoCiclomet

Advanced Member >PLATINUM PLUS<

lotto_tom75

Advanced Premium Member

Mike58

Advanced Member >PLATINUM PLUS<

lotto_tom75

Advanced Premium Member

Mike58

Advanced Member >PLATINUM PLUS<

Ultima estrazione Lotto

Ultimi Messaggi