Per Mike58 o altri

[solare]

Ciao, questo è un listato che Mike58 gentilmente mi aveva fatto per il 10elotto serale.
Non so cosa sia successo ma non funziona più come prima. L'estrazione non viene più scritta come prima e cioè :
18/05/2019;060;01;06;11;15;16;23;25;28;29;30;35;45;52;55;56;62;65;72;84;88;30;25

Ecco il listato in questione:

Option Explicit
Sub Main
ImpostaArchivio10ELotto(1)
Dim Ini,Fin,IdEstr,P,nu(20),sChrSep
sChrSep = ";"
Ini = EstrazioniArchivioDL-10
Fin = EstrazioniArchivioDL
Call ScegliRange(Ini,Fin,Ini,Fin)
Scrivi "Archivio 10 e Lotto Serale"
Scrivi "Estrazione inizio........... " & Ini
Scrivi "Estrazione fine............. " & Fin
Scrivi
Call ResetTimer
For IdEstr = Ini To Fin
For P = 1 To 20
nu(P) = EstrattoDL(IdEstr,P)
Next
Scrivi DataEstrazioneDL(IdEstr,,,"/") & sChrSep & FormattaStringa(IndiceAnnuale(IdEstr),"000") & sChrSep,1,0
Scrivi StringaNumeri(nu,sChrSep,1),1,,,1
Call AvanzamentoElab(Ini,Fin,IdEstr)
Next
Dim t:t = TempoTrascorso
If MsgBox("Vuoi visualizzare il tempo di elaborazioni dati?",4,"Opzione Output") = vbYes Then Scrivi : Scrivi t
End Sub

 

[Mike58]

Ciao Solare.

Non capisco dove e cosa deve scrivere di diverso, ma il listato restituisce esattamente quello che deve ottenere.

 

[solare]

Ho riaggiornato spaziometria adesso sembra funzionare però non riporta i numeri oro.

 

[Mike58]

Non riporta i numeri oro perché non sono scritti.
eccoli

Option Explicit
Sub Main
ImpostaArchivio10ELotto(1)
Dim Ini,Fin,IdEstr,P,nu(20),sChrSep,Oro,Oro2
sChrSep = ";"
Ini = EstrazioniArchivioDL - 10
Fin = EstrazioniArchivioDL
Call ScegliRange(Ini,Fin,Ini,Fin)
Scrivi "Archivio 10 e Lotto Serale"
Scrivi "Estrazione inizio........... " & Ini
Scrivi "Estrazione fine............. " & Fin
Scrivi
Call ResetTimer
For IdEstr = Ini To Fin
For P = 1 To 20
nu(P) = EstrattoDL(IdEstr,P)
Next
Oro = NumeroOroDL(IdEstr)
Oro2 = Estratto(IdEstr,BA_,2)
Scrivi DataEstrazioneDL(IdEstr,,,"/") & sChrSep & FormattaStringa(IndiceAnnuale(IdEstr),"000") & sChrSep,1,0
Scrivi StringaNumeri(nu,sChrSep,1),1,0,,1
Scrivi sChrSep & Format2(Oro) & sChrSep & Format2(Oro2),1,,,2
Call AvanzamentoElab(Ini,Fin,IdEstr)
Next
Dim t:t = TempoTrascorso
If MsgBox("Vuoi visualizzare il tempo di elaborazioni dati?",4,"Opzione Output") = vbYes Then Scrivi : Scrivi t
End Sub

 

[solare]

ciao Mike58, Grazie infinite della tua disponibilità.