Sub InitAggiornamentoDL5M()
Dim sDataUltimaEstr As String
Dim idEstr As Long
Dim NumEstr As Long
Dim sTemp As String
Dim k As Long
Dim sNuovaData As String
Dim sLinkHtml As String, sFileLocal As String
[COLOR="#FF0000"][B] Dim ValTot As Long
Dim ValUsed As Long[/B][/COLOR]
ImpostaArchivio10ELotto (2) ' Con questo imposto l'archivio a quello del 10eLotto 5minuti
sTemp = GetInfoEstrazioneDL(EstrazioniArchivioDL) ' scrive il risultato una variabile temporanea
' leggo i dati dcontenuti nella variabile e li separo con split
ReDim av(0) As String
av() = Split(sTemp, " ")
' Formato risultato del getinfoestrazionedl [01056] [192] 21.04.2013
' 1° Elemento Array ->[01056]
' 2° Elemento Array ->[192]
' 3°Elemento Array ->21.04.2013
' Gli array partono da 0 perciò memorizzo i singoli valori nelle apposite variabili
' ricordando che dobbiamo normalizzarli togliendo parentesi quadre e sostitundo il . con /
' levo le parentesi quadre dall'id estrazione contenuto nell'elemento 0 dell'array aV()
av(0) = Replace(av(0), "[", "")
av(0) = Replace(av(0), "]", "")
' levo le parentesi quadre dal numero estrazione contenuto nell'elemento 1 dell'array aV()
av(1) = Replace(av(1), "[", "")
av(1) = Replace(av(1), "]", "")
' sostituisco il punto con slash nell'elemento 2 dell'array aV()
av(2) = Replace(av(2), ".", "/")
' ora siamo pronti per memorizzare i dati nelle variabili
idEstr = Val(av(0))
NumEstr = Val(av(1))
sDataUltimaEstr = av(2)
' iniziamo il ciclo di lettura delle pagine html
sNuovaData = sDataUltimaEstr ' partiamo dall'ultima data disponbile
[COLOR="#FF0000"][B] ValTot = DateDiff("d", sDataUltimaEstr, Now) ' calcola i giorni totali dall'ultima in archivio a oggi[/B][/COLOR]
Do While Format(sNuovaData, "yyyymmdd") <= Format(Now, "yyyymmdd")
sLinkHtml = "http://www.lottomaticaitalia.it/10elotto/estrazioni-e-vincite/popup-pdf/estrazioni-giorno.html?data=" & Format(sNuovaData, "yyyymmdd") ' costruisce il link base
sFileLocal = App.Path & "\Temp\" & Format(sNuovaData, "yyyymmdd") & ".html" ' costruuisce il percorso per il file in locale
Call DownloadFromWeb(sLinkHtml, sFileLocal) ' scarica il file
ReDim aEstr(0) As STRUCT_ESTRAZIONE_10LOTTO
Call LeggiFileHtmlTornaEstrazioni(sFileLocal, aEstr, Year(sNuovaData)) ' richiamo la funzione "LeggiFileHtmlTornaEstrazioni"
Call SalvaEstrazioni(aEstr, sDataUltimaEstr, sNuovaData, NumEstr) ' richiamo la funzione "SalvaEstrazioni"
sNuovaData = DateAdd("d", 1, sNuovaData) ' aggiunge un giorno e ottiene una nuova data
[COLOR="#FF0000"][B] ValUsed = DateDiff("d", sNuovaData, Now)
ProgBarXP1.Value = PercentualeCorrente(ValUsed, ValTot)
ProgBarXP1.Value = ProgBarXP1.Value + 1
[/B][/COLOR]
If Format(sNuovaData, "yyyymmdd") > Format(Now, "yyyymmdd") Then
MsgBox "Aggiornamento completato", vbInformation, "Informazione"
End If
Loop
End Sub
