Ciao a tutti io ho trovato questo script:
Option Explicit
Sub Main
Dim sFileLoc
Dim nEstrTot,sDataLastEstr,k,r,p
Dim sDataEstr,nNumEstr,nSalvate
Dim b
Dim sFileBd
Dim sLink
Dim Ia,sVV,x,pp
sLink = "
http://lottoscar.altervista.org/ArchivioLotto.italia.csv"
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,,,"/")
Ia = IndiceAnnuale(nEstrTot)
ReDim aRighe(0)
Call LeggiRigheFileDiTesto(sFileLoc,aRighe)
For k = 1 To UBound(aRighe)
ReDim aV(0)
Call SplitByChar(aRighe(k),";",aV)
If UBound(aV) = 56 Then
sDataEstr = Mid(aV(0),1,10)
If b Then
Scrivi sDataEstr
Ia = Ia + 1 : pp = 1
nNumEstr =(Ia)
ReDim aEstr(11,5)
r = 1 : p = 0
For x = 2 To 56
p = p + 1 : pp = pp + 1
aEstr(r,p) = eVal(aV(pp))
If p = 5 Then r = r + 1 : p = 0
Next
If SalvaEstrazione(aEstr,sDataEstr,nNumEstr,sFileBd) Then
nSalvate = nSalvate + 1
Call Messaggio(nSalvate)
End If
End If
If sDataEstr = sDataLastEstr Then b = True
End If
Next
If nSalvate > 0 Then AllineaArchivi
Else
MsgBox "Errore download verificare il link con il browser"
End If
Call Scrivi("")
Call Scrivi("Sono state aggiunte " & nSalvate & " estrazioni")
Call Scrivi("")
Call Scrivi("Estrazioni totali " & QuantitaEstrazioniInFile(sFileBd))
Call Scrivi("")
Call Scrivi("Utilizzato archivio del sito " & sLink)
Call Scrivi("")
End If
End Sub
Fammi sapere.
