script che genera una serie di file usabili in excel su frequenze e ritardi

gian332 · 20 Settembre 2014

questo script che ho fatto tempo fa genera una serie di file usabili in excel su frequenze e ritardi dei 90 numeri su cilcli di 50/100/150/200 estrazioni.
cè qualcuno in grado di modificarlo per ottenere lo stesso risultato ma utilizzando le estrazioni del 10elotto 5 minuti. ringrazio anticipatamente chiunque voglia darmi una mano. allego il file contenente lo script. per poterlo caricare ho dovuto modificarne l'estensione, quindi per essere caricato da spaziometria
va modificata l'estensione da .zip a .ls

solare · 20 Settembre 2014

Non funziona..!

claudio8 · 21 Settembre 2014

Non riesco neanche a scaricarlo, in fase di apertura unzip mi da "archivio danneggiao o formato sconosciuto"

gian332 · 21 Settembre 2014

claudio8 ha scritto:
Non riesco neanche a scaricarlo, in fase di apertura unzip mi da "archivio danneggiao o formato sconosciuto"

non devi aprirlo devi cambiarne l'estensione da .zip a .ls e caricarlo con il gestore di script di spaziometria

gian332 · 21 Settembre 2014

claudio8 ha scritto:
Non riesco neanche a scaricarlo, in fase di apertura unzip mi da "archivio danneggiao o formato sconosciuto"

puoi essere piu preciso ,.. quale errore ti da ?

solare · 21 Settembre 2014

Ho fatto come dici tu, una volta inserito il file nella cartella comunque non è visibile.
Scusa gian332, non puoi inserire il listato con copia incolla ?

gian332 · 21 Settembre 2014

solare ha scritto:
Ho fatto come dici tu, una volta inserito il file nella cartella comunque non è visibile.
Scusa gian332, non puoi inserire il listato con copia incolla ?

ok posto il listato

gian332 · 21 Settembre 2014

Sub Main
Dim FileOutput
Dim idEstr,e
Dim Inizio,Fine
Dim recFRQ,recFRQs,recRIT,recRITs
Dim Intestazione
Dim ciclo90,nEstra
Dim Frequenza,FrequenzaTeorica,FrequenzaReale
Dim sFileOutput1,sFileOutput2,sFileOutput3
Dim SrecordIntestazione3,sRecord1,sRecord2,sRecord3
Dim SRecord1Piu,SRecord2Piu,SRecord3Piu
Dim idFrequenzaReale,idFrequenzaTeorica,idFrequenza
'************* F R E Q U E N Z E

'************* F R E Q U E N Z E
'***************
ciclo90 = 45
nEstra = 50
'nEstra = InputBox("Quante estrazioni processare ?")
Fine = EstrazioneFin ' 0
Inizio = Fine -(nEstra - 1) ' EstrazioneIni
'*************
FileOutput = "C:\00 DATI SPAZIOMETRIA\10Elotto 50 ID FRQ FRQs RITs 1_45.txt"
Call EliminaFile(FileOutput) 'elimina il file nel caso esistesse già
'**********************
'il file creato deve contenere all'inizio il riconoscimento delle colonne
Intestazione = "ID1 "
For ciclo90 = 1 To 45
Intestazione = Intestazione & "frq" & CStr(ciclo90) & " "
Next
Intestazione = Intestazione & "IDs "
For ciclo90 = 1 To 45
Intestazione = Intestazione & "frqS" & CStr(ciclo90) & " "
Next
Intestazione = Intestazione & "IDs1 "
For ciclo90 = 1 To 45
Intestazione = Intestazione & "ritS" & CStr(ciclo90) & " "
Next
Call ScriviFile(FileOutput,Intestazione,False)
'***********
For idEstr = Inizio To Fine
'Ltrim() rimuove spazzi a sinistra di una stringa
'Rtrim() rimuove tutti gli spazzi a destra di una stringa
recFRQ = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x frequenze
recRITs = LTrim(FormatSpace(idEstr - 1,5,True)) & " "
recFRQs = FormatSpace((idEstr - 1),5,True) & " " 'ottengo indice estrazione -1 per frequeze scalate
'*********
For ciclo90 = 1 To 45 ' memorizzo frequenza
FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,idEstr)
FrequenzaTeorica = Int((idEstr - Inizio) / 4.5)
Frequenza = FrequenzaReale - FrequenzaTeorica
recFRQ = recFRQ & FormatSpace(Frequenza,3) & " "
Next
For ciclo90 = 1 To 45 ' memorizzo frequenza
FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
FrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
Frequenza = FrequenzaReale - FrequenzaTeorica
recFRQs = recFRQs & FormatSpace(Frequenza,3) & " "
Next
'**************
For ciclo90 = 1 To 45 'memorizzo ritardi
'recRIT = recRIT & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr),3) & " "
recRITs = recRITs & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,(idEstr - 1)),3) & " "
Next
'***********
'****************
Call ScriviFile(FileOutput,recFRQ & recFRQs & recRITs,False)
Call AvanzamentoElab(Inizio,Fine,idEstr)
Next
'*****************
Call CloseFileHandle(FileOutput)
Call LanciaFile(FileOutput)
'**************
ciclo90 = 45
nEstra = 50
'nEstra = InputBox("Quante estrazioni processare ?")
Fine = EstrazioneFin ' 0
Inizio = Fine -(nEstra - 1) ' EstrazioneIni
'*************
FileOutput = "C:\00 DATI SPAZIOMETRIA\10Elotto 50 ID FRQ FRQs RITs 46_90.txt"
Call EliminaFile(FileOutput) 'elimina il file nel caso esistesse già
'**********************
'il file creato deve contenere all'inizio il riconoscimento delle colonne
Intestazione = "ID1 "
For ciclo90 = 46 To 90
Intestazione = Intestazione & "frq" & CStr(ciclo90) & " "
Next
Intestazione = Intestazione & "IDs "
For ciclo90 = 46 To 90
Intestazione = Intestazione & "frqS" & CStr(ciclo90) & " "
Next
Intestazione = Intestazione & "IDs1 "
For ciclo90 = 46 To 90
Intestazione = Intestazione & "ritS" & CStr(ciclo90) & " "
Next
Call ScriviFile(FileOutput,Intestazione,False)
'***********
For idEstr = Inizio To Fine
'Ltrim() rimuove spazzi a sinistra di una stringa
'Rtim() rimuove tutti gli spazzi a destra di una stringa
recFRQ = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x frequenze
recRITs = LTrim(FormatSpace(idEstr - 1,5,True)) & " "
recFRQs = FormatSpace((idEstr - 1),5,True) & " " 'ottengo indice estrazione -1 per frequeze scalate
'*********
For ciclo90 = 46 To 90 ' memorizzo frequenza
FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,idEstr)
FrequenzaTeorica = Int((idEstr - Inizio) / 4.5)
Frequenza = FrequenzaReale - FrequenzaTeorica
recFRQ = recFRQ & FormatSpace(Frequenza,3) & " "
Next
For ciclo90 = 46 To 90 ' memorizzo frequenza
FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
FrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
Frequenza = FrequenzaReale - FrequenzaTeorica
recFRQs = recFRQs & FormatSpace(Frequenza,3) & " "
Next
'**************
For ciclo90 = 46 To 90 'memorizzo ritardi
'recRIT = recRIT & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr),3) & " "
recRITs = recRITs & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,(idEstr - 1)),3) & " "
Next
'***********
'****************
Call ScriviFile(FileOutput,recFRQ & recFRQs & recRITs,False)
Call AvanzamentoElab(Inizio,Fine,idEstr)
Next
'*****************
Call CloseFileHandle(FileOutput)
Call LanciaFile(FileOutput)
'**************

