Richiesta scrypt .

[ilgobbo60]

Sarei interessato se possibile ad uno scrypt che mi faccia visualizzare l'uscita di un singolo numero .
Es: quante volte è uscito il numero 90 su Bari , con la possibilità di variare si il numero che il periodo di ricerca .
Ringrazio anticipatamente chi potrà aiutarmi .
Un Saluto da ilgobbo60™®©

 

[ilgobbo60]

Ringrazio per la risposta ma io intendevo un'altra cosa a me interessava il numero esatto dell'uscita di un numero per creare un modello simile alla tabella dei numeri simpatici o antipatici aggiornata ai nuovi sistemi di estrazione .
Forse per Mia ignoranza non mi sono spiegato bene .
Un Saluto da ilgobbo60™®©

 

[Roby]

Ciao, questo dovrebbe andare bene

Sub Main()
	hh = InputBox("ESTRAZIONE INIZIALE",,7000)
	wh = ScegliRuota
	xx = CInt(InputBox("NUMERO DA CERCARE",,90))
	ini = hh
	fin = EstrazioneFin
	ColoreTesto 1:Scrivi "Periodo di ricerca: dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin) & " ... Totale estrazioni esaminate: " & fin - Ini,1:Scrivi:ColoreTesto 0
	For es = ini To fin
		For p = 1 To 5
			a = Estratto(es,wh,p)
			If a = xx Then
				casi = casi + 1
				Scrivi DataEstrazione(es) & "  " & FormatSpace(NomeRuota(wh),5) & "  " & StringaEstratti(es,wh) & "  Numero Trovato  " & Format2(xx) & " in " & p & "° Posizione ... Caso n° " & Format2(casi),1
			End If
		Next
	Next
	ColoreTesto 1:Scrivi:Scrivi:Scrivi "Totale casi Trovati : " & CInt(casi)& " ... By Blackmore",1
	ColoreTesto 0
End Sub

 

[ilgobbo60]

Grazie della disponibilità e del tempo che ha dedicato alla mia richiesta Blackmore perfetto è proprio quello che intendevo .
Un Saluto da ilgobbo60™®©

 

[Roby]

Ciao Giulio, sicuramente c'è una procedura molto più corta e semplice
ma, non essendo uno scripter..... mi sono arrangiato così

Sub Main()
	hh = InputBox("ESTRAZIONE INIZIALE",,8200)
	wh = ScegliRuota
	xx = CInt(InputBox("NUMERO DA CERCARE",,90))
	ini = hh
	fin = EstrazioneFin
	ColoreTesto 1:Scrivi "Periodo di ricerca dal  " & DataEstrazione(Ini) & "  al  " & DataEstrazione(Fin) & "  By Blackmore",1:Scrivi:ColoreTesto 0
	For es = ini To fin
		p = 1
		a = Estratto(es,wh,p)
		If a = xx Then
			casi = casi + 1
			Scrivi DataEstrazione(es) & "  " & FormatSpace(NomeRuota(wh),5) & "  " & StringaEstratti(es,wh) & "  Numero Trovato  " & Format2(xx) & " in " & p & "° Posizione ... Caso n° " & Format2(casi)
		End If
	Next
	ColoreTesto 1:Scrivi:Scrivi "Totale casi Trovati con il " & xx & " in " & p & "° Posizione = " & CInt(casi),1
	ColoreTesto 0
	Scrivi String(85,"-"),1
	casi = 0
	For es = ini To fin
		p = 2
		a = Estratto(es,wh,p)
		If a = xx Then
			casi = casi + 1
			Scrivi DataEstrazione(es) & "  " & FormatSpace(NomeRuota(wh),5) & "  " & StringaEstratti(es,wh) & "  Numero Trovato  " & Format2(xx) & " in " & p & "° Posizione ... Caso n° " & Format2(casi)
		End If
	Next
	ColoreTesto 1:Scrivi:Scrivi "Totale casi Trovati con il " & xx & " in " & p & "° Posizione = " & CInt(casi),1
	ColoreTesto 0
	Scrivi String(85,"-"),1
	casi = 0
	For es = ini To fin
		p = 3
		a = Estratto(es,wh,p)
		If a = xx Then
			casi = casi + 1
			Scrivi DataEstrazione(es) & "  " & FormatSpace(NomeRuota(wh),5) & "  " & StringaEstratti(es,wh) & "  Numero Trovato  " & Format2(xx) & " in " & p & "° Posizione ... Caso n° " & Format2(casi)
		End If
	Next
	ColoreTesto 1:Scrivi:Scrivi "Totale casi Trovati con il " & xx & " in " & p & "° Posizione = " & CInt(casi),1
	ColoreTesto 0
	Scrivi String(85,"-"),1
	casi = 0
	For es = ini To fin
		p = 4
		a = Estratto(es,wh,p)
		If a = xx Then
			casi = casi + 1
			Scrivi DataEstrazione(es) & "  " & FormatSpace(NomeRuota(wh),5) & "  " & StringaEstratti(es,wh) & "  Numero Trovato  " & Format2(xx) & " in " & p & "° Posizione ... Caso n° " & Format2(casi)
		End If
	Next
	ColoreTesto 1:Scrivi:Scrivi "Totale casi Trovati con il " & xx & " in " & p & "° Posizione = " & CInt(casi),1
	ColoreTesto 0
	Scrivi String(85,"-"),1
	casi = 0
	For es = ini To fin
		p = 5
		a = Estratto(es,wh,p)
		If a = xx Then
			casi = casi + 1
			Scrivi DataEstrazione(es) & "  " & FormatSpace(NomeRuota(wh),5) & "  " & StringaEstratti(es,wh) & "  Numero Trovato  " & Format2(xx) & " in " & p & "° Posizione ... Caso n° " & Format2(casi)
		End If
	Next
	ColoreTesto 1:Scrivi:Scrivi "Totale casi Trovati con il " & xx & " in " & p & "° Posizione = " & CInt(casi),1
	ColoreTesto 0
