Aggiornamento archivi del 12/4 errato?

[joe]

Ciao Rosemary,

Mi sembra di intuire che Giomi sappia come fare e sa scrivere uno script aggiornatore partendo dai dati di Lottologia accessibile con Vista.

Cioè sta creando UNA SOLUZIONE.

Dunque per non aggiungere altro aspettiamo gli eventuali sviluppi.

Per il resto ...

Come giustamente ha scritto Claudio, dopo la prima volta, la procedura di archiviazione, ricorda il percorso.

Dunque il prossimo aggiornamento dovrebbe essere molto più semplice.

L'unica cosa da fare ... e se ... in fase di salvataggio ti viene proposto come nome: BaseDati(xyz).dat

Devi cancellare (xyz) con le annesse parentesi, lasciando il nome del file pulito "BaseDati.dat"

così come è richiesto che sia l'archivio di Spaziometria.

 

[Membro cancellato 19206]

حذف · إزالة · إلغاء · محو · حذفه · مسح · شطب · قم بحذف.

 

[joe]

ciao ,prendendo spunto dai listati postati , l'ho modificato per automattizare lo scarico ,
senza far nulla , e creando il backup del vecchio

Option Explicit
Sub Main
   Dim eDate,eClock : Call DateTimeTest(eDate) : Call ClockTimeTest(eClock)
   Dim sDir : sDir = GetDirectoryAppData
   Dim sFileBaseDati : sFileBaseDati = sDir & "BaseDati.dat"
   Dim sFileBaseDatiBackup : sFileBaseDatiBackup = sFileBaseDati & "_" & _
   eDate & "_" & eClock & ".backup"
   If FileEsistente(sFileBaseDati) Then
      Call CopiaFile(sFileBaseDati,sFileBaseDatiBackup)
   End If
   Dim sLink,NomeSito
   Select Case ScegliSito
   Case 00
      sLink = "https://www.silop.it/archivi/lottoItalia/BaseDati.dat" : NomeSito = "SILOP"
   Case 01
      sLink = "http://lottoscar.altervista.org/BaseDati.dat" : NomeSito = "LOTTOSCAR"
   End Select
   Call Messaggio("Download archivio Lotto : " & NomeSito)
   If DownloadFromWeb(sLink,sFileBaseDati) Then
      Call Scrivi("Il link [" & sLink & "] è stata salvato nel file : ",,True)
      Call Scrivi(sFileBaseDati)
   Else
      Call Scrivi("Il link [" & sLink & "] non è stata trovato ",,True,,vbRed)
      Call Scrivi()
   End If
   If MsgBox("Vuoi aprire il file e la directory ",vbQuestion + vbYesNo) = vbYes Then
      Call ApriDirectory(sDir)
   End If
End Sub
Function DateTimeTest(eDate)
   Dim dd,mm,yyyy : dd = Day(Now) : mm = Month(Now) : yyyy = Year(Now)
   eDate = Format2(dd) & "_" & Format2(mm) & "_" & yyyy
   eDate = FormattaStringa(eDate,"ddmmyyyy")
End Function
Function ClockTimeTest(eClock)
   Dim h,m,s : h = Hour(Now) : m = Minute(Now) : s = Second(Now)
   eClock = Format2(h) & "_" & Format2(m) & "_" & Format2(s)
   eClock = FormattaStringa(eClock,"hhmmss")
End Function
Function ScegliSito
   Dim aVoci : aVoci = Array("SILOP","LOTTOSCAR")
   Dim s : s = ScegliOpzioneMenu(aVoci,00,"Aggiornamento da televideo")
   ScegliSito = s
End Function

Ciao Giancarlo,

Ti ringrazio per lo script che hai realizzato.

Mi è utile per imparare.

Purtroppo con W-Vista non si collega al sito di Silop.

 

[Membro cancellato 19206]

حذف · إزالة · إلغاء · محو · حذفه · مسح · شطب · قم بحذف.

 

[joe]

Ciao gcarlo,​

il tuo script è lo strumento perfetto per dimostrare vero tutto quanto ho scritto.