'***************
ciclo90 = 45
nEstra = 100
'nEstra = InputBox("Quante estrazioni processare ?")
Fine = EstrazioneFin' 0
Inizio = Fine -(nEstra - 1) ' EstrazioneIni
'*************
FileOutput = "C:\00 DATI SPAZIOMETRIA\10Elotto 100 ID FRQ FRQs RITs 1_45.txt"
Call EliminaFile(FileOutput) 'elimina il file nel caso esistesse già
'**********************
'il file creato deve contenere all'inizio il riconoscimento delle colonne
Intestazione = "ID1 "
For ciclo90 = 1 To 45
Intestazione = Intestazione & "frq" & CStr(ciclo90) & " "
Next
Intestazione = Intestazione & "IDs "
For ciclo90 = 1 To 45
Intestazione = Intestazione & "frqS" & CStr(ciclo90) & " "
Next
Intestazione = Intestazione & "IDs1 "
For ciclo90 = 1 To 45
Intestazione = Intestazione & "ritS" & CStr(ciclo90) & " "
Next
Call ScriviFile(FileOutput,Intestazione,False)
'***********
For idEstr = Inizio To Fine
'Ltrim() rimuove spazzi a sinistra di una stringa
'Rtim() rimuove tutti gli spazzi a destra di una stringa
recFRQ = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x frequenze
recRITs = LTrim(FormatSpace(idEstr - 1,5,True)) & " "
recFRQs = FormatSpace((idEstr - 1),5,True) & " " 'ottengo indice estrazione -1 per frequeze scalate
'*********
For ciclo90 = 1 To 45 ' memorizzo frequenza
FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,idEstr)
FrequenzaTeorica = Int((idEstr - Inizio) / 4.5)
Frequenza = FrequenzaReale - FrequenzaTeorica
recFRQ = recFRQ & FormatSpace(Frequenza,3) & " "
Next
For ciclo90 = 1 To 45 ' memorizzo frequenza
FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
FrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
Frequenza = FrequenzaReale - FrequenzaTeorica
recFRQs = recFRQs & FormatSpace(Frequenza,3) & " "
Next
'**************
For ciclo90 = 1 To 45 'memorizzo ritardi
'recRIT = recRIT & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr),3) & " "
recRITs = recRITs & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,(idEstr - 1)),3) & " "
Next
'***********
'****************
Call ScriviFile(FileOutput,recFRQ & recFRQs & recRITs,False)
Call AvanzamentoElab(Inizio,Fine,idEstr)
Next
'*****************
Call CloseFileHandle(FileOutput)
Call LanciaFile(FileOutput)
'**************
ciclo90 = 45
nEstra = 100
'nEstra = InputBox("Quante estrazioni processare ?")
Fine = EstrazioneFin ' 0
Inizio = Fine -(nEstra - 1) ' EstrazioneIni
'*************
FileOutput = "C:\00 DATI SPAZIOMETRIA\10Elotto 100 ID FRQ FRQs RITs 46_90.txt"
Call EliminaFile(FileOutput) 'elimina il file nel caso esistesse già
'**********************
'il file creato deve contenere all'inizio il riconoscimento delle colonne
Intestazione = "ID1 "
For ciclo90 = 46 To 90
Intestazione = Intestazione & "frq" & CStr(ciclo90) & " "
Next
Intestazione = Intestazione & "IDs "
For ciclo90 = 46 To 90
Intestazione = Intestazione & "frqS" & CStr(ciclo90) & " "
Next
Intestazione = Intestazione & "IDs1 "
For ciclo90 = 46 To 90
Intestazione = Intestazione & "ritS" & CStr(ciclo90) & " "
Next
Call ScriviFile(FileOutput,Intestazione,False)
'***********
For idEstr = Inizio To Fine
'Ltrim() rimuove spazzi a sinistra di una stringa
'Rtim() rimuove tutti gli spazzi a destra di una stringa
recFRQ = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x frequenze
recRITs = LTrim(FormatSpace(idEstr - 1,5,True)) & " "
recFRQs = FormatSpace((idEstr - 1),5,True) & " " 'ottengo indice estrazione -1 per frequeze scalate
'*********
For ciclo90 = 46 To 90 ' memorizzo frequenza
FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,idEstr)
FrequenzaTeorica = Int((idEstr - Inizio) / 4.5)
Frequenza = FrequenzaReale - FrequenzaTeorica
recFRQ = recFRQ & FormatSpace(Frequenza,3) & " "
Next
For ciclo90 = 46 To 90 ' memorizzo frequenza
FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
FrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
Frequenza = FrequenzaReale - FrequenzaTeorica
recFRQs = recFRQs & FormatSpace(Frequenza,3) & " "
Next
'**************
For ciclo90 = 46 To 90 'memorizzo ritardi
'recRIT = recRIT & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr),3) & " "
recRITs = recRITs & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,(idEstr - 1)),3) & " "
Next
'***********
'****************
Call ScriviFile(FileOutput,recFRQ & recFRQs & recRITs,False)
Call AvanzamentoElab(Inizio,Fine,idEstr)
Next
'*****************
Call CloseFileHandle(FileOutput)
Call LanciaFile(FileOutput)
'**************
ciclo90 = 45
nEstra = 150
'nEstra = InputBox("Quante estrazioni processare ?")
Fine = EstrazioneFin ' 0
Inizio = Fine -(nEstra - 1) ' EstrazioneIni
'*************
FileOutput = "C:\00 DATI SPAZIOMETRIA\10Elotto 150 ID FRQ FRQs RITs 1_45.txt"
Call EliminaFile(FileOutput) 'elimina il file nel caso esistesse già
'**********************
'il file creato deve contenere all'inizio il riconoscimento delle colonne
Intestazione = "ID1 "
For ciclo90 = 1 To 45
Intestazione = Intestazione & "frq" & CStr(ciclo90) & " "
Next
Intestazione = Intestazione & "IDs "
For ciclo90 = 1 To 45
Intestazione = Intestazione & "frqS" & CStr(ciclo90) & " "
Next
Intestazione = Intestazione & "IDs1 "
For ciclo90 = 1 To 45
Intestazione = Intestazione & "ritS" & CStr(ciclo90) & " "
Next
Call ScriviFile(FileOutput,Intestazione,False)
'***********
For idEstr = Inizio To Fine
'Ltrim() rimuove spazzi a sinistra di una stringa
'Rtim() rimuove tutti gli spazzi a destra di una stringa
recFRQ = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x frequenze
recRITs = LTrim(FormatSpace(idEstr - 1,5,True)) & " "
recFRQs = FormatSpace((idEstr - 1),5,True) & " " 'ottengo indice estrazione -1 per frequeze scalate
'*********
For ciclo90 = 1 To 45 ' memorizzo frequenza
FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,idEstr)
FrequenzaTeorica = Int((idEstr - Inizio) / 4.5)
Frequenza = FrequenzaReale - FrequenzaTeorica
recFRQ = recFRQ & FormatSpace(Frequenza,3) & " "
Next
For ciclo90 = 1 To 45 ' memorizzo frequenza
FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
FrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
Frequenza = FrequenzaReale - FrequenzaTeorica
recFRQs = recFRQs & FormatSpace(Frequenza,3) & " "
Next
'**************
For ciclo90 = 1 To 45 'memorizzo ritardi
'recRIT = recRIT & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr),3) & " "
recRITs = recRITs & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,(idEstr - 1)),3) & " "
Next
'***********
'****************
Call ScriviFile(FileOutput,recFRQ & recFRQs & recRITs,False)
Call AvanzamentoElab(Inizio,Fine,idEstr)
Next
'*****************
Call CloseFileHandle(FileOutput)
Call LanciaFile(FileOutput)
'**************
ciclo90 = 45
nEstra = 150
'nEstra = InputBox("Quante estrazioni processare ?")
Fine = EstrazioneFin ' 0
Inizio = Fine -(nEstra - 1) ' EstrazioneIni
'*************
FileOutput = "C:\00 DATI SPAZIOMETRIA\10Elotto 150 ID FRQ FRQs RITs 46_90.txt"
Call EliminaFile(FileOutput) 'elimina il file nel caso esistesse già
'**********************
'il file creato deve contenere all'inizio il riconoscimento delle colonne
Intestazione = "ID1 "
For ciclo90 = 46 To 90
Intestazione = Intestazione & "frq" & CStr(ciclo90) & " "
Next
Intestazione = Intestazione & "IDs "
For ciclo90 = 46 To 90
Intestazione = Intestazione & "frqS" & CStr(ciclo90) & " "
Next
Intestazione = Intestazione & "IDs1 "
For ciclo90 = 46 To 90
Intestazione = Intestazione & "ritS" & CStr(ciclo90) & " "
Next
Call ScriviFile(FileOutput,Intestazione,False)
'***********
For idEstr = Inizio To Fine
'Ltrim() rimuove spazzi a sinistra di una stringa
'Rtim() rimuove tutti gli spazzi a destra di una stringa
recFRQ = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x frequenze
recRITs = LTrim(FormatSpace(idEstr - 1,5,True)) & " "
recFRQs = FormatSpace((idEstr - 1),5,True) & " " 'ottengo indice estrazione -1 per frequeze scalate
'*********
For ciclo90 = 46 To 90 ' memorizzo frequenza
FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,idEstr)
FrequenzaTeorica = Int((idEstr - Inizio) / 4.5)
Frequenza = FrequenzaReale - FrequenzaTeorica
recFRQ = recFRQ & FormatSpace(Frequenza,3) & " "
Next
For ciclo90 = 46 To 90 ' memorizzo frequenza
FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
FrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
Frequenza = FrequenzaReale - FrequenzaTeorica
recFRQs = recFRQs & FormatSpace(Frequenza,3) & " "
Next
'**************
For ciclo90 = 46 To 90 'memorizzo ritardi
'recRIT = recRIT & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr),3) & " "
recRITs = recRITs & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,(idEstr - 1)),3) & " "
Next
'***********
'****************
Call ScriviFile(FileOutput,recFRQ & recFRQs & recRITs,False)
Call AvanzamentoElab(Inizio,Fine,idEstr)
Next
'*****************
Call CloseFileHandle(FileOutput)
Call LanciaFile(FileOutput)
'**************
ciclo90 = 45
nEstra = 200
'nEstra = InputBox("Quante estrazioni processare ?")
Fine = EstrazioneFin ' 0
Inizio = Fine -(nEstra - 1) ' EstrazioneIni
'*************
FileOutput = "C:\00 DATI SPAZIOMETRIA\10Elotto 200 ID FRQ FRQs RITs 1_45.txt"
Call EliminaFile(FileOutput) 'elimina il file nel caso esistesse già
'**********************
'il file creato deve contenere all'inizio il riconoscimento delle colonne
Intestazione = "ID1 "
For ciclo90 = 1 To 45
Intestazione = Intestazione & "frq" & CStr(ciclo90) & " "
Next
Intestazione = Intestazione & "IDs "
For ciclo90 = 1 To 45
Intestazione = Intestazione & "frqS" & CStr(ciclo90) & " "
Next
Intestazione = Intestazione & "IDs1 "
For ciclo90 = 1 To 45
Intestazione = Intestazione & "ritS" & CStr(ciclo90) & " "
Next
Call ScriviFile(FileOutput,Intestazione,False)
'***********
For idEstr = Inizio To Fine
'Ltrim() rimuove spazzi a sinistra di una stringa
'Rtim() rimuove tutti gli spazzi a destra di una stringa
recFRQ = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x frequenze
recRITs = LTrim(FormatSpace(idEstr - 1,5,True)) & " "
recFRQs = FormatSpace((idEstr - 1),5,True) & " " 'ottengo indice estrazione -1 per frequeze scalate
'*********
For ciclo90 = 1 To 45 ' memorizzo frequenza
FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,idEstr)
FrequenzaTeorica = Int((idEstr - Inizio) / 4.5)
Frequenza = FrequenzaReale - FrequenzaTeorica
recFRQ = recFRQ & FormatSpace(Frequenza,3) & " "
Next
For ciclo90 = 1 To 45 ' memorizzo frequenza
FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
FrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
Frequenza = FrequenzaReale - FrequenzaTeorica
recFRQs = recFRQs & FormatSpace(Frequenza,3) & " "
Next
'**************
For ciclo90 = 1 To 45 'memorizzo ritardi
'recRIT = recRIT & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr),3) & " "
recRITs = recRITs & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,(idEstr - 1)),3) & " "
Next
'***********
'****************
Call ScriviFile(FileOutput,recFRQ & recFRQs & recRITs,False)
Call AvanzamentoElab(Inizio,Fine,idEstr)
Next
'*****************
Call CloseFileHandle(FileOutput)
Call LanciaFile(FileOutput)
'**************
ciclo90 = 45
nEstra = 200
'nEstra = InputBox("Quante estrazioni processare ?")
Fine = EstrazioneFin ' 0
Inizio = Fine -(nEstra - 1) ' EstrazioneIni
'*************
FileOutput = "C:\00 DATI SPAZIOMETRIA\10Elotto 200 ID FRQ FRQs RITs 46_90.txt"
Call EliminaFile(FileOutput) 'elimina il file nel caso esistesse già
'**********************
'il file creato deve contenere all'inizio il riconoscimento delle colonne
Intestazione = "ID1 "
For ciclo90 = 46 To 90
Intestazione = Intestazione & "frq" & CStr(ciclo90) & " "
Next
Intestazione = Intestazione & "IDs "
For ciclo90 = 46 To 90
Intestazione = Intestazione & "frqS" & CStr(ciclo90) & " "
Next
Intestazione = Intestazione & "IDs1 "
For ciclo90 = 46 To 90
Intestazione = Intestazione & "ritS" & CStr(ciclo90) & " "
Next
Call ScriviFile(FileOutput,Intestazione,False)
'***********
For idEstr = Inizio To Fine
'Ltrim() rimuove spazzi a sinistra di una stringa
'Rtim() rimuove tutti gli spazzi a destra di una stringa
recFRQ = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x frequenze
recRITs = LTrim(FormatSpace(idEstr - 1,5,True)) & " "
recFRQs = FormatSpace((idEstr - 1),5,True) & " " 'ottengo indice estrazione -1 per frequeze scalate
'*********
For ciclo90 = 46 To 90 ' memorizzo frequenza
FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,idEstr)
FrequenzaTeorica = Int((idEstr - Inizio) / 4.5)
Frequenza = FrequenzaReale - FrequenzaTeorica
recFRQ = recFRQ & FormatSpace(Frequenza,3) & " "
Next
For ciclo90 = 46 To 90 ' memorizzo frequenza
FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
FrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
Frequenza = FrequenzaReale - FrequenzaTeorica
recFRQs = recFRQs & FormatSpace(Frequenza,3) & " "
Next
'**************
For ciclo90 = 46 To 90 'memorizzo ritardi
'recRIT = recRIT & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr),3) & " "
recRITs = recRITs & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,(idEstr - 1)),3) & " "
Next
'***********
'****************
Call ScriviFile(FileOutput,recFRQ & recFRQs & recRITs,False)
Call AvanzamentoElab(Inizio,Fine,idEstr)
Next
'*****************
Call CloseFileHandle(FileOutput)
Call LanciaFile(FileOutput)

'************* R I T A R D I

'*************

ciclo90 = 45
nEstra = 50

'nEstra = InputBox("Quante estrazioni processare ?")
Fine = EstrazioneFin ' 0
Inizio = Fine -(nEstra - 1) ' EstrazioneIni

sFileOutput3 = "C:\00 DATI SPAZIOMETRIA\10Elotto 50 ID RIT RITs FRQs 1_45.txt"
Call EliminaFile(sFileOutput1) 'elimina il file nel caso esistesse già
Call EliminaFile(sFileOutput2) 'elimina il file nel caso esistesse già
Call EliminaFile(sFileOutput3) 'elimina il file nel caso esistesse già
'**********************
'il file creato deve contenere all'inizio il riconoscimento delle colonne
SrecordIntestazione3 = "ID1 "
For ciclo90 = 1 To 45
SrecordIntestazione3 = SrecordIntestazione3 & "rit" & CStr(ciclo90) & " "
Next
SrecordIntestazione3 = SrecordIntestazione3 & "IDs1 "
For ciclo90 = 1 To 45
SrecordIntestazione3 = SrecordIntestazione3 & "ritS" & CStr(ciclo90) & " "
Next
SrecordIntestazione3 = SrecordIntestazione3 & "IDs2 "
For ciclo90 = 1 To 45
SrecordIntestazione3 = SrecordIntestazione3 & "frqS" & CStr(ciclo90) & " "
Next
Call ScriviFile(sFileOutput3,SrecordIntestazione3,False)
'Call Scrivi(SrecordIntestazione3)
'***********
For idEstr = Inizio To Fine
'Ltrim() rimuove spazzi a sinistra di una stringa
'Rtim() rimuove tutti gli spazzi a destra di una stringa
sRecord1 = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x RIT
sRecord2 = LTrim(FormatSpace(idEstr,5,True)) & " "
sRecord3 = LTrim(FormatSpace(idEstr,5,True)) & " "
SRecord1Piu = FormatSpace((idEstr - 1),5,True) & " " 'ottengo indice estrazione -1 per RIT
SRecord2Piu = SRecord1Piu 'copia per frq
SRecord3Piu = SRecord1Piu 'copia per num
'*********
For ciclo90 = 1 To 45 'memorizzo ritardi
sRecord1 = sRecord1 & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr),3) & " "
SRecord1Piu = SRecord1Piu & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr - 1),3) & " "
' memorizzo frequenze
idFrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
idFrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
idFrequenza = idFrequenzaReale - idFrequenzaTeorica
SRecord2Piu = SRecord2Piu & FormatSpace(idFrequenza,3) & " "
Next
Call ScriviFile(sFileOutput3,sRecord1 & SRecord1Piu & SRecord2Piu,False)
Call AvanzamentoElab(Inizio,Fine,idEstr)
Next
Call CloseFileHandle(sFileOutput3)
Call LanciaFile(sFileOutput3)

