Option Explicit
'è...... di Alien.
'http://forum.lottoced.com/forum/lottoced/area-download/2036522-%C3%A8
Sub Main()
Dim posta(03)
Dim Tipoarchivio
Tipoarchivio = ScegliArchivioDL
If Tipoarchivio > 00 Then
If Tipoarchivio = 02 Then
If MsgBox("Vuoi aggiornare le estrazioni prima di eseguire il listato",vbQuestion + vbYesNo) = vbYes Then
Call AggiornaArchivioDL
End If
End If
Call ImpostaArchivio10ELotto(Tipoarchivio)
Dim Ini,fin,es
Ini = EstrazioneFinDL - 10 ' sostituisci il 10 se vuoi cambiare le lestrazioni da valutare
fin = EstrazioneFinDL
Call Scrivi(String(89,"-"),01)
If Tipoarchivio = 01 Then Call Scrivi(Space(37) & "10 e lotto Serale",01)
If Tipoarchivio = 02 Then Call Scrivi(Space(37) & "10 e lotto 5minuti",01)
Call Scrivi(String(89,"-"),01)
For es = Ini To fin
Call Messaggio(es)
Call AvanzamentoElab(Ini,fin,es)
ReDim n(20)
Dim p
For p = 01 To 20
n(p) = Cadenza(EstrattoDL(es,p))
Next
Call Scrivi(GetInfoEstrazioneDL(es) & " " & Space(05) & Format2(n(01)) & "." & Format2(n(02)) & "." & Format2(n(03)) & "." & _
Format2(n(04)) & "." & Format2(n(05)) & "." & Format2(n(06)) & "." & Format2(n(07)) & "." & Format2(n(08)) & "." & _
Format2(n(09)) & "." & Format2(n(10)) & "." & Format2(n(11)) & "." & Format2(n(12)) & "." & Format2(n(13)) & "." & _
Format2(n(14)) & "." & Format2(n(15)) & "." & Format2(n(16)) & "." & Format2(n(17)) & "." & Format2(n(18)) & "." & _
Format2(n(19)) & "." & Format2(n(20)),01)
Next
End If
End Sub
Function ScegliArchivioDL()
ReDim aVoci(01)
aVoci(00) = "10 e lotto Serale"
aVoci(01) = "10 e lotto 5minuti"
ScegliArchivioDL = ScegliOpzioneMenu(aVoci,00,"Scegli archivio 10eLotto") + 01
End Function