Private Sub SalvaEstrazioni(aEstr() As STRUCT_ESTRAZIONE_10LOTTO, sDataUltimaEstrArchivio As String, sDataCorrente As String, NumEstr As Long, nTotInsert As Long)
Dim k As Long
Dim n As Long
Dim i As Long
Dim sFile As String
Dim sData As String
Dim nNumEst As Integer
sFile = GetDirectoryAppData & "BaseDati10Elotto5M.Dat" ' Setto il path del percorso dove andare a scrivere le estrazioni
ReDim aNumeri(0) ' Ridimensiono l'array aNumeri a 0 elementi
If sDataUltimaEstrArchivio = sDataCorrente Then ' Se l'ultima data rilevata in archivio è uguale alla data odierna
For k = 1 To UBound(aEstr) ' Cicla l'array aEstr da 1 a quante estrazioni legge nella pagina html
If aEstr(k).strctData.nNumEstrazione > NumEstr Then ' Se il numero estrazione della pagina html scaricata è maggiore dell'ultimo in archivio
Call LeggiNumeriEstrazioni(aEstr(k), aNumeri) ' Richiamo la funzione LeggiNumeriEstrazioni
LblNumEstr.Caption = k ' Valorizzo la label Numero Estrazione che scorre man mano che vengono viste estrazioni
LblOraEstr.Caption = GetOraEstrazione(k) ' Mostro l'ora dell'estrazione tramite la function GetoraEstrazione
nTotInsert = nTotInsert + 1
LblTotEstrAggiunte.Caption = Format(nTotInsert, "###,###")
DoEvents
Call SalvaEstrazioneDL(aNumeri, sDataCorrente, aEstr(k).strctData.nNumEstrazione, sFile) ' Richiamo la procedura che salva le estrazioni
End If
Next
Else
For k = 1 To UBound(aEstr) ' Cicla l'array aEstr da 1 a quante estrazioni legge nella pagina html
Call LeggiNumeriEstrazioni(aEstr(k), aNumeri) ' Richiamo la funzione LeggiNumeriEstrazioni
LblNumEstr.Caption = k ' Valorizzo la label Numero Estrazione che scorre man mano che vengono viste estrazioni
LblOraEstr.Caption = GetOraEstrazione(k) ' Mostro l'ora dell'estrazione tramite la function GetoraEstrazione
nTotInsert = nTotInsert + 1
LblTotEstrAggiunte.Caption = Format(nTotInsert, "###,###")
DoEvents
Call SalvaEstrazioneDL(aNumeri, sDataCorrente, aEstr(k).strctData.nNumEstrazione, sFile) ' Richiamo la procedura che salva le estrazioni
Next
End If
End Sub
