ho fatto le modifiche per gestire il nmero oro del 10 e lotto.
E' necessario aggiornare gli archivi sia del 10 e lotto tradizionale sia quello 5 minuti.
Per farlo eseguire questo script dopo aver installato almeno la versione 1.5.6
Codice:
Option Explicit
Sub Main
Dim sFileBd
Dim sMsg
sMsg = "Questo script elimina gli archivi del 10 e lotto" & vbCrLf
sMsg = sMsg & "sia tradizionale che 5M poi li aggiorna nuovamente" & vbCrLf
sMsg = sMsg & "per consentire la modifica Numero Oro. Proseguire ?" & vbCrLf
If MsgBox( sMsg , vbQuestion + vbYesNo ) = vbYes Then
sFileBd = GetDirectoryAppData & "BaseDati10Elotto.Dat"
Call EliminaFile(sFileBd)
sFileBd = GetDirectoryAppData & "BaseDati10Elotto5M.Dat"
Call EliminaFile(sFileBd)
Call AggiornaArchivio
Call AggiornaArchivioDL
ImpostaArchivio10ELotto(1)
Call ScriviEstrazioneDL(EstrazioniArchivioDL,True)
ImpostaArchivio10ELotto(2)
Call ScriviEstrazioneDL(EstrazioniArchivioDL,True)
End If
End Sub