End Sub

Periodo di ricerca dal  27.03.2010  al  09.02.2013  By Blackmore

09.09.2010  Bari   90.80.35.18.87  Numero Trovato  90 in 1° Posizione ... Caso n° 01
08.02.2011  Bari   90.45.84.69.08  Numero Trovato  90 in 1° Posizione ... Caso n° 02
12.02.2011  Bari   90.33.03.16.23  Numero Trovato  90 in 1° Posizione ... Caso n° 03
09.02.2012  Bari   90.56.65.27.83  Numero Trovato  90 in 1° Posizione ... Caso n° 04
24.04.2012  Bari   90.19.22.42.23  Numero Trovato  90 in 1° Posizione ... Caso n° 05
25.09.2012  Bari   90.36.59.03.64  Numero Trovato  90 in 1° Posizione ... Caso n° 06
23.10.2012  Bari   90.08.84.36.30  Numero Trovato  90 in 1° Posizione ... Caso n° 07

Totale casi Trovati con il 90 in 1° Posizione = 7
-------------------------------------------------------------------------------------
10.06.2010  Bari   71.90.74.01.47  Numero Trovato  90 in 2° Posizione ... Caso n° 01
28.10.2010  Bari   78.90.43.57.18  Numero Trovato  90 in 2° Posizione ... Caso n° 02
16.07.2011  Bari   54.90.59.18.20  Numero Trovato  90 in 2° Posizione ... Caso n° 03
20.10.2011  Bari   88.90.53.83.19  Numero Trovato  90 in 2° Posizione ... Caso n° 04
28.07.2012  Bari   03.90.66.52.70  Numero Trovato  90 in 2° Posizione ... Caso n° 05
13.10.2012  Bari   79.90.01.23.16  Numero Trovato  90 in 2° Posizione ... Caso n° 06

Totale casi Trovati con il 90 in 2° Posizione = 6
-------------------------------------------------------------------------------------
23.12.2010  Bari   19.68.90.31.36  Numero Trovato  90 in 3° Posizione ... Caso n° 01
30.08.2011  Bari   24.38.90.31.60  Numero Trovato  90 in 3° Posizione ... Caso n° 02
04.08.2012  Bari   42.49.90.08.21  Numero Trovato  90 in 3° Posizione ... Caso n° 03
30.08.2012  Bari   26.83.90.72.79  Numero Trovato  90 in 3° Posizione ... Caso n° 04

Totale casi Trovati con il 90 in 3° Posizione = 4
-------------------------------------------------------------------------------------
20.04.2010  Bari   43.05.84.90.48  Numero Trovato  90 in 4° Posizione ... Caso n° 01
27.07.2010  Bari   73.65.79.90.42  Numero Trovato  90 in 4° Posizione ... Caso n° 02
29.01.2011  Bari   87.46.57.90.17  Numero Trovato  90 in 4° Posizione ... Caso n° 03
10.09.2011  Bari   43.24.21.90.16  Numero Trovato  90 in 4° Posizione ... Caso n° 04
15.11.2012  Bari   86.71.23.90.08  Numero Trovato  90 in 4° Posizione ... Caso n° 05

Totale casi Trovati con il 90 in 4° Posizione = 5
-------------------------------------------------------------------------------------
07.12.2010  Bari   51.83.60.59.90  Numero Trovato  90 in 5° Posizione ... Caso n° 01
22.05.2012  Bari   84.19.31.17.90  Numero Trovato  90 in 5° Posizione ... Caso n° 02
28.08.2012  Bari   37.13.20.84.90  Numero Trovato  90 in 5° Posizione ... Caso n° 03
18.10.2012  Bari   70.46.30.37.90  Numero Trovato  90 in 5° Posizione ... Caso n° 04
29.01.2013  Bari   50.29.05.69.90  Numero Trovato  90 in 5° Posizione ... Caso n° 05

Totale casi Trovati con il 90 in 5° Posizione = 5