'*************
ciclo90 = 45
'**************
nEstra = 50
'nEstra = InputBox("Quante estrazioni processare ?")
Fine = EstrazioneFin ' 0
Inizio = Fine -(nEstra - 1) ' EstrazioneIni
'*************
sFileOutput3 = "C:\00 DATI SPAZIOMETRIA\10Elotto 50 ID RIT RITs FRQs 46_90.txt"
Call EliminaFile(sFileOutput1) 'elimina il file nel caso esistesse già
Call EliminaFile(sFileOutput2) 'elimina il file nel caso esistesse già
Call EliminaFile(sFileOutput3) 'elimina il file nel caso esistesse già
'**********************
'il file creato deve contenere all'inizio il riconoscimento delle colonne
SrecordIntestazione3 = "ID1 "
For ciclo90 = 46 To 90
SrecordIntestazione3 = SrecordIntestazione3 & "rit" & CStr(ciclo90) & " "
Next
SrecordIntestazione3 = SrecordIntestazione3 & "IDs1 "
For ciclo90 = 46 To 90
SrecordIntestazione3 = SrecordIntestazione3 & "ritS" & CStr(ciclo90) & " "
Next
SrecordIntestazione3 = SrecordIntestazione3 & "IDs2 "
For ciclo90 = 46 To 90
SrecordIntestazione3 = SrecordIntestazione3 & "frqS" & CStr(ciclo90) & " "
Next
Call ScriviFile(sFileOutput3,SrecordIntestazione3,False)
'Call Scrivi(SrecordIntestazione3)
'***********
For idEstr = Inizio To Fine
'Ltrim() rimuove spazzi a sinistra di una stringa
'Rtim() rimuove tutti gli spazzi a destra di una stringa
sRecord1 = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x RIT
sRecord2 = LTrim(FormatSpace(idEstr,5,True)) & " "
sRecord3 = LTrim(FormatSpace(idEstr,5,True)) & " "
SRecord1Piu = FormatSpace((idEstr - 1),5,True) & " " 'ottengo indice estrazione -1 per RIT
SRecord2Piu = SRecord1Piu 'copia per frq
SRecord3Piu = SRecord1Piu 'copia per num
'*********
For ciclo90 = 46 To 90 'memorizzo ritardi
sRecord1 = sRecord1 & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr),3) & " "
SRecord1Piu = SRecord1Piu & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr - 1),3) & " "
' memorizzo frequenze
idFrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
idFrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
idFrequenza = idFrequenzaReale - idFrequenzaTeorica
SRecord2Piu = SRecord2Piu & FormatSpace(idFrequenza,3) & " "
Next
Call ScriviFile(sFileOutput3,sRecord1 & SRecord1Piu & SRecord2Piu,False)
Call AvanzamentoElab(Inizio,Fine,idEstr)
Next
Call CloseFileHandle(sFileOutput3)
Call LanciaFile(sFileOutput3)
'*************

'*************
ciclo90 = 45
nEstra = 100
'nEstra = InputBox("Quante estrazioni processare ?")
Fine = EstrazioneFin ' 0
Inizio = Fine -(nEstra - 1) ' EstrazioneIni

sFileOutput3 = "C:\00 DATI SPAZIOMETRIA\10Elotto 100 ID RIT RITs FRQs 1_45.txt"
Call EliminaFile(sFileOutput1) 'elimina il file nel caso esistesse già
Call EliminaFile(sFileOutput2) 'elimina il file nel caso esistesse già
Call EliminaFile(sFileOutput3) 'elimina il file nel caso esistesse già
'**********************
'il file creato deve contenere all'inizio il riconoscimento delle colonne
SrecordIntestazione3 = "ID1 "
For ciclo90 = 1 To 45
SrecordIntestazione3 = SrecordIntestazione3 & "rit" & CStr(ciclo90) & " "
Next
SrecordIntestazione3 = SrecordIntestazione3 & "IDs1 "
For ciclo90 = 1 To 45
SrecordIntestazione3 = SrecordIntestazione3 & "ritS" & CStr(ciclo90) & " "
Next
SrecordIntestazione3 = SrecordIntestazione3 & "IDs2 "
For ciclo90 = 1 To 45
SrecordIntestazione3 = SrecordIntestazione3 & "frqS" & CStr(ciclo90) & " "
Next
Call ScriviFile(sFileOutput3,SrecordIntestazione3,False)
'Call Scrivi(SrecordIntestazione3)
'***********
For idEstr = Inizio To Fine
'Ltrim() rimuove spazzi a sinistra di una stringa
'Rtim() rimuove tutti gli spazzi a destra di una stringa
sRecord1 = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x RIT
sRecord2 = LTrim(FormatSpace(idEstr,5,True)) & " "
sRecord3 = LTrim(FormatSpace(idEstr,5,True)) & " "
SRecord1Piu = FormatSpace((idEstr - 1),5,True) & " " 'ottengo indice estrazione -1 per RIT
SRecord2Piu = SRecord1Piu 'copia per frq
SRecord3Piu = SRecord1Piu 'copia per num
'*********
For ciclo90 = 1 To 45 'memorizzo ritardi
sRecord1 = sRecord1 & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr),3) & " "
SRecord1Piu = SRecord1Piu & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr - 1),3) & " "
' memorizzo frequenze
idFrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
idFrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
idFrequenza = idFrequenzaReale - idFrequenzaTeorica
SRecord2Piu = SRecord2Piu & FormatSpace(idFrequenza,3) & " "
Next
Call ScriviFile(sFileOutput3,sRecord1 & SRecord1Piu & SRecord2Piu,False)
Call AvanzamentoElab(Inizio,Fine,idEstr)
Next
Call CloseFileHandle(sFileOutput3)
Call LanciaFile(sFileOutput3)
'*************
ciclo90 = 45

nEstra = 100
'nEstra = InputBox("Quante estrazioni processare ?")
Fine = EstrazioneFin ' 0
Inizio = Fine -(nEstra - 1) ' EstrazioneIni
'*************
sFileOutput3 = "C:\00 DATI SPAZIOMETRIA\10Elotto 100 ID RIT RITs FRQs 46_90.txt"
Call EliminaFile(sFileOutput1) 'elimina il file nel caso esistesse già
Call EliminaFile(sFileOutput2) 'elimina il file nel caso esistesse già
Call EliminaFile(sFileOutput3) 'elimina il file nel caso esistesse già
'**********************
'il file creato deve contenere all'inizio il riconoscimento delle colonne
SrecordIntestazione3 = "ID1 "
For ciclo90 = 46 To 90
SrecordIntestazione3 = SrecordIntestazione3 & "rit" & CStr(ciclo90) & " "
Next
SrecordIntestazione3 = SrecordIntestazione3 & "IDs1 "
For ciclo90 = 46 To 90
SrecordIntestazione3 = SrecordIntestazione3 & "ritS" & CStr(ciclo90) & " "
Next
SrecordIntestazione3 = SrecordIntestazione3 & "IDs2 "
For ciclo90 = 46 To 90
SrecordIntestazione3 = SrecordIntestazione3 & "frqS" & CStr(ciclo90) & " "
Next
Call ScriviFile(sFileOutput3,SrecordIntestazione3,False)
'Call Scrivi(SrecordIntestazione3)
'***********
For idEstr = Inizio To Fine
'Ltrim() rimuove spazzi a sinistra di una stringa
'Rtim() rimuove tutti gli spazzi a destra di una stringa
sRecord1 = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x RIT
sRecord2 = LTrim(FormatSpace(idEstr,5,True)) & " "
sRecord3 = LTrim(FormatSpace(idEstr,5,True)) & " "
SRecord1Piu = FormatSpace((idEstr - 1),5,True) & " " 'ottengo indice estrazione -1 per RIT
SRecord2Piu = SRecord1Piu 'copia per frq
SRecord3Piu = SRecord1Piu 'copia per num
'*********
For ciclo90 = 46 To 90 'memorizzo ritardi
sRecord1 = sRecord1 & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr),3) & " "
SRecord1Piu = SRecord1Piu & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr - 1),3) & " "
' memorizzo frequenze
idFrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
idFrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
idFrequenza = idFrequenzaReale - idFrequenzaTeorica
SRecord2Piu = SRecord2Piu & FormatSpace(idFrequenza,3) & " "
Next
Call ScriviFile(sFileOutput3,sRecord1 & SRecord1Piu & SRecord2Piu,False)
Call AvanzamentoElab(Inizio,Fine,idEstr)
Next
Call CloseFileHandle(sFileOutput3)
Call LanciaFile(sFileOutput3)
'*************
ciclo90 = 45

nEstra = 150
'nEstra = InputBox("Quante estrazioni processare ?")
Fine = EstrazioneFin ' 0
Inizio = Fine -(nEstra - 1) ' EstrazioneIni
'*************
sFileOutput3 = "C:\00 DATI SPAZIOMETRIA\10Elotto 150 ID RIT RITs FRQs 1_45.txt"
Call EliminaFile(sFileOutput1) 'elimina il file nel caso esistesse già
Call EliminaFile(sFileOutput2) 'elimina il file nel caso esistesse già
Call EliminaFile(sFileOutput3) 'elimina il file nel caso esistesse già
'**********************
'il file creato deve contenere all'inizio il riconoscimento delle colonne
SrecordIntestazione3 = "ID1 "
For ciclo90 = 1 To 45
SrecordIntestazione3 = SrecordIntestazione3 & "rit" & CStr(ciclo90) & " "
Next
SrecordIntestazione3 = SrecordIntestazione3 & "IDs1 "
For ciclo90 = 1 To 45
SrecordIntestazione3 = SrecordIntestazione3 & "ritS" & CStr(ciclo90) & " "
Next
SrecordIntestazione3 = SrecordIntestazione3 & "IDs2 "
For ciclo90 = 1 To 45
SrecordIntestazione3 = SrecordIntestazione3 & "frqS" & CStr(ciclo90) & " "
Next
Call ScriviFile(sFileOutput3,SrecordIntestazione3,False)
'Call Scrivi(SrecordIntestazione3)
'***********
For idEstr = Inizio To Fine
'Ltrim() rimuove spazzi a sinistra di una stringa
'Rtim() rimuove tutti gli spazzi a destra di una stringa
sRecord1 = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x RIT
sRecord2 = LTrim(FormatSpace(idEstr,5,True)) & " "
sRecord3 = LTrim(FormatSpace(idEstr,5,True)) & " "
SRecord1Piu = FormatSpace((idEstr - 1),5,True) & " " 'ottengo indice estrazione -1 per RIT
SRecord2Piu = SRecord1Piu 'copia per frq
SRecord3Piu = SRecord1Piu 'copia per num
'*********
For ciclo90 = 1 To 45 'memorizzo ritardi
sRecord1 = sRecord1 & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr),3) & " "
SRecord1Piu = SRecord1Piu & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr - 1),3) & " "
' memorizzo frequenze
idFrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
idFrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
idFrequenza = idFrequenzaReale - idFrequenzaTeorica
SRecord2Piu = SRecord2Piu & FormatSpace(idFrequenza,3) & " "
Next
Call ScriviFile(sFileOutput3,sRecord1 & SRecord1Piu & SRecord2Piu,False)
Call AvanzamentoElab(Inizio,Fine,idEstr)
Next
Call CloseFileHandle(sFileOutput3)
Call LanciaFile(sFileOutput3)
'*************
ciclo90 = 45

nEstra = 150
'nEstra = InputBox("Quante estrazioni processare ?")
Fine = EstrazioneFin ' 0
Inizio = Fine -(nEstra - 1) ' EstrazioneIni
'*************
sFileOutput3 = "C:\00 DATI SPAZIOMETRIA\10Elotto 150 ID RIT RITs FRQs 46_90.txt"
Call EliminaFile(sFileOutput1) 'elimina il file nel caso esistesse già
Call EliminaFile(sFileOutput2) 'elimina il file nel caso esistesse già
Call EliminaFile(sFileOutput3) 'elimina il file nel caso esistesse già
'**********************
'il file creato deve contenere all'inizio il riconoscimento delle colonne
SrecordIntestazione3 = "ID1 "
For ciclo90 = 46 To 90
SrecordIntestazione3 = SrecordIntestazione3 & "rit" & CStr(ciclo90) & " "
Next
SrecordIntestazione3 = SrecordIntestazione3 & "IDs1 "
For ciclo90 = 46 To 90
SrecordIntestazione3 = SrecordIntestazione3 & "ritS" & CStr(ciclo90) & " "
Next
SrecordIntestazione3 = SrecordIntestazione3 & "IDs2 "
For ciclo90 = 46 To 90
SrecordIntestazione3 = SrecordIntestazione3 & "frqS" & CStr(ciclo90) & " "
Next
Call ScriviFile(sFileOutput3,SrecordIntestazione3,False)
'Call Scrivi(SrecordIntestazione3)
'***********
For idEstr = Inizio To Fine
'Ltrim() rimuove spazzi a sinistra di una stringa
'Rtim() rimuove tutti gli spazzi a destra di una stringa
sRecord1 = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x RIT
sRecord2 = LTrim(FormatSpace(idEstr,5,True)) & " "
sRecord3 = LTrim(FormatSpace(idEstr,5,True)) & " "
SRecord1Piu = FormatSpace((idEstr - 1),5,True) & " " 'ottengo indice estrazione -1 per RIT
SRecord2Piu = SRecord1Piu 'copia per frq
SRecord3Piu = SRecord1Piu 'copia per num
'*********
For ciclo90 = 46 To 90 'memorizzo ritardi
sRecord1 = sRecord1 & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr),3) & " "
SRecord1Piu = SRecord1Piu & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr - 1),3) & " "
' memorizzo frequenze
idFrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
idFrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
idFrequenza = idFrequenzaReale - idFrequenzaTeorica
SRecord2Piu = SRecord2Piu & FormatSpace(idFrequenza,3) & " "
Next
Call ScriviFile(sFileOutput3,sRecord1 & SRecord1Piu & SRecord2Piu,False)
Call AvanzamentoElab(Inizio,Fine,idEstr)
Next
Call CloseFileHandle(sFileOutput3)
Call LanciaFile(sFileOutput3)
'*************
ciclo90 = 45

