Option Explicit
Sub Main
Dim sFileLoc
Dim nEstrTot,sDataLastEstr,k,r,e
Dim sDataEstr,nNumEstr,nSalvate
Dim b
Dim sFileBd
Dim sLink
sLink = "C:\Dati\estrazioni2016.txt"
b = False
nSalvate = 0
sFileBd = GetDirectoryAppData & "BaseDati.dat"
sFileLoc = GetDirectoryAppData & "temp\"
If CreaDirectory(sFileLoc) Then
sFileLoc = sFileLoc & "Estrazioni.txt"
If DownloadFromWeb(sLink,sFileLoc) Then
nEstrTot = EstrazioniArchivio
sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
ReDim aRighe(0)
Call LeggiRigheFileDiTesto(sFileLoc,aRighe)
For k = UBound(aRighe) To 0 Step - 1
ReDim aV(0)
Call SplitByChar(aRighe(k),"|",aV)
If UBound(aV) = 12 Then
If InStr(aV(0),"-") Then
ReDim aVV(0)
Call SplitByChar(aV(0),"-",aVV)
nNumEstr = Int(aVV(0))
sDataEstr = Trim(aVV(1))
If b Then
If nNumEstr > 0 And IsDate(sDataEstr) Then
ReDim aEstr(11,5)
For r = 1 To 11
ReDim aVV(0)
Call SplitByChar(aV(r),"-",aVV)
For e = 1 To 5
aEstr(r,e) = Int(Trim(aVV(e - 1)))
Next
Next
If SalvaEstrazione(aEstr,sDataEstr,nNumEstr,sFileBd) Then
nSalvate = nSalvate + 1
Call Messaggio(nSalvate)
End If
End If
End If
If sDataEstr = sDataLastEstr Then b = True
End If
End If
Next
Else
MsgBox "Errore download verificare il link con il browser"
End If
Call Scrivi("Sono state aggiunte " & nSalvate & " estrazioni")
Call Scrivi("Estrazioni totali " & QuantitaEstrazioniInFile(sFileBd))
Call Scrivi
Call Scrivi("Link usata " & sLink)
Call Scrivi("Contenuto del file scaricato dalla link")
For k = 0 To UBound(aRighe)
Call Scrivi(aRighe(k))
Next
End If
End Sub