Ciao Matteo, tranquillo lo script ordina le colonne volute e l'ascendenza voluta, e scrive anche tutte le 117480 righe sia in video che in excel
in excel non ho messo ordinamento in quanto poi questo lo decidi tu.
Prova dovrebbe funzionare in tutto.
Sub Main
Dim MinRit(3),Mat(117480,9)
Dim sRiga,sFilecsv
Dim A(2)
Dim B(2)
Dim C(2)
' vx = CInt(InputBox("Quanti ne visualizzo","Max 117480",30))
minx = CInt(InputBox("Quale ordinamento" & Chr(13) & Chr(13) & "Ascendente = 1" & Chr(13) & "Discendente = -1",,1))
col = CInt(InputBox("Quale colonna ordino" & Chr(13) & Chr(13) & "Min_RitCorr = 7" & Chr(13) & "Max_RitCorr = 8" & Chr(13) & "Min_RitStor = 9",,9))
If col = 7 Then Scrivi "Ordinamento per Min_Ritardo Corrente",1
If col = 8 Then Scrivi "Ordinamento per Max_Ritardo Corrente",1
If col = 9 Then Scrivi "Ordinamento per Min_Ritardo Storico ",1
If minx = 1 Then Scrivi "Ordinamneto Ascendente",1
If minx = - 1 Then Scrivi "Ordinamento Discendente",1
'---------------------------------------------------------
' prepara il file csv
sFilecsv = GetDirectoryAppData & "temp\Analisi.csv"
Call EliminaFile(sFilecsv)
' scrive i titoli delle colonne nel file csv
sRiga = "Tri-Ambi ; RitA ; RitB ; RitC ; Min_Rit ; Max_Rit ; Min_Sto"
Call ScriviFile(sFilecsv,sRiga,False)
'-----------------------------------------------------------
ReDim Ru(0)
ScegliRuote(Ru)
ResetTimer
Scrivi Space(10) & "Ruote analizzate : " & StringaRuote(Ru),1,,,1
Scrivi Space(2) & "Combinazione" & Space(6) & "RitA / RitB / RitC" & Space(2) & "MinRit" & Space(1) & "MaxRit" & Space(1) & "MinSto",1,,,,,,1
Ini = 8117
fin = EstrazioneFin
For n1 = 1 To 88
n2 = n1 + 1
For n3 = n1 + 1 To 89
n4 = n3 + 1
For n5 = n3 + 1 To 90
n6 = n5 + 1
A(1) = n1 : A(2) = n2
B(1) = n3 : B(2) = n4
C(1) = Fuori90(n5) : C(2) = Fuori90(n6)
k = k + 1
srA = SerieRitardoTurbo(Ini,fin,A,Ru,2)
srB = SerieRitardoTurbo(Ini,fin,B,Ru,2)
srC = SerieRitardoTurbo(Ini,fin,C,Ru,2)
'-----------------------------------------------------
MinRit(1) = srA : MinRit(2) = srB : MinRit(3) = srC
'-----------------------------------------------------
Call AddNumeriToGruppoStatistico(A,Ru)
Call AddNumeriToGruppoStatistico(B,Ru)
Call AddNumeriToGruppoStatistico(C,Ru)
Call StatisticaGruppoFormazioniTurbo(2,ritt,sto,fre,sgruppo,Ini,fin)
'-----------------------------------------------------------------------------
min = MinimoV(MinRit,1,- 1)
max = MassimoV(MinRit)
Call Messaggio("Terni... " & k)
Call AvanzamentoElab(100,117480,k)
'------------------------------------
Mat(k,1) = StringaNumeri(A,,1)
Mat(k,2) = StringaNumeri(B,,1)
Mat(k,3) = StringaNumeri(C,,1)
Mat(k,4) = MinRit(1)
Mat(k,5) = MinRit(2)
Mat(k,6) = MinRit(3)
Mat(k,7) = min
Mat(k,8) = max
Mat(k,9) = sto
'----------------------------------------------------------------
sRiga = StringaNumeri(A,,1) & " , " & StringaNumeri(B,,1) & " , " & StringaNumeri(C,,1) & ";"
sRiga = sRiga & MinRit(1) & ";"
sRiga = sRiga & MinRit(2) & ";"
sRiga = sRiga & MinRit(3) & ";"
sRiga = sRiga & Min & ";"
sRiga = sRiga & Max & ";"
sRiga = sRiga & sto & ";"
Call ScriviFile(sFilecsv,sRiga,False)
'---------------------------------------------------------------
Next
Next
If ScriptInterrotto Then Exit For
Next
'----------------------------------------------------
Call CloseFileHandle(sFilecsv)
Call LanciaFile(sFilecsv)
Call OrdinaMatrice(Mat,minx,col)
For x = 1 To 117480
Scrivi Mat(x,1) & ";" & Mat(x,2) & ";" & Mat(x,3) & " | " & FormatSpace(Mat(x,4),4) & " / " & FormatSpace(Mat(x,5),4) & " / " & _
FormatSpace(Mat(x,6),4) & " | " & FormatSpace(Mat(x,7),4) & " |" & FormatSpace(Mat(x,8),4) & " | " & FormatSpace(Mat(x,9),4)
Next
Scrivi k,1
Scrivi "Tempo di elaborazione : " & TempoTrascorso,1
End Sub