nEstra = 200
'nEstra = InputBox("Quante estrazioni processare ?")
Fine = EstrazioneFin ' 0
Inizio = Fine -(nEstra - 1) ' EstrazioneIni
'*************
sFileOutput3 = "C:\00 DATI SPAZIOMETRIA\10Elotto 200 ID RIT RITs FRQs 1_45.txt"
Call EliminaFile(sFileOutput1) 'elimina il file nel caso esistesse già
Call EliminaFile(sFileOutput2) 'elimina il file nel caso esistesse già
Call EliminaFile(sFileOutput3) 'elimina il file nel caso esistesse già
'**********************
'il file creato deve contenere all'inizio il riconoscimento delle colonne
SrecordIntestazione3 = "ID1 "
For ciclo90 = 1 To 45
SrecordIntestazione3 = SrecordIntestazione3 & "rit" & CStr(ciclo90) & " "
Next
SrecordIntestazione3 = SrecordIntestazione3 & "IDs1 "
For ciclo90 = 1 To 45
SrecordIntestazione3 = SrecordIntestazione3 & "ritS" & CStr(ciclo90) & " "
Next
SrecordIntestazione3 = SrecordIntestazione3 & "IDs2 "
For ciclo90 = 1 To 45
SrecordIntestazione3 = SrecordIntestazione3 & "frqS" & CStr(ciclo90) & " "
Next
Call ScriviFile(sFileOutput3,SrecordIntestazione3,False)
'Call Scrivi(SrecordIntestazione3)
'***********
For idEstr = Inizio To Fine
'Ltrim() rimuove spazzi a sinistra di una stringa
'Rtim() rimuove tutti gli spazzi a destra di una stringa
sRecord1 = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x RIT
sRecord2 = LTrim(FormatSpace(idEstr,5,True)) & " "
sRecord3 = LTrim(FormatSpace(idEstr,5,True)) & " "
SRecord1Piu = FormatSpace((idEstr - 1),5,True) & " " 'ottengo indice estrazione -1 per RIT
SRecord2Piu = SRecord1Piu 'copia per frq
SRecord3Piu = SRecord1Piu 'copia per num
'*********
For ciclo90 = 1 To 45 'memorizzo ritardi
sRecord1 = sRecord1 & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr),3) & " "
SRecord1Piu = SRecord1Piu & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr - 1),3) & " "
' memorizzo frequenze
idFrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
idFrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
idFrequenza = idFrequenzaReale - idFrequenzaTeorica
SRecord2Piu = SRecord2Piu & FormatSpace(idFrequenza,3) & " "
Next
Call ScriviFile(sFileOutput3,sRecord1 & SRecord1Piu & SRecord2Piu,False)
Call AvanzamentoElab(Inizio,Fine,idEstr)
Next
Call CloseFileHandle(sFileOutput3)
Call LanciaFile(sFileOutput3)
'*************
ciclo90 = 45

nEstra = 200
'nEstra = InputBox("Quante estrazioni processare ?")
Fine = EstrazioneFin ' 0
Inizio = Fine -(nEstra - 1) ' EstrazioneIni
'*************
sFileOutput3 = "C:\00 DATI SPAZIOMETRIA\10Elotto 200 ID RIT RITs FRQs 46_90.txt"
Call EliminaFile(sFileOutput1) 'elimina il file nel caso esistesse già
Call EliminaFile(sFileOutput2) 'elimina il file nel caso esistesse già
Call EliminaFile(sFileOutput3) 'elimina il file nel caso esistesse già
'**********************
'il file creato deve contenere all'inizio il riconoscimento delle colonne
SrecordIntestazione3 = "ID1 "
For ciclo90 = 46 To 90
SrecordIntestazione3 = SrecordIntestazione3 & "rit" & CStr(ciclo90) & " "
Next
SrecordIntestazione3 = SrecordIntestazione3 & "IDs1 "
For ciclo90 = 46 To 90
SrecordIntestazione3 = SrecordIntestazione3 & "ritS" & CStr(ciclo90) & " "
Next
SrecordIntestazione3 = SrecordIntestazione3 & "IDs2 "
For ciclo90 = 46 To 90
SrecordIntestazione3 = SrecordIntestazione3 & "frqS" & CStr(ciclo90) & " "
Next
Call ScriviFile(sFileOutput3,SrecordIntestazione3,False)
'Call Scrivi(SrecordIntestazione3)
'***********
For idEstr = Inizio To Fine
'Ltrim() rimuove spazzi a sinistra di una stringa
'Rtim() rimuove tutti gli spazzi a destra di una stringa
sRecord1 = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x RIT
sRecord2 = LTrim(FormatSpace(idEstr,5,True)) & " "
sRecord3 = LTrim(FormatSpace(idEstr,5,True)) & " "
SRecord1Piu = FormatSpace((idEstr - 1),5,True) & " " 'ottengo indice estrazione -1 per RIT
SRecord2Piu = SRecord1Piu 'copia per frq
SRecord3Piu = SRecord1Piu 'copia per num
'*********
For ciclo90 = 46 To 90 'memorizzo ritardi
sRecord1 = sRecord1 & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr),3) & " "
SRecord1Piu = SRecord1Piu & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr - 1),3) & " "
' memorizzo frequenze
idFrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
idFrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
idFrequenza = idFrequenzaReale - idFrequenzaTeorica
SRecord2Piu = SRecord2Piu & FormatSpace(idFrequenza,3) & " "
Next
Call ScriviFile(sFileOutput3,sRecord1 & SRecord1Piu & SRecord2Piu,False)
Call AvanzamentoElab(Inizio,Fine,idEstr)
Next
Call CloseFileHandle(sFileOutput3)
Call LanciaFile(sFileOutput3)
End Sub

gian332 · 21 Settembre 2014

non so perche succeda , ma in tutte le righe di codice dove è presente la variabile
( idEst r) va unita in (idEstr)

Alien. · 21 Settembre 2014

ERRORE idEs tr - 1)),3) & " "

claudio8 · 21 Settembre 2014

Codice:

