Function analizzatorefilematricetxt(inizio,counterrange)
Dim k,y
Dim Classe
Dim aCol
ReDim aNum(90)
Dim i
Dim nSorte,Fine,RetRit1,QuantitaNumeriScelti,aRuoteSel,RuoteSelezionate,RetRitMax,RetIncrRitMax,retfreq',inizio
Dim ColTot
Scrivi
Scrivi "Elaborazione per il range temporale dall'estrazione n. " & inizio & " all'estrazione n. " & counterrange + 1
Scrivi
Dim sfile
Dim filexverificafinale
filexverificafinale = ".\filexverificafinale.txt"
Call Messaggio("Lettura file di testo")
ReDim aRighe(0)
Call LeggiRigheFileDiTesto(sfile,aRighe)
For k = 0 To UBound(aRighe)
If aRighe(k) <> "" Then
ReDim aN(0)
Call SplitByChar("." & aRighe(k),".",aN)
End If
Next
sfile = ".\matrice-numerica-desiderata.txt"
ReDim aRuoteSel(12)
For k = 2 To 2 'analizza la ruota di cagliari
Next
Dim contatore
Call Messaggio("Lettura file di testo")
ReDim aRighe(0)
Call LeggiRigheFileDiTesto(sfile,aRighe)
Call Scrivi
Call Scrivi("Classe: " & Classe & " - " & " sorte: " & nSorte)
Call Scrivi
ReDim aTitoli(9)
aTitoli(1) = "Formazione"
aTitoli(2) = "Ruota"
aTitoli(3) = "Sorte"
aTitoli(4) = "Ritardo"
aTitoli(5) = "Ritardo Massimo"
aTitoli(6) = "Incremento di RItardo Massimo"
aTitoli(7) = "Frequenza"
aTitoli(8) = "Diff"
aTitoli(9) = "Counter"
Call InitTabella(aTitoli)
For y = 0 To UBound(aRighe)
If aRighe(y) <> "" Then
ReDim aNum(0)
Call SplitByChar("." & aRighe(y),".",aNum)
contatore = contatore + 1
nSorte = 2
ReDim aRuoteTmp(1)
Dim contatorexinserimentofrq
nSorte = 2
Classe = 20
ColTot = InitSviluppoIntegrale(aNum,Classe)
If ColTot > 0 Then
Do While GetCombSviluppo(aCol) = True
i = i + 1
Dim clsN
Dim Coll
Set Coll = GetNewCollection
ReDim aruote7(1)
aruote7(1) = CA_
aRuoteTmp(1) = aruote7(1)
Call StatisticaFormazioneTurbo(aCol,aRuoteTmp,nSorte,RetRit1,RetRitMax,RetIncrRitMax,retfreq,inizio,counterrange)
Diff = RetRitMax - RetRit1
Set clsN = New clsRitardo
clsN.numero = StringaNumeri(aCol)
clsN.aRuote = "ruota:" & NomeRuota(aruote7(1))
clsN.nSorte = nSorte
clsN.nritardo = RetRit1
clsN.RetRitMax = RetRitMax
clsN.RetRitIncrRitMax = RetIncrRitMax
clsN.retfreq = retfreq
clsN.difforo = Diff
clsN.contatore = contatore
Dim Diff
Diff = RetRitMax - RetRit1
Dim rapportoRARS
rapportoRARS = RetRit1/RetRitMax
Call AvanzamentoElab(1,ColTot,i)
Coll.Add clsN,"k" & clsN.numero
If(RetRit1 >= 0) Then
Call Messaggio("Trovata!!! :) per la ruota di: " & NomeRuota(aruote7(1)))
contatore = contatore + 1
Else
Call Messaggio("Colonna " & i)
End If
If ScriptInterrotto Then Exit Do
For Each clsN In Coll
ReDim aValue(9)
aValue(1) = clsN.numero
aValue(2) = clsN.aRuote
aValue(3) = clsN.nSorte
aValue(4) = clsN.nritardo
aValue(5) = clsN.RetRitMax
aValue(6) = clsN.RetRitIncrRitMax
aValue(7) = clsN.retfreq
aValue(8) = clsN.difforo
aValue(9) = clsN.contatore
Call AddRigaTabella(aValue)
Next
Loop
End If
End If
Next
Call CreaTabella(7,- 1,0,2,0) ' ordina in modo decrescente mostrando come prima ed unica riga il valore di FQ + ALTO
Call Scrivi("Ultima FQ rilevata da file txt : " & retfreq)
Scrivi
Call Scrivi("formazione mostrata dopo ordinamento turbo " & aValue(1) & " fq " & aValue(7))
Scrivi
Call ScriviFile(filexverificafinale,StringaNumeri(aNum),False,True)
Call CloseFileHandle(filexverificafinale) ' chiudo l'handle al file
End Function
?
