x LuigiB errori Archivio Lottomatica

[Roby]

Ciao LuigiB,
stavo elaborando dei dati dall'archivio della Lottomatica,
ci sono diversi errori ed estrazioni mancanti
Vedi estrazione 25/04/1964
oppure 28/12/1969, mancano.
Per ovviare a questi errori della Lottomatica,se era possibile modificare l'aggiornamento da web,prendendo come riferimento un archivio storico (fac-simile alla lottomatica)
corretto, da un file personale, ed aggiornare da web solo
le ultime estrazioni.

"Credere fermamente in ciò che si fà."

 

[LuigiB]

Ciao Statix , non me ne sono mai accorto ..comunque ti basta cancellare tutto l'archivio incollare la parte di archivio esatta e poi lanciare l'aggiornamento , infatti la funzione di aggiornamento va a scrivere dopo l'ultima estrazione disponibile e non ricopre le precedenti.
Ovviamente la parte di archivio esatta la devi inserire nel foglio rispettando il tipo di esposizione dei dati che avevo fatto io specie sul campo data e quello id .. senno il programma non riconosce che c'è un archivio precedente.

 

[imported_n/a]

quote:Originally posted by LuigiB

Ciao Statix , non me ne sono mai accorto ..comunque ti basta cancellare tutto l'archivio incollare la parte di archivio esatta e poi lanciare l'aggiornamento , infatti la funzione di aggiornamento va a scrivere dopo l'ultima estrazione disponibile e non ricopre le precedenti.
Ovviamente la parte di archivio esatta la devi inserire nel foglio rispettando il tipo di esposizione dei dati che avevo fatto io specie sul campo data e quello id .. senno il programma non riconosce che c'è un archivio precedente.

EEEE Luigi con sincerità sono andato a vedere evidenzalotto mancano anche li !!! Anche nella spaziometria [:0][:0]
Azzz mo' come si fa ????
Mi sa che questa sera mi controllo estrazione dopo estrazione che barba !!!!

 

[LuigiB]

eh se la lottomatica mette in rete degli archivi sbagliati ...

 

[imported_n/a]

Ciao LuigiB
quando eseguo la macro di aggiornamento,
l'archivio viene riscritto totalmente con l'aggiunta della nuova.
quindi ,modificare l'archivio con quello corretto non serve.
neanche se modifico il file txt.
"Credere fermamente in ciò che si fà."

 

[LuigiB]

Ciao Statix , hai ragione ti avevo risposto in quel modo perche la procedura in effettti doveva fare cosi ma invece ci sono dei piccoliproblemini.
Sostituisci integralmente queste Funzioni

Sub GetEstrazione(idEstr As Long, strctE As STRUCT_ESTRAZIONE)

    ' legge una singola riga dal foglio estrazioni e lo salva nella struttura
    
    Dim Ruota As Long
    Dim Pos As Long
    Dim sValue As String
    Dim idCol As Long
    Dim idRiga As Long
    
    idRiga = idEstr + QRigheIntestazioneSheetEstrazioni
    
    strctE.idEstr = idEstr 'IdRiga - QRigheIntestazioneSheetEstrazioni
    
    sValue = Foglio2.Range("C" & idRiga) ' la data.
    sValue = Trim$(Mid$(sValue, InStr(sValue, "-") + 1))
    ReDim av(0) As String
    av() = Split(sValue, "/")
    strctE.strctData.AA = av(2)
    strctE.strctData.Mm = av(1)
    strctE.strctData.GG = av(0)
    
    idCol = 3
    For Ruota = 1 To 11
        For Pos = 1 To 5
            idCol = idCol + 1
            strctE.aRuote(Ruota).aNum(Pos) = Val(Foglio2.Cells(idRiga, idCol))
        Next
    Next
    
    
End Sub

Sub AggiornaSheetEstrazioni(aEstr() As STRUCT_ESTRAZIONE)

    
    Dim PrimaEstrUtile As Long
    Dim strctE As STRUCT_ESTRAZIONE
    Dim k As Long, r As Long, e As Long
    Dim idRiga As Long, idCol As Long
    Dim nUltimaEstr As Long
    
    nUltimaEstr = GetNumeroEstrazioni
    If nUltimaEstr > 0 Then
        
        Call GetEstrazione(GetNumeroEstrazioni, strctE)
        
        
        For k = UBound(aEstr) To 1 Step -1
            If TranslateDataEstToHuman(aEstr(k).strctData) = TranslateDataEstToHuman(strctE.strctData) Then
                PrimaEstrUtile = k + 1
                Exit For
            End If
        
        
        Next
    
   Else
        PrimaEstrUtile = 0
   End If
   
    For k = PrimaEstrUtile To UBound(aEstr)
        idRiga = k + QRigheIntestazioneSheetEstrazioni + 1
        idCol = 1
        Foglio2.Cells(idRiga, idCol) = aEstr(k).idEstr
        idCol = 3
        Foglio2.Cells(idRiga, idCol) = TranslateDataEstToHuman(aEstr(k).strctData)
        For r = 1 To 11
            For e = 1 To 5
                idCol = idCol + 1
                Foglio2.Cells(idRiga, idCol) = aEstr(k).aRuote(r).aNum(e)
            Next
        Next
        
    Next
    
    

End Sub

Function GetNumeroEstrazioni() As Long

    
    Dim n As Long
    Dim idRiga As Long
    
    idRiga = QRigheIntestazioneSheetEstrazioni + 1
    Do While Foglio2.Cells(idRiga, 1) <> ""
        idRiga = idRiga + 1
    
    Loop
    
    GetNumeroEstrazioni = idRiga - QRigheIntestazioneSheetEstrazioni - 1
End Function

 

[imported_n/a]

Ciao LuigiB,
modificato,tutto ok.
se ci sono problemi ti faccio sapere,
grazie

"Credere fermamente in ciò che si fà."

 

[imported_n/a]

quote:Originally posted by LuigiB

eh se la lottomatica mette in rete degli archivi sbagliati ...

Luigi allora con la spaziometria che facciamo correggo le estrazioni che mancano o provvedi tu con la ver nuova ???
stessa cosa per quanto riguarda Evidenza fammi sapere.

Ti aspetto per il cannolo

 

[LuigiB]

bhe adesso vediamo che si puo fare comunque non ritengo che la mancanza di qualche estrazione su 4600 sia cosa grave ...allora dovremmo preoccuparci molto di piu per quelle estrazioni truccate di qualche anno fa , vi ricordate le palline surriscaldate ?
Poi ho anche un dubbio , come mai la lottomatica non ha inserito quelle estrazioni ? Noi stiamo dando per scontato che sia un loro errore forse è cosi, ma la lottomatica è l'ente ufficiale di riferimento e i dati che pubblica sono quelli ufficiali.
Ricordatevi sempre una cosa , è grazie alla matematica che potete stare davanti a un pc a parlare di lotto , e se la matematica dice che le estrazioni del lotto sono indipendenti l'una dall'altra e definisce altresi il significato della parola indipendenti nessuno puo mettere in dubbio che ciò non sia vero la matematica è una delle poche cose non confutabili.
In sintesi vedro che si puo fare ma pure dovessore rimanere degli errori non vi preoccupate non cambia nulla
Un saluto

 

[imported_n/a]

Be ... il tuo discorso non fa una grinza, dopo tutto noi siamo qua per verificare eventuali errori
Ciao Luigi