Sub Main
	Dim FileOutput
	Dim idEstr,e
	Dim Inizio,Fine
	Dim recFRQ,recFRQs,recRIT,recRITs
	Dim Intestazione
	Dim ciclo90,nEstra
	Dim Frequenza,FrequenzaTeorica,FrequenzaReale
	Dim sFileOutput1,sFileOutput2,sFileOutput3
	Dim SrecordIntestazione3,sRecord1,sRecord2,sRecord3
	Dim SRecord1Piu,SRecord2Piu,SRecord3Piu
	Dim idFrequenzaReale,idFrequenzaTeorica,idFrequenza
	'************* F R E Q U E N Z E
	'************* F R E Q U E N Z E
	'***************
	Call ImpostaArchivio10ELotto(2)
	Call AggiornaArchivioDL
	ciclo90 = 45
	nEstra = 50
	'nEstra = InputBox("Quante estrazioni processare ?")
	Fine = EstrazioneFin ' 0
	Inizio = Fine -(nEstra - 1) ' EstrazioneIni
	'*************
	FileOutput = "D:\Documents and Settings\claudio\Dati applicazioni\SpazioMetria\10Elotto 50 ID FRQ FRQs RITs 1_45.txt"
	Call EliminaFile(FileOutput) 'elimina il file nel caso esistesse già
	'**********************
	'il file creato deve contenere all'inizio il riconoscimento delle colonne
	Intestazione = "ID1 "
	For ciclo90 = 1 To 45
		Intestazione = Intestazione & "frq" & CStr(ciclo90) & " "
	Next
	Intestazione = Intestazione & "IDs "
	For ciclo90 = 1 To 45
		Intestazione = Intestazione & "frqS" & CStr(ciclo90) & " "
	Next
	Intestazione = Intestazione & "IDs1 "
	For ciclo90 = 1 To 45
		Intestazione = Intestazione & "ritS" & CStr(ciclo90) & " "
	Next
	Call ScriviFile(FileOutput,Intestazione,False)
	'***********
	For idEstr = Inizio To Fine
		'Ltrim() rimuove spazzi a sinistra di una stringa
		'Rtrim() rimuove tutti gli spazzi a destra di una stringa
		recFRQ = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x frequenze
		recRITs = LTrim(FormatSpace(idEstr - 1,5,True)) & " "
		recFRQs = FormatSpace((idEstr - 1),5,True) & " " 'ottengo indice estrazione -1 per frequeze scalate
		'*********
		For ciclo90 = 1 To 45 ' memorizzo frequenza
			FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,idEstr)
			FrequenzaTeorica = Int((idEstr - Inizio) / 4.5)
			Frequenza = FrequenzaReale - FrequenzaTeorica
			recFRQ = recFRQ & FormatSpace(Frequenza,3) & " "
		Next
		For ciclo90 = 1 To 45 ' memorizzo frequenza
			FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
			FrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
			Frequenza = FrequenzaReale - FrequenzaTeorica
			recFRQs = recFRQs & FormatSpace(Frequenza,3) & " "
		Next
		'**************
		For ciclo90 = 1 To 45 'memorizzo ritardi
			'recRIT = recRIT & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEst r),3) & " "
			recRITs = recRITs & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,(idEstr - 1)),3) & " "
		Next
		'***********
		'****************
		Call ScriviFile(FileOutput,recFRQ & recFRQs & recRITs,False)
		Call AvanzamentoElab(Inizio,Fine,idEstr)
	Next
	'*****************
	Call CloseFileHandle(FileOutput)
	Call LanciaFile(FileOutput)
	'**************
	ciclo90 = 45
	nEstra = 50
	'nEstra = InputBox("Quante estrazioni processare ?")
	Fine = EstrazioneFin ' 0
	Inizio = Fine -(nEstra - 1) ' EstrazioneIni
	'*************
	FileOutput = "D:\Documents and Settings\claudio\Dati applicazioni\SpazioMetria\10Elotto 50 ID FRQ FRQs RITs 46_90.txt"
	Call EliminaFile(FileOutput) 'elimina il file nel caso esistesse già
	'**********************
	'il file creato deve contenere all'inizio il riconoscimento delle colonne
	Intestazione = "ID1 "
	For ciclo90 = 46 To 90
		Intestazione = Intestazione & "frq" & CStr(ciclo90) & " "
	Next
	Intestazione = Intestazione & "IDs "
	For ciclo90 = 46 To 90
		Intestazione = Intestazione & "frqS" & CStr(ciclo90) & " "
	Next
	Intestazione = Intestazione & "IDs1 "
	For ciclo90 = 46 To 90
		Intestazione = Intestazione & "ritS" & CStr(ciclo90) & " "
	Next
	Call ScriviFile(FileOutput,Intestazione,False)
	'***********
	For idEstr = Inizio To Fine
		'Ltrim() rimuove spazzi a sinistra di una stringa
		'Rtim() rimuove tutti gli spazzi a destra di una stringa
		recFRQ = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x frequenze
		recRITs = LTrim(FormatSpace(idEstr - 1,5,True)) & " "
		recFRQs = FormatSpace((idEstr - 1),5,True) & " " 'ottengo indice estrazione -1 per frequeze scalate
		'*********
		For ciclo90 = 46 To 90 ' memorizzo frequenza
			FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,idEstr)
			FrequenzaTeorica = Int((idEstr - Inizio) / 4.5)
			Frequenza = FrequenzaReale - FrequenzaTeorica
			recFRQ = recFRQ & FormatSpace(Frequenza,3) & " "
		Next
		For ciclo90 = 46 To 90 ' memorizzo frequenza
			FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
			FrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
			Frequenza = FrequenzaReale - FrequenzaTeorica
			recFRQs = recFRQs & FormatSpace(Frequenza,3) & " "
		Next
		'**************
		For ciclo90 = 46 To 90 'memorizzo ritardi
			'recRIT = recRIT & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEst r),3) & " "
			recRITs = recRITs & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,(idEstr - 1)),3) & " "
		Next
		'***********
		'****************
		Call ScriviFile(FileOutput,recFRQ & recFRQs & recRITs,False)
		Call AvanzamentoElab(Inizio,Fine,idEstr)
	Next
	'*****************
	Call CloseFileHandle(FileOutput)
	Call LanciaFile(FileOutput)
	'**************
	'***************
	ciclo90 = 45
	nEstra = 100
	'nEstra = InputBox("Quante estrazioni processare ?")
	Fine = EstrazioneFin' 0
	Inizio = Fine -(nEstra - 1) ' EstrazioneIni
	'*************
	FileOutput = "D:\Documents and Settings\claudio\Dati applicazioni\SpazioMetria\10Elotto 100 ID FRQ FRQs RITs 1_45.txt"
	Call EliminaFile(FileOutput) 'elimina il file nel caso esistesse già
	'**********************
	'il file creato deve contenere all'inizio il riconoscimento delle colonne
	Intestazione = "ID1 "
	For ciclo90 = 1 To 45
		Intestazione = Intestazione & "frq" & CStr(ciclo90) & " "
	Next
	Intestazione = Intestazione & "IDs "
	For ciclo90 = 1 To 45
		Intestazione = Intestazione & "frqS" & CStr(ciclo90) & " "
	Next
	Intestazione = Intestazione & "IDs1 "
	For ciclo90 = 1 To 45
		Intestazione = Intestazione & "ritS" & CStr(ciclo90) & " "
	Next
	Call ScriviFile(FileOutput,Intestazione,False)
	'***********
	For idEstr = Inizio To Fine
		'Ltrim() rimuove spazzi a sinistra di una stringa
		'Rtim() rimuove tutti gli spazzi a destra di una stringa
		recFRQ = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x frequenze
		recRITs = LTrim(FormatSpace(idEstr - 1,5,True)) & " "
		recFRQs = FormatSpace((idEstr - 1),5,True) & " " 'ottengo indice estrazione -1 per frequeze scalate
		'*********
		For ciclo90 = 1 To 45 ' memorizzo frequenza
			FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,idEstr)
			FrequenzaTeorica = Int((idEstr - Inizio) / 4.5)
			Frequenza = FrequenzaReale - FrequenzaTeorica
			recFRQ = recFRQ & FormatSpace(Frequenza,3) & " "
		Next
		For ciclo90 = 1 To 45 ' memorizzo frequenza
			FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
			FrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
			Frequenza = FrequenzaReale - FrequenzaTeorica
			recFRQs = recFRQs & FormatSpace(Frequenza,3) & " "
		Next
		'**************
		For ciclo90 = 1 To 45 'memorizzo ritardi
			'recRIT = recRIT & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEst r),3) & " "
			recRITs = recRITs & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,(idEstr - 1)),3) & " "
		Next
		'***********
		'****************
		Call ScriviFile(FileOutput,recFRQ & recFRQs & recRITs,False)
		Call AvanzamentoElab(Inizio,Fine,idEstr)
	Next
	'*****************
	Call CloseFileHandle(FileOutput)
	Call LanciaFile(FileOutput)
	'**************
	ciclo90 = 45
	nEstra = 100
	'nEstra = InputBox("Quante estrazioni processare ?")
	Fine = EstrazioneFin ' 0
	Inizio = Fine -(nEstra - 1) ' EstrazioneIni
	'*************
	FileOutput = "D:\Documents and Settings\claudio\Dati applicazioni\SpazioMetria\10Elotto 100 ID FRQ FRQs RITs 46_90.txt"
	Call EliminaFile(FileOutput) 'elimina il file nel caso esistesse già
	'**********************
	'il file creato deve contenere all'inizio il riconoscimento delle colonne
	Intestazione = "ID1 "
	For ciclo90 = 46 To 90
		Intestazione = Intestazione & "frq" & CStr(ciclo90) & " "
	Next
	Intestazione = Intestazione & "IDs "
	For ciclo90 = 46 To 90
		Intestazione = Intestazione & "frqS" & CStr(ciclo90) & " "
	Next
	Intestazione = Intestazione & "IDs1 "
	For ciclo90 = 46 To 90
		Intestazione = Intestazione & "ritS" & CStr(ciclo90) & " "
	Next
	Call ScriviFile(FileOutput,Intestazione,False)
	'***********
	For idEstr = Inizio To Fine
		'Ltrim() rimuove spazzi a sinistra di una stringa
		'Rtim() rimuove tutti gli spazzi a destra di una stringa
		recFRQ = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x frequenze
		recRITs = LTrim(FormatSpace(idEstr - 1,5,True)) & " "
		recFRQs = FormatSpace((idEstr - 1),5,True) & " " 'ottengo indice estrazione -1 per frequeze scalate
		'*********
		For ciclo90 = 46 To 90 ' memorizzo frequenza
			FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,idEstr)
			FrequenzaTeorica = Int((idEstr - Inizio) / 4.5)
			Frequenza = FrequenzaReale - FrequenzaTeorica
			recFRQ = recFRQ & FormatSpace(Frequenza,3) & " "
		Next
		For ciclo90 = 46 To 90 ' memorizzo frequenza
			FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
			FrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
			Frequenza = FrequenzaReale - FrequenzaTeorica
			recFRQs = recFRQs & FormatSpace(Frequenza,3) & " "
		Next
		'**************
		For ciclo90 = 46 To 90 'memorizzo ritardi
			'recRIT = recRIT & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEst r),3) & " "
			recRITs = recRITs & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,(idEstr - 1)),3) & " "
		Next
		'***********
		'****************
		Call ScriviFile(FileOutput,recFRQ & recFRQs & recRITs,False)
		Call AvanzamentoElab(Inizio,Fine,idEstr)
	Next
	'*****************
	Call CloseFileHandle(FileOutput)
	Call LanciaFile(FileOutput)
	'**************
	ciclo90 = 45
	nEstra = 150
	'nEstra = InputBox("Quante estrazioni processare ?")
	Fine = EstrazioneFin ' 0
	Inizio = Fine -(nEstra - 1) ' EstrazioneIni
	'*************
	FileOutput = "D:\Documents and Settings\claudio\Dati applicazioni\SpazioMetria\10Elotto 150 ID FRQ FRQs RITs 1_45.txt"
	Call EliminaFile(FileOutput) 'elimina il file nel caso esistesse già
	'**********************
	'il file creato deve contenere all'inizio il riconoscimento delle colonne
	Intestazione = "ID1 "
	For ciclo90 = 1 To 45
		Intestazione = Intestazione & "frq" & CStr(ciclo90) & " "
	Next
	Intestazione = Intestazione & "IDs "
	For ciclo90 = 1 To 45
		Intestazione = Intestazione & "frqS" & CStr(ciclo90) & " "
	Next
	Intestazione = Intestazione & "IDs1 "
	For ciclo90 = 1 To 45
		Intestazione = Intestazione & "ritS" & CStr(ciclo90) & " "
	Next
	Call ScriviFile(FileOutput,Intestazione,False)
	'***********
	For idEstr = Inizio To Fine
		'Ltrim() rimuove spazzi a sinistra di una stringa
		'Rtim() rimuove tutti gli spazzi a destra di una stringa
		recFRQ = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x frequenze
		recRITs = LTrim(FormatSpace(idEstr - 1,5,True)) & " "
		recFRQs = FormatSpace((idEstr - 1),5,True) & " " 'ottengo indice estrazione -1 per frequeze scalate
		'*********
		For ciclo90 = 1 To 45 ' memorizzo frequenza
			FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,idEstr)
			FrequenzaTeorica = Int((idEstr - Inizio) / 4.5)
			Frequenza = FrequenzaReale - FrequenzaTeorica
			recFRQ = recFRQ & FormatSpace(Frequenza,3) & " "
		Next
		For ciclo90 = 1 To 45 ' memorizzo frequenza
			FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
			FrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
			Frequenza = FrequenzaReale - FrequenzaTeorica
			recFRQs = recFRQs & FormatSpace(Frequenza,3) & " "
		Next
		'**************
		For ciclo90 = 1 To 45 'memorizzo ritardi
			'recRIT = recRIT & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEst r),3) & " "
			recRITs = recRITs & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,(idEstr - 1)),3) & " "
		Next
		'***********
		'****************
		Call ScriviFile(FileOutput,recFRQ & recFRQs & recRITs,False)
		Call AvanzamentoElab(Inizio,Fine,idEstr)
	Next
	'*****************
	Call CloseFileHandle(FileOutput)
	Call LanciaFile(FileOutput)
	'**************
	ciclo90 = 45
	nEstra = 150
	'nEstra = InputBox("Quante estrazioni processare ?")
	Fine = EstrazioneFin ' 0
	Inizio = Fine -(nEstra - 1) ' EstrazioneIni
	'*************
	FileOutput = "D:\Documents and Settings\claudio\Dati applicazioni\SpazioMetria\10Elotto 150 ID FRQ FRQs RITs 46_90.txt"
	Call EliminaFile(FileOutput) 'elimina il file nel caso esistesse già
	'**********************
	'il file creato deve contenere all'inizio il riconoscimento delle colonne
	Intestazione = "ID1 "
	For ciclo90 = 46 To 90
		Intestazione = Intestazione & "frq" & CStr(ciclo90) & " "
	Next
	Intestazione = Intestazione & "IDs "
	For ciclo90 = 46 To 90
		Intestazione = Intestazione & "frqS" & CStr(ciclo90) & " "
	Next
	Intestazione = Intestazione & "IDs1 "
	For ciclo90 = 46 To 90
		Intestazione = Intestazione & "ritS" & CStr(ciclo90) & " "
	Next
	Call ScriviFile(FileOutput,Intestazione,False)
	'***********
	For idEstr = Inizio To Fine
		'Ltrim() rimuove spazzi a sinistra di una stringa
		'Rtim() rimuove tutti gli spazzi a destra di una stringa
		recFRQ = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x frequenze
		recRITs = LTrim(FormatSpace(idEstr - 1,5,True)) & " "
		recFRQs = FormatSpace((idEstr - 1),5,True) & " " 'ottengo indice estrazione -1 per frequeze scalate
		'*********
		For ciclo90 = 46 To 90 ' memorizzo frequenza
			FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,idEstr)
			FrequenzaTeorica = Int((idEstr - Inizio) / 4.5)
			Frequenza = FrequenzaReale - FrequenzaTeorica
			recFRQ = recFRQ & FormatSpace(Frequenza,3) & " "
		Next
		For ciclo90 = 46 To 90 ' memorizzo frequenza
			FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
			FrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
			Frequenza = FrequenzaReale - FrequenzaTeorica
			recFRQs = recFRQs & FormatSpace(Frequenza,3) & " "
		Next
		'**************
		For ciclo90 = 46 To 90 'memorizzo ritardi
			'recRIT = recRIT & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEst r),3) & " "
			recRITs = recRITs & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,(idEstr - 1)),3) & " "
		Next
		'***********
		'****************
		Call ScriviFile(FileOutput,recFRQ & recFRQs & recRITs,False)
		Call AvanzamentoElab(Inizio,Fine,idEstr)
	Next
	'*****************
	Call CloseFileHandle(FileOutput)
	Call LanciaFile(FileOutput)
	'**************
	ciclo90 = 45
	nEstra = 200
	'nEstra = InputBox("Quante estrazioni processare ?")
	Fine = EstrazioneFin ' 0
	Inizio = Fine -(nEstra - 1) ' EstrazioneIni
	'*************
	FileOutput = "D:\Documents and Settings\claudio\Dati applicazioni\SpazioMetria\10Elotto 200 ID FRQ FRQs RITs 1_45.txt"
	Call EliminaFile(FileOutput) 'elimina il file nel caso esistesse già
	'**********************
	'il file creato deve contenere all'inizio il riconoscimento delle colonne
	Intestazione = "ID1 "
	For ciclo90 = 1 To 45
		Intestazione = Intestazione & "frq" & CStr(ciclo90) & " "
	Next
	Intestazione = Intestazione & "IDs "
	For ciclo90 = 1 To 45
		Intestazione = Intestazione & "frqS" & CStr(ciclo90) & " "
	Next
	Intestazione = Intestazione & "IDs1 "
	For ciclo90 = 1 To 45
		Intestazione = Intestazione & "ritS" & CStr(ciclo90) & " "
	Next
	Call ScriviFile(FileOutput,Intestazione,False)
	'***********
	For idEstr = Inizio To Fine
		'Ltrim() rimuove spazzi a sinistra di una stringa
		'Rtim() rimuove tutti gli spazzi a destra di una stringa
		recFRQ = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x frequenze
		recRITs = LTrim(FormatSpace(idEstr - 1,5,True)) & " "
		recFRQs = FormatSpace((idEstr - 1),5,True) & " " 'ottengo indice estrazione -1 per frequeze scalate
		'*********
		For ciclo90 = 1 To 45 ' memorizzo frequenza
			FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,idEstr)
			FrequenzaTeorica = Int((idEstr - Inizio) / 4.5)
			Frequenza = FrequenzaReale - FrequenzaTeorica
			recFRQ = recFRQ & FormatSpace(Frequenza,3) & " "
		Next
		For ciclo90 = 1 To 45 ' memorizzo frequenza
			FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
			FrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
			Frequenza = FrequenzaReale - FrequenzaTeorica
			recFRQs = recFRQs & FormatSpace(Frequenza,3) & " "
		Next
		'**************
		For ciclo90 = 1 To 45 'memorizzo ritardi
			'recRIT = recRIT & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEst r),3) & " "
			recRITs = recRITs & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,(idEstr - 1)),3) & " "
		Next
		'***********
		'****************
		Call ScriviFile(FileOutput,recFRQ & recFRQs & recRITs,False)
		Call AvanzamentoElab(Inizio,Fine,idEstr)
	Next
	'*****************
	Call CloseFileHandle(FileOutput)
	Call LanciaFile(FileOutput)
	'**************
	ciclo90 = 45
	nEstra = 200
	'nEstra = InputBox("Quante estrazioni processare ?")
	Fine = EstrazioneFin ' 0
	Inizio = Fine -(nEstra - 1) ' EstrazioneIni
	'*************
	FileOutput = "D:\Documents and Settings\claudio\Dati applicazioni\SpazioMetria\10Elotto 200 ID FRQ FRQs RITs 46_90.txt"
	Call EliminaFile(FileOutput) 'elimina il file nel caso esistesse già
	'**********************
	'il file creato deve contenere all'inizio il riconoscimento delle colonne
	Intestazione = "ID1 "
	For ciclo90 = 46 To 90
		Intestazione = Intestazione & "frq" & CStr(ciclo90) & " "
	Next
	Intestazione = Intestazione & "IDs "
	For ciclo90 = 46 To 90
		Intestazione = Intestazione & "frqS" & CStr(ciclo90) & " "
	Next
	Intestazione = Intestazione & "IDs1 "
	For ciclo90 = 46 To 90
		Intestazione = Intestazione & "ritS" & CStr(ciclo90) & " "
	Next
	Call ScriviFile(FileOutput,Intestazione,False)
	'***********
	For idEstr = Inizio To Fine
		'Ltrim() rimuove spazzi a sinistra di una stringa
		'Rtim() rimuove tutti gli spazzi a destra di una stringa
		recFRQ = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x frequenze
		recRITs = LTrim(FormatSpace(idEstr - 1,5,True)) & " "
		recFRQs = FormatSpace((idEstr - 1),5,True) & " " 'ottengo indice estrazione -1 per frequeze scalate
		'*********
		For ciclo90 = 46 To 90 ' memorizzo frequenza
			FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,idEstr)
			FrequenzaTeorica = Int((idEstr - Inizio) / 4.5)
			Frequenza = FrequenzaReale - FrequenzaTeorica
			recFRQ = recFRQ & FormatSpace(Frequenza,3) & " "
		Next
		For ciclo90 = 46 To 90 ' memorizzo frequenza
			FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
			FrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
			Frequenza = FrequenzaReale - FrequenzaTeorica
			recFRQs = recFRQs & FormatSpace(Frequenza,3) & " "
		Next
		'**************
		For ciclo90 = 46 To 90 'memorizzo ritardi
			'recRIT = recRIT & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEst r),3) & " "
			recRITs = recRITs & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,(idEstr - 1)),3) & " "
		Next
		'***********
		'****************
		Call ScriviFile(FileOutput,recFRQ & recFRQs & recRITs,False)
		Call AvanzamentoElab(Inizio,Fine,idEstr)
	Next
	'*****************
	Call CloseFileHandle(FileOutput)
	Call LanciaFile(FileOutput)
	'************* R I T A R D I
	'*************
	ciclo90 = 45
	nEstra = 50
	'nEstra = InputBox("Quante estrazioni processare ?")
	Fine = EstrazioneFin ' 0
	Inizio = Fine -(nEstra - 1) ' EstrazioneIni
	sFileOutput3 = "D:\Documents and Settings\claudio\Dati applicazioni\SpazioMetria\10Elotto 50 ID RIT RITs FRQs 1_45.txt"
	Call EliminaFile(sFileOutput1) 'elimina il file nel caso esistesse già
	Call EliminaFile(sFileOutput2) 'elimina il file nel caso esistesse già
	Call EliminaFile(sFileOutput3) 'elimina il file nel caso esistesse già
	'**********************
	'il file creato deve contenere all'inizio il riconoscimento delle colonne
	SrecordIntestazione3 = "ID1 "
	For ciclo90 = 1 To 45
		SrecordIntestazione3 = SrecordIntestazione3 & "rit" & CStr(ciclo90) & " "
	Next
	SrecordIntestazione3 = SrecordIntestazione3 & "IDs1 "
	For ciclo90 = 1 To 45
		SrecordIntestazione3 = SrecordIntestazione3 & "ritS" & CStr(ciclo90) & " "
	Next
	SrecordIntestazione3 = SrecordIntestazione3 & "IDs2 "
	For ciclo90 = 1 To 45
		SrecordIntestazione3 = SrecordIntestazione3 & "frqS" & CStr(ciclo90) & " "
	Next
	Call ScriviFile(sFileOutput3,SrecordIntestazione3,False)
	'Call Scrivi(SrecordIntestazione3)
	'***********
	For idEstr = Inizio To Fine
		'Ltrim() rimuove spazzi a sinistra di una stringa
		'Rtim() rimuove tutti gli spazzi a destra di una stringa
		sRecord1 = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x RIT
		sRecord2 = LTrim(FormatSpace(idEstr,5,True)) & " "
		sRecord3 = LTrim(FormatSpace(idEstr,5,True)) & " "
		SRecord1Piu = FormatSpace((idEstr - 1),5,True) & " " 'ottengo indice estrazione -1 per RIT
		SRecord2Piu = SRecord1Piu 'copia per frq
		SRecord3Piu = SRecord1Piu 'copia per num
		'*********
		For ciclo90 = 1 To 45 'memorizzo ritardi
			sRecord1 = sRecord1 & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr),3) & " "
			SRecord1Piu = SRecord1Piu & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr - 1),3) & " "
			' memorizzo frequenze
			idFrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
			idFrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
			idFrequenza = idFrequenzaReale - idFrequenzaTeorica
			SRecord2Piu = SRecord2Piu & FormatSpace(idFrequenza,3) & " "
		Next
		Call ScriviFile(sFileOutput3,sRecord1 & SRecord1Piu & SRecord2Piu,False)
		Call AvanzamentoElab(Inizio,Fine,idEstr)
	Next
	Call CloseFileHandle(sFileOutput3)
	Call LanciaFile(sFileOutput3)
	'*************
	ciclo90 = 45
	'**************
	nEstra = 50
	'nEstra = InputBox("Quante estrazioni processare ?")
	Fine = EstrazioneFin ' 0
	Inizio = Fine -(nEstra - 1) ' EstrazioneIni
	'*************
	sFileOutput3 = "D:\Documents and Settings\claudio\Dati applicazioni\SpazioMetria\10Elotto 50 ID RIT RITs FRQs 46_90.txt"
	Call EliminaFile(sFileOutput1) 'elimina il file nel caso esistesse già
	Call EliminaFile(sFileOutput2) 'elimina il file nel caso esistesse già
	Call EliminaFile(sFileOutput3) 'elimina il file nel caso esistesse già
	'**********************
	'il file creato deve contenere all'inizio il riconoscimento delle colonne
	SrecordIntestazione3 = "ID1 "
	For ciclo90 = 46 To 90
		SrecordIntestazione3 = SrecordIntestazione3 & "rit" & CStr(ciclo90) & " "
	Next
	SrecordIntestazione3 = SrecordIntestazione3 & "IDs1 "
	For ciclo90 = 46 To 90
		SrecordIntestazione3 = SrecordIntestazione3 & "ritS" & CStr(ciclo90) & " "
	Next
	SrecordIntestazione3 = SrecordIntestazione3 & "IDs2 "
	For ciclo90 = 46 To 90
		SrecordIntestazione3 = SrecordIntestazione3 & "frqS" & CStr(ciclo90) & " "
	Next
	Call ScriviFile(sFileOutput3,SrecordIntestazione3,False)
	'Call Scrivi(SrecordIntestazione3)
	'***********
	For idEstr = Inizio To Fine
		'Ltrim() rimuove spazzi a sinistra di una stringa
		'Rtim() rimuove tutti gli spazzi a destra di una stringa
		sRecord1 = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x RIT
		sRecord2 = LTrim(FormatSpace(idEstr,5,True)) & " "
		sRecord3 = LTrim(FormatSpace(idEstr,5,True)) & " "
		SRecord1Piu = FormatSpace((idEstr - 1),5,True) & " " 'ottengo indice estrazione -1 per RIT
		SRecord2Piu = SRecord1Piu 'copia per frq
		SRecord3Piu = SRecord1Piu 'copia per num
		'*********
		For ciclo90 = 46 To 90 'memorizzo ritardi
			sRecord1 = sRecord1 & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr),3) & " "
			SRecord1Piu = SRecord1Piu & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr - 1),3) & " "
			' memorizzo frequenze
			idFrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
			idFrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
			idFrequenza = idFrequenzaReale - idFrequenzaTeorica
			SRecord2Piu = SRecord2Piu & FormatSpace(idFrequenza,3) & " "
		Next
		Call ScriviFile(sFileOutput3,sRecord1 & SRecord1Piu & SRecord2Piu,False)
		Call AvanzamentoElab(Inizio,Fine,idEstr)
	Next
	Call CloseFileHandle(sFileOutput3)
	Call LanciaFile(sFileOutput3)
	'*************
	'*************
	ciclo90 = 45
	nEstra = 100
	'nEstra = InputBox("Quante estrazioni processare ?")
	Fine = EstrazioneFin ' 0
	Inizio = Fine -(nEstra - 1) ' EstrazioneIni
	sFileOutput3 = "D:\Documents and Settings\claudio\Dati applicazioni\SpazioMetria\10Elotto 100 ID RIT RITs FRQs 1_45.txt"
	Call EliminaFile(sFileOutput1) 'elimina il file nel caso esistesse già
	Call EliminaFile(sFileOutput2) 'elimina il file nel caso esistesse già
	Call EliminaFile(sFileOutput3) 'elimina il file nel caso esistesse già
	'**********************
	'il file creato deve contenere all'inizio il riconoscimento delle colonne
	SrecordIntestazione3 = "ID1 "
	For ciclo90 = 1 To 45
		SrecordIntestazione3 = SrecordIntestazione3 & "rit" & CStr(ciclo90) & " "
	Next
	SrecordIntestazione3 = SrecordIntestazione3 & "IDs1 "
	For ciclo90 = 1 To 45
		SrecordIntestazione3 = SrecordIntestazione3 & "ritS" & CStr(ciclo90) & " "
	Next
	SrecordIntestazione3 = SrecordIntestazione3 & "IDs2 "
	For ciclo90 = 1 To 45
		SrecordIntestazione3 = SrecordIntestazione3 & "frqS" & CStr(ciclo90) & " "
	Next
	Call ScriviFile(sFileOutput3,SrecordIntestazione3,False)
	'Call Scrivi(SrecordIntestazione3)
	'***********
	For idEstr = Inizio To Fine
		'Ltrim() rimuove spazzi a sinistra di una stringa
		'Rtim() rimuove tutti gli spazzi a destra di una stringa
		sRecord1 = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x RIT
		sRecord2 = LTrim(FormatSpace(idEstr,5,True)) & " "
		sRecord3 = LTrim(FormatSpace(idEstr,5,True)) & " "
		SRecord1Piu = FormatSpace((idEstr - 1),5,True) & " " 'ottengo indice estrazione -1 per RIT
		SRecord2Piu = SRecord1Piu 'copia per frq
		SRecord3Piu = SRecord1Piu 'copia per num
		'*********
		For ciclo90 = 1 To 45 'memorizzo ritardi
			sRecord1 = sRecord1 & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr),3) & " "
			SRecord1Piu = SRecord1Piu & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr - 1),3) & " "
			' memorizzo frequenze
			idFrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
			idFrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
			idFrequenza = idFrequenzaReale - idFrequenzaTeorica
			SRecord2Piu = SRecord2Piu & FormatSpace(idFrequenza,3) & " "
		Next
		Call ScriviFile(sFileOutput3,sRecord1 & SRecord1Piu & SRecord2Piu,False)
		Call AvanzamentoElab(Inizio,Fine,idEstr)
	Next
	Call CloseFileHandle(sFileOutput3)
	Call LanciaFile(sFileOutput3)
	'*************
	ciclo90 = 45
	nEstra = 100
	'nEstra = InputBox("Quante estrazioni processare ?")
	Fine = EstrazioneFin ' 0
	Inizio = Fine -(nEstra - 1) ' EstrazioneIni
	'*************
	sFileOutput3 = "D:\Documents and Settings\claudio\Dati applicazioni\SpazioMetria\10Elotto 100 ID RIT RITs FRQs 46_90.txt"
	Call EliminaFile(sFileOutput1) 'elimina il file nel caso esistesse già
	Call EliminaFile(sFileOutput2) 'elimina il file nel caso esistesse già
	Call EliminaFile(sFileOutput3) 'elimina il file nel caso esistesse già
	'**********************
	'il file creato deve contenere all'inizio il riconoscimento delle colonne
	SrecordIntestazione3 = "ID1 "
	For ciclo90 = 46 To 90
		SrecordIntestazione3 = SrecordIntestazione3 & "rit" & CStr(ciclo90) & " "
	Next
	SrecordIntestazione3 = SrecordIntestazione3 & "IDs1 "
	For ciclo90 = 46 To 90
		SrecordIntestazione3 = SrecordIntestazione3 & "ritS" & CStr(ciclo90) & " "
	Next
	SrecordIntestazione3 = SrecordIntestazione3 & "IDs2 "
	For ciclo90 = 46 To 90
		SrecordIntestazione3 = SrecordIntestazione3 & "frqS" & CStr(ciclo90) & " "
	Next
	Call ScriviFile(sFileOutput3,SrecordIntestazione3,False)
	'Call Scrivi(SrecordIntestazione3)
	'***********
	For idEstr = Inizio To Fine
		'Ltrim() rimuove spazzi a sinistra di una stringa
		'Rtim() rimuove tutti gli spazzi a destra di una stringa
		sRecord1 = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x RIT
		sRecord2 = LTrim(FormatSpace(idEstr,5,True)) & " "
		sRecord3 = LTrim(FormatSpace(idEstr,5,True)) & " "
		SRecord1Piu = FormatSpace((idEstr - 1),5,True) & " " 'ottengo indice estrazione -1 per RIT
		SRecord2Piu = SRecord1Piu 'copia per frq
		SRecord3Piu = SRecord1Piu 'copia per num
		'*********
		For ciclo90 = 46 To 90 'memorizzo ritardi
			sRecord1 = sRecord1 & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr),3) & " "
			SRecord1Piu = SRecord1Piu & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr - 1),3) & " "
			' memorizzo frequenze
			idFrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
			idFrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
			idFrequenza = idFrequenzaReale - idFrequenzaTeorica
			SRecord2Piu = SRecord2Piu & FormatSpace(idFrequenza,3) & " "
		Next
		Call ScriviFile(sFileOutput3,sRecord1 & SRecord1Piu & SRecord2Piu,False)
		Call AvanzamentoElab(Inizio,Fine,idEstr)
	Next
	Call CloseFileHandle(sFileOutput3)
	Call LanciaFile(sFileOutput3)
	'*************
	ciclo90 = 45
	nEstra = 150
	'nEstra = InputBox("Quante estrazioni processare ?")
	Fine = EstrazioneFin ' 0
	Inizio = Fine -(nEstra - 1) ' EstrazioneIni
	'*************
	sFileOutput3 = "D:\Documents and Settings\claudio\Dati applicazioni\SpazioMetria\10Elotto 150 ID RIT RITs FRQs 1_45.txt"
	Call EliminaFile(sFileOutput1) 'elimina il file nel caso esistesse già
	Call EliminaFile(sFileOutput2) 'elimina il file nel caso esistesse già
	Call EliminaFile(sFileOutput3) 'elimina il file nel caso esistesse già
	'**********************
	'il file creato deve contenere all'inizio il riconoscimento delle colonne
	SrecordIntestazione3 = "ID1 "
	For ciclo90 = 1 To 45
		SrecordIntestazione3 = SrecordIntestazione3 & "rit" & CStr(ciclo90) & " "
	Next
	SrecordIntestazione3 = SrecordIntestazione3 & "IDs1 "
	For ciclo90 = 1 To 45
		SrecordIntestazione3 = SrecordIntestazione3 & "ritS" & CStr(ciclo90) & " "
	Next
	SrecordIntestazione3 = SrecordIntestazione3 & "IDs2 "
	For ciclo90 = 1 To 45
		SrecordIntestazione3 = SrecordIntestazione3 & "frqS" & CStr(ciclo90) & " "
	Next
	Call ScriviFile(sFileOutput3,SrecordIntestazione3,False)
	'Call Scrivi(SrecordIntestazione3)
	'***********
	For idEstr = Inizio To Fine
		'Ltrim() rimuove spazzi a sinistra di una stringa
		'Rtim() rimuove tutti gli spazzi a destra di una stringa
		sRecord1 = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x RIT
		sRecord2 = LTrim(FormatSpace(idEstr,5,True)) & " "
		sRecord3 = LTrim(FormatSpace(idEstr,5,True)) & " "
		SRecord1Piu = FormatSpace((idEstr - 1),5,True) & " " 'ottengo indice estrazione -1 per RIT
		SRecord2Piu = SRecord1Piu 'copia per frq
		SRecord3Piu = SRecord1Piu 'copia per num
		'*********
		For ciclo90 = 1 To 45 'memorizzo ritardi
			sRecord1 = sRecord1 & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr),3) & " "
			SRecord1Piu = SRecord1Piu & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr - 1),3) & " "
			' memorizzo frequenze
			idFrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
			idFrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
			idFrequenza = idFrequenzaReale - idFrequenzaTeorica
			SRecord2Piu = SRecord2Piu & FormatSpace(idFrequenza,3) & " "
		Next
		Call ScriviFile(sFileOutput3,sRecord1 & SRecord1Piu & SRecord2Piu,False)
		Call AvanzamentoElab(Inizio,Fine,idEstr)
	Next
	Call CloseFileHandle(sFileOutput3)
	Call LanciaFile(sFileOutput3)
	'*************
	ciclo90 = 45
	nEstra = 150
	'nEstra = InputBox("Quante estrazioni processare ?")
	Fine = EstrazioneFin ' 0
	Inizio = Fine -(nEstra - 1) ' EstrazioneIni
	'*************
	sFileOutput3 = "D:\Documents and Settings\claudio\Dati applicazioni\SpazioMetria\10Elotto 150 ID RIT RITs FRQs 46_90.txt"
	Call EliminaFile(sFileOutput1) 'elimina il file nel caso esistesse già
	Call EliminaFile(sFileOutput2) 'elimina il file nel caso esistesse già
	Call EliminaFile(sFileOutput3) 'elimina il file nel caso esistesse già
	'**********************
	'il file creato deve contenere all'inizio il riconoscimento delle colonne
	SrecordIntestazione3 = "ID1 "
	For ciclo90 = 46 To 90
		SrecordIntestazione3 = SrecordIntestazione3 & "rit" & CStr(ciclo90) & " "
	Next
	SrecordIntestazione3 = SrecordIntestazione3 & "IDs1 "
	For ciclo90 = 46 To 90
		SrecordIntestazione3 = SrecordIntestazione3 & "ritS" & CStr(ciclo90) & " "
	Next
	SrecordIntestazione3 = SrecordIntestazione3 & "IDs2 "
	For ciclo90 = 46 To 90
		SrecordIntestazione3 = SrecordIntestazione3 & "frqS" & CStr(ciclo90) & " "
	Next
	Call ScriviFile(sFileOutput3,SrecordIntestazione3,False)
	'Call Scrivi(SrecordIntestazione3)
	'***********
	For idEstr = Inizio To Fine
		'Ltrim() rimuove spazzi a sinistra di una stringa
		'Rtim() rimuove tutti gli spazzi a destra di una stringa
		sRecord1 = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x RIT
		sRecord2 = LTrim(FormatSpace(idEstr,5,True)) & " "
		sRecord3 = LTrim(FormatSpace(idEstr,5,True)) & " "
		SRecord1Piu = FormatSpace((idEstr - 1),5,True) & " " 'ottengo indice estrazione -1 per RIT
		SRecord2Piu = SRecord1Piu 'copia per frq
		SRecord3Piu = SRecord1Piu 'copia per num
		'*********
		For ciclo90 = 46 To 90 'memorizzo ritardi
			sRecord1 = sRecord1 & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr),3) & " "
			SRecord1Piu = SRecord1Piu & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr - 1),3) & " "
			' memorizzo frequenze
			idFrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
			idFrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
			idFrequenza = idFrequenzaReale - idFrequenzaTeorica
			SRecord2Piu = SRecord2Piu & FormatSpace(idFrequenza,3) & " "
		Next
		Call ScriviFile(sFileOutput3,sRecord1 & SRecord1Piu & SRecord2Piu,False)
		Call AvanzamentoElab(Inizio,Fine,idEstr)
	Next
	Call CloseFileHandle(sFileOutput3)
	Call LanciaFile(sFileOutput3)
	'*************
	ciclo90 = 45
	nEstra = 200
	'nEstra = InputBox("Quante estrazioni processare ?")
	Fine = EstrazioneFin ' 0
	Inizio = Fine -(nEstra - 1) ' EstrazioneIni
	'*************
	sFileOutput3 = "D:\Documents and Settings\claudio\Dati applicazioni\SpazioMetria\10Elotto 200 ID RIT RITs FRQs 1_45.txt"
	Call EliminaFile(sFileOutput1) 'elimina il file nel caso esistesse già
	Call EliminaFile(sFileOutput2) 'elimina il file nel caso esistesse già
	Call EliminaFile(sFileOutput3) 'elimina il file nel caso esistesse già
	'**********************
	'il file creato deve contenere all'inizio il riconoscimento delle colonne
	SrecordIntestazione3 = "ID1 "
	For ciclo90 = 1 To 45
		SrecordIntestazione3 = SrecordIntestazione3 & "rit" & CStr(ciclo90) & " "
	Next
	SrecordIntestazione3 = SrecordIntestazione3 & "IDs1 "
	For ciclo90 = 1 To 45
		SrecordIntestazione3 = SrecordIntestazione3 & "ritS" & CStr(ciclo90) & " "
	Next
	SrecordIntestazione3 = SrecordIntestazione3 & "IDs2 "
	For ciclo90 = 1 To 45
		SrecordIntestazione3 = SrecordIntestazione3 & "frqS" & CStr(ciclo90) & " "
	Next
	Call ScriviFile(sFileOutput3,SrecordIntestazione3,False)
	'Call Scrivi(SrecordIntestazione3)
	'***********
	For idEstr = Inizio To Fine
		'Ltrim() rimuove spazzi a sinistra di una stringa
		'Rtim() rimuove tutti gli spazzi a destra di una stringa
		sRecord1 = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x RIT
		sRecord2 = LTrim(FormatSpace(idEstr,5,True)) & " "
		sRecord3 = LTrim(FormatSpace(idEstr,5,True)) & " "
		SRecord1Piu = FormatSpace((idEstr - 1),5,True) & " " 'ottengo indice estrazione -1 per RIT
		SRecord2Piu = SRecord1Piu 'copia per frq
		SRecord3Piu = SRecord1Piu 'copia per num
		'*********
		For ciclo90 = 1 To 45 'memorizzo ritardi
			sRecord1 = sRecord1 & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr),3) & " "
			SRecord1Piu = SRecord1Piu & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr - 1),3) & " "
			' memorizzo frequenze
			idFrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
			idFrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
			idFrequenza = idFrequenzaReale - idFrequenzaTeorica
			SRecord2Piu = SRecord2Piu & FormatSpace(idFrequenza,3) & " "
		Next
		Call ScriviFile(sFileOutput3,sRecord1 & SRecord1Piu & SRecord2Piu,False)
		Call AvanzamentoElab(Inizio,Fine,idEstr)
	Next
	Call CloseFileHandle(sFileOutput3)
	Call LanciaFile(sFileOutput3)
	'*************
	ciclo90 = 45
	nEstra = 200
	'nEstra = InputBox("Quante estrazioni processare ?")
	Fine = EstrazioneFin ' 0
	Inizio = Fine -(nEstra - 1) ' EstrazioneIni
	'*************
	sFileOutput3 = "D:\Documents and Settings\claudio\Dati applicazioni\SpazioMetria\10Elotto 200 ID RIT RITs FRQs 46_90.txt"
	Call EliminaFile(sFileOutput1) 'elimina il file nel caso esistesse già
	Call EliminaFile(sFileOutput2) 'elimina il file nel caso esistesse già
	Call EliminaFile(sFileOutput3) 'elimina il file nel caso esistesse già
	'**********************
	'il file creato deve contenere all'inizio il riconoscimento delle colonne
	SrecordIntestazione3 = "ID1 "
	For ciclo90 = 46 To 90
		SrecordIntestazione3 = SrecordIntestazione3 & "rit" & CStr(ciclo90) & " "
	Next
	SrecordIntestazione3 = SrecordIntestazione3 & "IDs1 "
	For ciclo90 = 46 To 90
		SrecordIntestazione3 = SrecordIntestazione3 & "ritS" & CStr(ciclo90) & " "
	Next
	SrecordIntestazione3 = SrecordIntestazione3 & "IDs2 "
	For ciclo90 = 46 To 90
		SrecordIntestazione3 = SrecordIntestazione3 & "frqS" & CStr(ciclo90) & " "
	Next
	Call ScriviFile(sFileOutput3,SrecordIntestazione3,False)
	'Call Scrivi(SrecordIntestazione3)
	'***********
	For idEstr = Inizio To Fine
		'Ltrim() rimuove spazzi a sinistra di una stringa
		'Rtim() rimuove tutti gli spazzi a destra di una stringa
		sRecord1 = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x RIT
		sRecord2 = LTrim(FormatSpace(idEstr,5,True)) & " "
		sRecord3 = LTrim(FormatSpace(idEstr,5,True)) & " "
		SRecord1Piu = FormatSpace((idEstr - 1),5,True) & " " 'ottengo indice estrazione -1 per RIT
		SRecord2Piu = SRecord1Piu 'copia per frq
		SRecord3Piu = SRecord1Piu 'copia per num
		'*********
		For ciclo90 = 46 To 90 'memorizzo ritardi
			sRecord1 = sRecord1 & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr),3) & " "
			SRecord1Piu = SRecord1Piu & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr - 1),3) & " "
			' memorizzo frequenze
			idFrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
			idFrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
			idFrequenza = idFrequenzaReale - idFrequenzaTeorica
			SRecord2Piu = SRecord2Piu & FormatSpace(idFrequenza,3) & " "
		Next
		Call ScriviFile(sFileOutput3,sRecord1 & SRecord1Piu & SRecord2Piu,False)
		Call AvanzamentoElab(Inizio,Fine,idEstr)
	Next
	Call CloseFileHandle(sFileOutput3)
	Call LanciaFile(sFileOutput3)
