Come ordinare un output di uno script in ordine decrescente per un certo valore?

[lotto_tom75]

Io in particolare avrei questo output da ordinare secondo il valore Diff

Dim Diff
Diff = RetRitMax - RetRit1


If(RetRit1 >= 0) Then


Call Scrivi("Ruota: " & SiglaRuota(aRuoteSel(k)) & " Colonna: " & i & " " & StringaNumeri(aRetcol,,True) & " RA " & RetRit1 & " RS " & RetRitMax & " INCMAX " & RetIncrRitMax & " FQ " & RetFreq & " Diff " & Diff)


End If

Grazie per il vostro aiuto

e Buona Pasqua a tutti/e

 

[LuigiB]

ciao , se usi la funzione scrivi non puoi ordinare niente , devi quantomeno scrivere i dati in una tabella , quella si puo ordinare.

 

[lotto_tom75]

ciao , se usi la funzione scrivi non puoi ordinare niente , devi quantomeno scrivere i dati in una tabella , quella si puo ordinare.

E per scrivere i dati in una tabella? Considerami analfabeta ti prego.

 

[LuigiB]

non sei analfabeta tom .. quante volte ti ho detto di andare a spulciare la directory degli script di esempio ?

 

[lotto_tom75]

non sei analfabeta tom .. quante volte ti ho detto di andare a spulciare la directory degli script di esempio ?

Forse l'ho trovato l'esempio da studiare...

Sub Main
	
	ReDim aTitoli(3) ' titoli tabella
	Dim k ' controllo cicli
	Dim rt ' ruota
	Dim idEstr 'estrazione inizio analisi
	
	
	' imposto l'estrazione sull'ultima disponibile
	idEstr = EstrazioniArchivio
	
	
	' faccio scorrere un testo che indica da quale estrazione parte l'analisi
	Call TestoInBandaPassante("Ritardo dei numeri all'estrazione " & GetInfoEstrazione(idEstr))
	
	
	
	
	' preimposto i titoli delle colonne
	aTitoli(1) = "Numero"
	aTitoli(2) = "Ruota"
	aTitoli(3) = "Ritardo"


	' inizializzo la tabella
	Call InitTabella(aTitoli,1,,,5)


	' faccio un ciclo dove calcolo il ritardo sulle 10 ruote di tutti i 90 numeri	
	' mano mano aggiungo una nuova riga alla tabella




	For rt = 1 To 10 ' ciclo ruote
		For k = 1 To 90 ' ciclo numeri
			' preimposto un array di comodo per creare la nuova riga da aggiungere alla tabella
			ReDim aValori(3) ' abbiamo 3 titoli quindi anche qui dimensioniamo con 3 colonne
			aValori(1) = Format2(k) ' numero
			aValori(2) = NomeRuota(rt) ' nome ruota
			aValori(3) = RitardoEstratto(k,idEstr,rt) ' valore del ritardo di quel numero su quella ruota
			
			' con questo blocco if coloro le righe che agguiungo in funzione del loro ritardo
			If aValori(3) >= 0 And aValori(3) <= 30 Then
				Call AddRigaTabella(aValori,Verde_,"right")
			ElseIf aValori(3) > 30 And aValori(3) <= 50 Then
				Call AddRigaTabella(aValori,Giallo_,"right")
			
			ElseIf aValori(3) > 50 And aValori(3) <= 80 Then
				Call AddRigaTabella(aValori,Magenta_,"right")
			ElseIf aValori(3) > 80 Then
				Call AddRigaTabella(aValori,Rosso_,"right")
				Call SetColoreCella(3,vbYellow,vbRed)
				
			End If
			


		Next
	Next		
	
	' ora che ho terminato l'analisi e ho finito di accodare le righe
	' creo la tabella e la ordino per la colonna 3 che rappresenta il ritardo
	
	'Call CreaTabella(3,,,,1) ' alimenta da sinistra a destra
	Call CreaTabella(3) ' alimenta dall'alto in basso
	
	


	
	
End Sub

Grazie e Buona Pasqua Luigi!

 

[LuigiB]

Perfetto , intendevo proprio quello . Buona Pasqua anche a te ... ciao

 

[vignoli]

scusate ma questi scrpt dov si trovano sono dischetti o si trovano in internet grazie tina

 

[mastrogino]

