Un aiutino rivolto agli esperti in script

[Matematico5]

Buona serata a tutti, chiesevo cortesemente un listato che mi vada alla ricerca attraverso con imput box (spero si dica cosi).. di un ambo qualsiasi a mia scelta e con la posizione desiderata : esempio :

2/8/2012 :BARI 5-66 in 1 e 2 posizione

inserendo nel listato tale ambo andra' a ricercarlo a ritroso nelle stesse posizioni fin dal 1945

Grazie di cuore per chi si cimentera' !

 

[Roby]

Ciao Matematico... ecco lo script

Sub Main()
	Scrivi
	Scrivi String(29," ") & "CERCA AMBO IN POSIZIONE DETERMINATA / LISTATO BY BLACKMORE",1
	Scrivi
	Dim ruote(10)
	r = CInt(InputBox("RUOTA DI RICERCA?",,1))'CAMBIA LA RUOTA DI RICERCA A PIACIMENTO
	spia1 = CInt(InputBox("INSERISCI IL 1° NUMERO",,05))'INSERIRE IL 1° NUMERO CHE SI DESIDERA
	spia2 = CInt(InputBox("INSERISCI IL 2° NUMERO",,66))'INSERIRE IL 2° NUMERO CHE SI DESIDERA
	pos1 = CInt(InputBox("INSERISCI LA POSIZIONE DEL 1° NUMERO...(Da 1 a 5)",,1))'INSERIRE LA POSIZIONE DEL 1° NUMERO
	pos2 = CInt(InputBox("INSERISCI LA POSIZIONE DEL 2° NUMERO...(Da 1 a 5)",,2))'INSERIRE LA POSIZIONE DEL 2° NUMERO
	ex = CInt(InputBox("ESTRAZIONI DI CONTROLLO?",,5000))'DA CAMBIARE IN BASE ALLE PROPRIE ESIGENZE
	co = 0
	fin = EstrazioneFin
	ini = EstrazioneFin - ex
	For es = ini To fin
		a = Estratto(es,r,pos1)
		b = Estratto(es,r,pos2)
		If a = spia1 And b = spia2 Then
			Scrivi String(69,"*"),1
			ColoreTesto 1
			Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " ° Ambo ° " & a & " - " & b & " in " & Posizione(es,r,a) & "° e " & Posizione(es,r,b) & "° Posizione"
			ColoreTesto 0
			co = co + 1
		End If
		If ScriptInterrotto Then Exit For 
	Next
End Sub

 

[Matematico5]

Grazie mille Blackmore... Listato perfetto!...sempre bravissimo e altruista !....ciao e buona serata