End Sub

SE volete farlo girare cambiate l'indirizzamento dei file dove trovate queste righe: "d:\............ DATI SPAZIOMETRIA\10Elotto 200 ID RIT RITs FRQs 46_90.txt" vedi mie modifice
già fatto x 10 e lotto 5m controllate se funge.

gian332 · 22 Settembre 2014

Alien. ha scritto:
ERRORE idEs tr - 1)),3) & " "

devi unire la variabile " idEs tr" in "idEstr" come linkata nell'istruzione DIM all'inizio dello script. come dicevo prima non sò perchè viene staccata.

gian332 · 23 Settembre 2014

x claudio8 ,...bhe intanto grazie x l'interessamento.

claudio gira, però se controlli i file contenenti i ritardi, prendiamo ad esempio rit50 1_45 e controllando la seconda colonna che è riferita hai ritardi conseguiti dal numero"1" ad ogni sua uscita e la si controlla usando l'archivio di spaziometria alla chiusura della giornata 22/09/2014
le ultime uscite del"1" partendo dalle tre volte che è uscito di fila avrebbe dovuto essere 0-0-0-1-2-3-4-5-6-7-8-9-10-11-12-13-0-1.

io suppongo che sia perchè l'algoritmo non legga la giusta sequenza delle estrazioni giornaliere ma ad ogni ciclo passi alla lettura del giorno dopo in effetti era stato creato per le estrazioni basate sul lotto che dici ?