ciao tom. ciao Luigi , forse vi farò una domanda impossbile da realizzare ma ci provo

si potrebbe fare l'inverso ......cioee la tabella cosi com'e impostata ma che dia il valore la sua distanza a 90

grazie e colgo l'occasione x augurarvi una serena SANTA PASQUA

 

[LuigiB]

probabilmente è tutt'altro che impossibile anzi penso sia banale .. solo che non ho capito che vuol dire la sua distanza a 90

 

[mastrogino]

probabilmente è tutt'altro che impossibile anzi penso sia banale .. solo che non ho capito che vuol dire la sua distanza a 90

c'è chi lo chiama scompenso

60 numero la distanza a 90. 30 o scompenso

 

[LuigiB]

ancora piu ignoto .. non ho capito proprio .. devi fare un esempio o spiegare meglio. Ciao

 

[mastrogino]

estrzione di venezia del 26/03/2013
................84.30.22.32.74
distnza90...06.60.68.58.16
ritardo.......24.06.04.71.14


lo sript dovrebbe fare su ruota mettere in prima la distanza con titardo maggiore e a scalare

 

[LuigiB]

cioè cosi ? Qui il ritardo non si riferisce al numero estratto ma al numero ottenuto dalla distanza tra il numero estratto e 90

Sub Main
	
	ReDim aTitoli(3) ' titoli tabella
	Dim k ' controllo cicli
	Dim rt ' ruota
	Dim idEstr 'estrazione inizio analisi
	
	
	' imposto l'estrazione sull'ultima disponibile
	idEstr = EstrazioniArchivio
	
	
	' faccio scorrere un testo che indica da quale estrazione parte l'analisi
	Call TestoInBandaPassante("Ritardo dei numeri ottenuti con distanza a 90 all'estrazione " & GetInfoEstrazione(idEstr))
	
	
	
	
	' preimposto i titoli delle colonne
	aTitoli(1) = "Numero"
	aTitoli(2) = "Ruota"
	aTitoli(3) = "Ritardo"

	' inizializzo la tabella
	Call InitTabella(aTitoli,1,,,5)

	' faccio un ciclo dove calcolo il ritardo sulle 10 ruote di tutti i 90 numeri	
	' mano mano aggiungo una nuova riga alla tabella


	For rt = 1 To 10 ' ciclo ruote
		For k = 1 To 90 ' ciclo numeri
			' preimposto un array di comodo per creare la nuova riga da aggiungere alla tabella
			ReDim aValori(3) ' abbiamo 3 titoli quindi anche qui dimensioniamo con 3 colonne
			aValori(1) = Format2(k) ' numero
			aValori(2) = NomeRuota(rt) ' nome ruota
			aValori(3) = RitardoEstratto(Distanza(k, 90), idEstr,rt) ' valore del ritardo di quel numero su quella ruota
			
			' con questo blocco if coloro le righe che agguiungo in funzione del loro ritardo
			If aValori(3) >= 0 And aValori(3) <= 30 Then
				Call AddRigaTabella(aValori,Verde_,"right")
			ElseIf aValori(3) > 30 And aValori(3) <= 50 Then
				Call AddRigaTabella(aValori,Giallo_,"right")
			
			ElseIf aValori(3) > 50 And aValori(3) <= 80 Then
				Call AddRigaTabella(aValori,Magenta_,"right")
			ElseIf aValori(3) > 80 Then
				Call AddRigaTabella(aValori,Rosso_,"right")
				Call SetColoreCella(3,vbYellow,vbRed)
				
			End If
			

		Next
	Next		
	
	' ora che ho terminato l'analisi e ho finito di accodare le righe
	' creo la tabella e la ordino per la colonna 3 che rappresenta il ritardo
	
	'Call CreaTabella(3,,,,1) ' alimenta da sinistra a destra
	Call CreaTabella(3) ' alimenta dall'alto in basso
	
	

	
	
End Sub

 

[mastrogino]

si ma a venezia no segnala 1 con l'uscita del 02

[TD="bgcolor: #00ff00, align: right"] 88 [/TD]
[TD="bgcolor: #00ff00, align: right"] Venezia [/TD]
[TD="bgcolor: #00ff00, align: right"] 0 [/TD]

ps quando escono in tutte e due ( capita ) SI AZZERANO TUTTE E DUE