CON WINDOWS VISTA, GLI SCRIPT NON POSSONO COLLEGARSI direttamente AL SITO DI SILOP (htpps).

Mentre è raggiungibile Il sito di Oscar (http) dove per prova qualche anno fa

era stata inserita una copia dell'archivio.

NON avendo aggiornato successivamente il file, è rimasto un archivio "vecchio".

Caricandolo, oggi, "SI CANCELLANO" tutte le estrazioni successive a quella data. (Vedi immagine 2).

 

[rosemary]

Ciao Rosemary,

Mi sembra di intuire che Giomi sa come fare e sa scrivere uno script aggiornatore,

partendo dai dati di Lottologia che sono attualmente accessibili con Vista.

Cioè sta creando UNA SOLUZIONE.

Dunque per non aggiungere confusione aspettiamo gli eventuali sviluppi.

Per il resto ...

Come giustamente ha scritto Claudio, dopo la prima volta, la procedura di archiviazione, ricorda il percorso.

Dunque il prossimo aggiornamento dovrebbe essere molto più semplice.

L'unica cosa da fare ... e se ... in fase di salvataggio ti viene proposto come nome: BaseDati(xyz).dat

Devi cancellare (xyz) con le annesse parentesi, lasciando il nome del file pulito "BaseDati.dat"

così come è richiesto che sia l'archivio di Spaziometria.

Ok, allora aspetto istruzioni

 

[pfca]

io ho Windows 7 ed uso Chrome, ci sta? Ad ogni modo grazie a tutti!

Ciao rosemary, con i dati del tuo pc il programmino che ho messo ti funziona, provalo.

 

[joe]

Ok, allora aspetto istruzioni

Al momento sto provando un mio script derivato dall' IMPORTANTE SUGGERIMENTO DI GIOMI.

Dopo tutte le modifiche necessarie a superare lo stress, che ho volutamente imposto al suo uso,

per ora ha AGGIORNATO bene con Vista.

Dunque aspetto, anch'io, eventuali altre soluzioni.

Ringrazio per la pazienza ed il supporto.

 

[giomi]

con questo
in abbinamento a questo ,

Agg_Arc_3 By Joe

e con le dovute modifiche
si puo gia arrivare allo scopo
come credo sei gia arrivato

 

[joe]

Ciao Giomi, si,

C'è un piccolo problema con il "3" che ti taglia via l'ultima estrazione e che spesso è la più utile.

Il formato necessario dei dati da aggiungere è composto di 3 parti.

* L' Indice annuale

* La data (da convertire al formato nostro famigliare (gg/mm/aaaa))

* Una matrice 11 righe x 5 colonne (Ruote / Estratti)

Poi naturalmente SOLO LE ESTRAZIONI NUOVE DEVONO ESSERE AGGIUNTE / accodate.

contemporaneamente, l'indice annuale deve essere allineato proseguendo quello pre-esistente.

Oltre azzerarsi ad inizio di ogni anno.

Più o meno così in queste regole ... c'è l'algoritmo ... con cui si può aggiornare.

 

[giomi]

prova con pericolo
presenza di errori
manca id e vede solo anno e
percio salva estrazioni doppie

4

ciao GIORGIO)!

 

[joe]

 

[joe]

Ciao giomi,

al messaggio #50 ho indicato le criticità presenti nel tuo script

e le soluzioni per correggerle e da adottare per avere uno script funzionante.

E' evidente, che a livello di controllo e assunzione di padronanza dei dati introdotti in archivio,

si è nel "molto di più" avanti che prendere "ciò che passa il convento".

Il tuo messaggio seguente ... sembra elencare, anch'esso prova e dimostrazione del necessario "da fare".

Per essere sincero sia con LuigiB che con Silop tutte queste problematiche erano già emerse e risolte.

Sia da Luigi prima che da me dopo e con il suo aiuto.

Ieri ho provato su un vecchio PC-XP ed è riuscito ad accedere ai dati dunque anche lo script dovrebbe funzionare con XP.

Come ho già scritto sto facendo prove.

