Option Explicit
Sub Main
Dim nEstrInizio,nEstrFine
Dim DataIni,DataFin
Dim sFile
Dim sChrSep
Dim sDirDest
'sDirDest = "C:\dovemipare\"
sDirDest = GetDirectoryAppData
sChrSep = ";"
sFile = AddSlash(sDirDest) & "EstrazioniLotto.csv"
If EliminaFile(sFile) Then
nEstrInizio = 1
nEstrFine = EstrazioniArchivio
Call EsportaEstr(nEstrInizio,nEstrFine,sFile,sChrSep)
End If
End Sub
Sub EsportaEstr(nEstrInizio,nEstrFine,sFile,sChrSep)
Dim k,f,idEstr
Dim sRecord
Dim nProgr
Dim sDataCorr
Dim r,e
For k = nEstrInizio To nEstrFine
Call Messaggio("Estrazione : " & k)
idEstr = k
ReDim aNum(0)
If GetEstrazioneCompleta(idEstr,aNum) Then
nProgr = nProgr + 1
sDataCorr = Replace(DataEstrazione(idEstr),".","/") & " 00:00:00"
sRecord = ""
sRecord = sDataCorr & ";" & FormattaStringa(IndiceAnnuale(idEstr),"0000000") & ";" & FormattaStringa(IndiceMensile(idEstr),"0000000") & ";0000000;"
' sRecord = FormatSpace(nProgr,9,True) & sChrSep
' sRecord = sRecord & IndiceAnnuale(idEstr) & sChrSep
' sRecord = sRecord & sDataCorr & sChrSep
For r = 1 To 11
For e = 1 To 5
sRecord = sRecord & Format2(aNum(r,e)) & sChrSep
Next
Next
sRecord = RimuoviLastChr(sRecord,sChrSep)
Call ScriviFile(sFile,sRecord,False,True)
Else
Exit For
End If
If ScriptInterrotto Then Exit For
Call AvanzamentoElab(nEstrInizio,nEstrFine,k)
Next
Call CloseFileHandle(sFile)
' Call LanciaFile(sFile)
Scrivi "Esportato file " & sFile
MsgBox "Fine",vbInformation
End Sub
Function AddSlash(s)
If Right(s,1) <> "\" Then
AddSlash = s & "\"
Else
AddSlash = s
End If
End Function