gian332 · 23 Settembre 2014

gian332 ha scritto:
x claudio8 ,...bhe intanto grazie x l'interessamento.

claudio gira, però se controlli i file contenenti i ritardi, prendiamo ad esempio rit50 1_45 e controllando la seconda colonna che è riferita hai ritardi conseguiti dal numero"1" ad ogni sua uscita e la si controlla usando l'archivio di spaziometria alla chiusura della giornata 22/09/2014
le ultime uscite del"1" partendo dalle tre volte che è uscito di fila avrebbe dovuto essere 0-0-0-1-2-3-4-5-6-7-8-9-10-11-12-13-0-1.

io suppongo che sia perchè l'algoritmo non legga la giusta sequenza delle estrazioni giornaliere ma ad ogni ciclo passi alla lettura del giorno dopo in effetti era stato creato per le estrazioni basate sul lotto che dici ?

oppure potrebbe essere che vadano cambiate le funzioni di lettura tipo..
sRecord1 = sRecord1 & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr),3) & " "

claudio8 · 23 Settembre 2014

gian332 ha scritto:
oppure potrebbe essere che vadano cambiate le funzioni di lettura tipo..
sRecord1 = sRecord1 & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr),3) & " "

Gian, definito il fatto che opera con l'archivio di 10 e lotto 5 m, dovresti darmi i dati precisi e chiari.