I dati raccolti grazie a Lottologia sono effettivamente molto simili ai file di testo presenti sul sito di Gam e di Silop

dunque si tratta "solo" di adattare gli script che ho già pubblicato ai nuovi dati e ...

Non mi dispiacerebbe poter contare su qualcuno che possa anche fare prove prima di pubblicare lo script.

Capisco che ormai siamo in pochi a voler mantenere in vita sistemi e macchine che altri vorrebbero veder rottamare,

e contemporaneamente è necessario che si sappia come fare per ripristinare l'archivio in presenza degli eventuali errori,

in esso causati da uno script ... non ancora sufficientemente "preciso".

Dunque se ci sono volontari volenterosi possono cercare di prendere contatto qui direttamente

o per il tramite di Silop / Enplein / Gam ... PER AVERE UNA COPIA DELLO SCRIPT DA PROVARE.

Chiedo in cambio ... cortesemente ... un riscontro al funzionamento con il sistema operativo usato

e/o riferire degli eventuali problemi per cercare di correggerli.

Buon WeekEnd a tutte/i.

 

[rosemary]

Ciao rosemary, con i dati del tuo pc il programmino che ho messo ti funziona, provalo.

Ciao, ho provato ma nulla di fatto... mi è comparso il msg archivio aggiornato ma nei fatti era fermo a 2 estrazioni fa. non so... Vero è che sono parecchio imbranata. Ti ringrazio comunque per la tua disponibilità

 

[claudio8]

Ciao, ho provato ma nulla di fatto... mi è comparso il msg archivio aggiornato ma nei fatti era fermo a 2 estrazioni fa. non so... Vero è che sono parecchio imbranata. Ti ringrazio comunque per la tua disponibilità

Installa ANY DESK e lascia che qualcuno disponibile che conosca il tuo sistema operativo e il tuo browser gestisca il tuo Pc da remoto per capire in diretta dove sta il problema.
Il programma ti fa collegare previa tua autorizzazione, non c'è il rischio alcuno di intrusione, esterne, puoi disinstallarlo o lasciarlo sul pc. Mi è capitato di aiutare qualche amico senza dovergli spiegare tutta la procedura da fare x risolvere.
Mentre il tuo aiutante sta operando, sul tuo schermo avrai in diretta la visione di quanto sta facendo e vai tranquilla che non ti verranno rubati dati o altro dal PC.

diversamente non ne esci per ora.

 

[joe]

Ciao RoseMary, prova questo script.

Provato con XP / Vista / 8 / 10

Option Explicit
Sub Main
   Dim sDirTemp
   Dim sLink
   Dim nAnnoPart,nAnnoCorr,sNuovaData
   Dim k
   Dim id
   Dim sDataEstr,sCData,nSalvate,sFileBd
   Dim sV,r,e,x
   Dim b,nEstrTot,sDataLastEstr,iA,z
   nAnnoPart = Year(Now) - 1
   nAnnoCorr = Year(Now)
   sFileBd = GetDirectoryAppData & "BaseDati.dat"
   sDirTemp = GetDirectoryTemp & "lottologia.txt"
   Call EliminaFile(sDirTemp)
   For sNuovaData = nAnnoPart To nAnnoCorr
      If ScriptInterrotto Then Exit For
      Call Messaggio(sNuovaData)
      Call AvanzamentoElab(nAnnoPart,nAnnoCorr,sNuovaData)
      sLink = "https://www.lottologia.com/lotto/archivio-estrazioni/?as=TXT&year=" & sNuovaData
      If DownloadFromWeb(sLink,sDirTemp) Then
         nEstrTot = EstrazioniArchivio
         sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
         z = Right(sDataLastEstr,4)
         id = IndiceAnnuale(nEstrTot)
         ReDim aRighe(0)
         If LeggiRigheFileDiTesto(sDirTemp,aRighe) Then
            If EliminaFile(sDirTemp) Then
               If Trim(aRighe(k)) <> "" Then
                  For k = UBound(aRighe) - 3 To 2 Step - 1
                     aRighe(k) = Replace(aRighe(k),vbTab,"")
                     aRighe(k) = Replace(aRighe(k),"-","")
                     'Call Scrivi(id & " ",0,0)
                     sDataEstr = Mid(aRighe(k),7,2) & "/" & Mid(aRighe(k),5,2) & "/" & Left(aRighe(k),4)
                     If z <> Left(aRighe(k),4) Then id = 0 : z = Left(aRighe(k),4)
                     'Call Scrivi(sDataEstr)
                     sV = Right(aRighe(k),110)
                     'Call Scrivi (sV)
                     ReDim aEstr(11,5)
                     r = 1 : e = 0
                     For x = 1 To 110 Step 2
                        e = e + 1
                        'Scrivi Mid(sVV,x,2) & " ",0,0
                        aEstr(r,e) = Mid(sV,x,2)
                        If e = 5 Then r = r + 1 : e = 0
                     Next
                     'ScriviMatrice(aEstr)
                     If b = True Then
                        If sCData <> sDataEstr Then
                           id = id + 1
                           If SalvaEstrazione(aEstr,sDataEstr,id,sFileBd) Then
                              sCData = sDataEstr
                              nSalvate = nSalvate + 1
                              Call Messaggio(nSalvate)
                           End If
                        Else
                           ColoreTesto 2
                           Scrivi "ATTENZIONE " & sDataEstr & " ESTRAZIONE DUPLICATA",True
                           ColoreTesto 0
                        End If
                     End If
                     If sDataEstr = sDataLastEstr Then b = True
                     '
                  Next
               End If
            End If
         End If
      End If
      If ScriptInterrotto Then Exit For
   Next
   If nSalvate > 0 Then
   AllineaArchivi
   Call Scrivi()
   Call Scrivi("Script per Spaziometria V.4.0 di LuigiB & Giomi Rev. By Joe",True,,,vbBlue)
   Call Scrivi()
   Call Scrivi("Sono state aggiunte " & nSalvate & " estrazioni")
   Call Scrivi("")
   Call Scrivi("Estrazioni totali " & EstrazioniArchivio)
   Call Scrivi()
   Call Scrivi("Utilizzato Archivio del sito www.lottologia.com")
   Call Scrivi()
   Else
   Call Scrivi("NON HO TROVATO NUOVE ESTRAZIONI !",1,,,2)
   End If
End Sub

 

[rosemary]

Installa ANY DESK e lascia che qualcuno disponibile che conosca il tuo sistema operativo e il tuo browser gestisca il tuo Pc da remoto per capire in diretta dove sta il problema.
Il programma ti fa collegare previa tua autorizzazione, non c'è il rischio alcuno di intrusione, esterne, puoi disinstallarlo o lasciarlo sul pc. Mi è capitato di aiutare qualche amico senza dovergli spiegare tutta la procedura da fare x risolvere.
Mentre il tuo aiutante sta operando, sul tuo schermo avrai in diretta la visione di quanto sta facendo e vai tranquilla che non ti verranno rubati dati o altro dal PC.

diversamente non ne esci per ora.

Sì, so come funziona any desk, lo usiamo anche a lavoro con i tecnici informatici a volte. È che io non conosco nessuno che possa fare questo per me. Sto continuando con il metodo che mi aveva suggerito Joe, mi pare. L'unica noia è che ogni volta devo scaricare il file e rinominarlo (non so se si possa fare altrimenti ) ma se per ora non c'è altra soluzione...

 

[rosemary]

Ciao RoseMary, prova questo script.

Provato con XP / Vista / 8 / 10