Mi spiego meglio: le indicazioni che mi dai devono essere supportate da uno screen shot dei dati che ricava lo script e dei dati che ricavi da Spaziometria sez 10 e lotto 5 m chiaramente con range archivio identico.

In sostanza, devi immaginare che io o chiunque si appresti ad aiutarti sia completamente a digiuno delle operazioni che tu fai x ricavare e confrontare i risultati della ricerca.

Ciao

claudio8 · 23 Settembre 2014

Un solo file di freq ed un solo file di rit. si comincia ad lavorare nel pulito.

Codice:

Sub Main
	Dim FileOutput
	Dim idEstr,e
	Dim Inizio,Fine
	Dim recFRQ,recFRQs,recRIT,recRITs
	Dim Intestazione
	Dim ciclo90,nEstra
	Dim Frequenza,FrequenzaTeorica,FrequenzaReale
	Dim sFileOutput1,sFileOutput2,sFileOutput3
	Dim SrecordIntestazione3,sRecord1,sRecord2,sRecord3
	Dim SRecord1Piu,SRecord2Piu,SRecord3Piu
	Dim idFrequenzaReale,idFrequenzaTeorica,idFrequenza
	Call ImpostaArchivio10ELotto(2)
	'Call AggiornaArchivioDL
	
	'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''************* F R E Q U E N Z E
	'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''************* F R E Q U E N Z E
	ciclo90 = 45
	nEstra = 50
	'nEstra = InputBox("Quante estrazioni processare ?")
	Fine = EstrazioneFinDL ' 0
	Inizio = Fine -(nEstra - 1) ' EstrazioneIni
	'*************
	FileOutput = "D:\Documents and Settings\claudio\Dati applicazioni\SpazioMetria\10Elotto 50 ID FRQ FRQs RITs 1_45.txt"
	Call EliminaFile(FileOutput) 'elimina il file nel caso esistesse già
	'**********************
	'il file creato deve contenere all'inizio il riconoscimento delle colonne
	Intestazione = "ID1 "
	For ciclo90 = 1 To 45
		Intestazione = Intestazione & "frq" & CStr(ciclo90) & " "
	Next
	Intestazione = Intestazione & "IDs "
	For ciclo90 = 1 To 45
		Intestazione = Intestazione & "frqS" & CStr(ciclo90) & " "
	Next
	Intestazione = Intestazione & "IDs1 "
	For ciclo90 = 1 To 45
		Intestazione = Intestazione & "ritS" & CStr(ciclo90) & " "
	Next
	Call ScriviFile(FileOutput,Intestazione,False)
	'***********
	For idEstr = Inizio To Fine
		'Ltrim() rimuove spazzi a sinistra di una stringa
		'Rtrim() rimuove tutti gli spazzi a destra di una stringa
		recFRQ = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x frequenze
		recRITs = LTrim(FormatSpace(idEstr - 1,5,True)) & " "
		recFRQs = FormatSpace((idEstr - 1),5,True) & " " 'ottengo indice estrazione -1 per frequeze scalate
		'*********
		For ciclo90 = 1 To 45 ' memorizzo frequenza
			FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,idEstr)
			FrequenzaTeorica = Int((idEstr - Inizio) / 4.5)
			Frequenza = FrequenzaReale - FrequenzaTeorica
			recFRQ = recFRQ & FormatSpace(Frequenza,3) & " "
		Next
		For ciclo90 = 1 To 45 ' memorizzo frequenza
			FrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
			FrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
			Frequenza = FrequenzaReale - FrequenzaTeorica
			recFRQs = recFRQs & FormatSpace(Frequenza,3) & " "
		Next
		'**************
		For ciclo90 = 1 To 45 'memorizzo ritardi
			'recRIT = recRIT & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEst r),3) & " "
			recRITs = recRITs & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,(idEstr - 1)),3) & " "
		Next
		'***********
		'****************
		Call ScriviFile(FileOutput,recFRQ & recFRQs & recRITs,False)
		Call AvanzamentoElab(Inizio,Fine,idEstr)
	Next
	'*****************
	Call CloseFileHandle(FileOutput)
	Call LanciaFile(FileOutput)
	'**************
	ciclo90 = 45
	nEstra = 50
	'nEstra = InputBox("Quante estrazioni processare ?")
	''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'	''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''************* R I T A R D I
	'*************
	ciclo90 = 45
	nEstra = 50
	'nEstra = InputBox("Quante estrazioni processare ?")
	Fine = EstrazioneFinDL ' 0
	Inizio = Fine -(nEstra - 1) ' EstrazioneIni
	sFileOutput3 = "D:\Documents and Settings\claudio\Dati applicazioni\SpazioMetria\10Elotto 50 ID RIT RITs FRQs 1_45.txt"
	Call EliminaFile(sFileOutput1) 'elimina il file nel caso esistesse già
	Call EliminaFile(sFileOutput2) 'elimina il file nel caso esistesse già
	Call EliminaFile(sFileOutput3) 'elimina il file nel caso esistesse già
	'**********************
	'il file creato deve contenere all'inizio il riconoscimento delle colonne
	SrecordIntestazione3 = "ID1 "
	For ciclo90 = 1 To 45
		SrecordIntestazione3 = SrecordIntestazione3 & "rit" & CStr(ciclo90) & " "
	Next
	SrecordIntestazione3 = SrecordIntestazione3 & "IDs1 "
	For ciclo90 = 1 To 45
		SrecordIntestazione3 = SrecordIntestazione3 & "ritS" & CStr(ciclo90) & " "
	Next
	SrecordIntestazione3 = SrecordIntestazione3 & "IDs2 "
	For ciclo90 = 1 To 45
		SrecordIntestazione3 = SrecordIntestazione3 & "frqS" & CStr(ciclo90) & " "
	Next
	Call ScriviFile(sFileOutput3,SrecordIntestazione3,False)
	'Call Scrivi(SrecordIntestazione3)
	'***********
	For idEstr = Inizio To Fine
		'Ltrim() rimuove spazzi a sinistra di una stringa
		'Rtim() rimuove tutti gli spazzi a destra di una stringa
		sRecord1 = LTrim(FormatSpace(idEstr,5,True)) & " " 'ottengo indice estrazione x RIT
		sRecord2 = LTrim(FormatSpace(idEstr,5,True)) & " "
		sRecord3 = LTrim(FormatSpace(idEstr,5,True)) & " "
		SRecord1Piu = FormatSpace((idEstr-1),5,True) & " " 'ottengo indice estrazione -1 per RIT
		SRecord2Piu = SRecord1Piu 'copia per frq
		SRecord3Piu = SRecord1Piu 'copia per num
		'*********
		For ciclo90 = 1 To 45 'memorizzo ritardi
			sRecord1 = sRecord1 & FormatSpace(EstrattoRitardoDL(ciclo90,Inizio,idEstr),3) & " "
			SRecord1Piu = SRecord1Piu & FormatSpace (EstrattoRitardoDL(ciclo90,Inizio,idEstr - 1),3) & " "
			' memorizzo frequenze
			idFrequenzaReale = EstrattoFrequenzaDL(ciclo90,Inizio,(idEstr - 1))
			idFrequenzaTeorica = Int(((idEstr - 1) - Inizio) / 4.5)
			idFrequenza = idFrequenzaReale - idFrequenzaTeorica
			SRecord2Piu = SRecord2Piu & FormatSpace(idFrequenza,3) & " "
		Next
		Call ScriviFile(sFileOutput3,sRecord1 & SRecord1Piu & SRecord2Piu,False)
		Call AvanzamentoElab(Inizio,Fine,idEstr)
	Next
	Call CloseFileHandle(sFileOutput3)
	Call LanciaFile(sFileOutput3)
'	''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''*************

End Sub

Poi vediamo se riusciamo a migliorarlo nella funzionalità di utilizzo.
::::::::::::::::::::ATTENZIONE ::::::::::::::::::::
Modifica: i file che crea hanno n°estrazione dell'archivio del lotto.
occorre cambiare il termine " Fine = EstrazioneFin" in Fine = EstrazioneFinDL .

Prvova adesso con la modifica fatta anche nello script di questo post.

Questo è ciò che mi è venuto fuori....

silop2005 · 23 Settembre 2014

Ciao Claudio,

io ho cambiato anche le righe dove ci sta il D: in C:
FileOutput = "D:\Doc ....

FileOutput = "C:\Doc ....

perchè io ho SPMT in c:

x gian332 : è possibile avere delle spiegazioni sulla lettura di queste cartelle/file .txt

e come fare la conversione in excel ?

Buona giornata a tutti.

Silop

gian332 · 23 Settembre 2014

ok raga... oggi ho fatto tardi col lavoro e sono a pezzi,verdrò di risponder domani sera. ciao a tutti

gian332 · 24 Settembre 2014

claudio8 avevi ragione mettendo Fine = EstrazioneFinDL
e selezionando l'archivio 5min in spaziometria 10elotto "imposta archivio"
è andato tutto a posto il risultato è perfetto !! GRAZZIE MILLE
appena ho tempo posto le spiegazioni e il file excel per caricare tutti i file di testo creati dallo script.

claudio8 · 24 Settembre 2014

ho visto, anche lo screen shot, va bene.,,, fammi sapere come va con il 10e lotto5m... si vince ?

script che genera una serie di file usabili in excel su frequenze e ritardi

Banned

Allegati

Advanced Member >PLATINUM<

Premium Member

Banned

Banned

Advanced Member >PLATINUM<

Banned

Banned

Banned

Advanced Premium Member

Premium Member

Banned

Banned

Banned

Premium Member

Premium Member

Advanced Member >PLATINUM<

Banned

Banned

Premium Member