Option Explicit
Sub Main
   Dim sDirTemp
   Dim sLink
   Dim nAnnoPart,nAnnoCorr,sNuovaData
   Dim k
   Dim id
   Dim sDataEstr,sCData,nSalvate,sFileBd
   Dim sV,r,e,x
   Dim b,nEstrTot,sDataLastEstr,iA,z
   nAnnoPart = Year(Now) - 1
   nAnnoCorr = Year(Now)
   sFileBd = GetDirectoryAppData & "BaseDati.dat"
   sDirTemp = GetDirectoryTemp & "lottologia.txt"
   Call EliminaFile(sDirTemp)
   For sNuovaData = nAnnoPart To nAnnoCorr
      If ScriptInterrotto Then Exit For
      Call Messaggio(sNuovaData)
      Call AvanzamentoElab(nAnnoPart,nAnnoCorr,sNuovaData)
      sLink = "https://www.lottologia.com/lotto/archivio-estrazioni/?as=TXT&year=" & sNuovaData
      If DownloadFromWeb(sLink,sDirTemp) Then
         nEstrTot = EstrazioniArchivio
         sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
         z = Right(sDataLastEstr,4)
         id = IndiceAnnuale(nEstrTot)
         ReDim aRighe(0)
         If LeggiRigheFileDiTesto(sDirTemp,aRighe) Then
            If EliminaFile(sDirTemp) Then
               If Trim(aRighe(k)) <> "" Then
                  For k = UBound(aRighe) - 3 To 2 Step - 1
                     aRighe(k) = Replace(aRighe(k),vbTab,"")
                     aRighe(k) = Replace(aRighe(k),"-","")
                     'Call Scrivi(id & " ",0,0)
                     sDataEstr = Mid(aRighe(k),7,2) & "/" & Mid(aRighe(k),5,2) & "/" & Left(aRighe(k),4)
                     If z <> Left(aRighe(k),4) Then id = 0 : z = Left(aRighe(k),4)
                     'Call Scrivi(sDataEstr)
                     sV = Right(aRighe(k),110)
                     'Call Scrivi (sV)
                     ReDim aEstr(11,5)
                     r = 1 : e = 0
                     For x = 1 To 110 Step 2
                        e = e + 1
                        'Scrivi Mid(sVV,x,2) & " ",0,0
                        aEstr(r,e) = Mid(sV,x,2)
                        If e = 5 Then r = r + 1 : e = 0
                     Next
                     'ScriviMatrice(aEstr)
                     If b = True Then
                        If sCData <> sDataEstr Then
                           id = id + 1
                           If SalvaEstrazione(aEstr,sDataEstr,id,sFileBd) Then
                              sCData = sDataEstr
                              nSalvate = nSalvate + 1
                              Call Messaggio(nSalvate)
                           End If
                        Else
                           ColoreTesto 2
                           Scrivi "ATTENZIONE " & sDataEstr & " ESTRAZIONE DUPLICATA",True
                           ColoreTesto 0
                        End If
                     End If
                     If sDataEstr = sDataLastEstr Then b = True
                     '
                  Next
               End If
            End If
         End If
      End If
      If ScriptInterrotto Then Exit For
   Next
   If nSalvate > 0 Then
   AllineaArchivi
   Call Scrivi()
   Call Scrivi("Script per Spaziometria V.4.0 di LuigiB & Giomi Rev. By Joe",True,,,vbBlue)
   Call Scrivi()
   Call Scrivi("Sono state aggiunte " & nSalvate & " estrazioni")
   Call Scrivi("")
   Call Scrivi("Estrazioni totali " & EstrazioniArchivio)
   Call Scrivi()
   Call Scrivi("Utilizzato Archivio del sito www.lottologia.com")
   Call Scrivi()
   Else
   Call Scrivi("NON HO TROVATO NUOVE ESTRAZIONI !",1,,,2)
   End If
End Sub

Grazie, magari domani provo, ora sono da cell

 

[giomi]

salve
joe non ho capito con il tuo post #56
comunque il tuo listato e molto simile al mio , con qualche piccola differenza

 

[joe]

salve
joe non ho capito con il tuo post #56
comunque il tuo listato e molto simile al mio , con qualche piccola differenza

E' uno script nuovo.

Modifica l'archivio.

Fino a qualche giorno fa ,qui, non si sarebbe potuto cambiarlo, correggerlo, toglierlo

Dunque non provato da altri utenti ... prima di pubblicarlo ...

... prudentemente, avrei preferito raccogliere qualche riscontro positivo.