Novità

Per Joe modofica script agg.l8.6.1.34

chicco3

Advanced Member
Buongiorno Joe e Buona Domenica le allego il suo script fatto da lei e modificato in parte da me x aggiornare le estrazioni di l8.
Se è possibile e quando ha tempo di inserirmi nell'ultimo numero la virgola che non riesco a farlo io sono negato per gli script e poi il resto è tutto ok.Spero di fare cosa gradita x chi ha l8.Grazie e Buona Domenica
Codice:
Option Explicit
Sub Main
 'Archivio_X_L8.txt
 'Script By Joe
 Dim Ini,Fin,Es
 Dim R,P
 Dim sFile
 Dim sEstrazione
 sFile =("E:\Archivio_X_L8.txt") 'Specifica percorso di archiviazione
 Call EliminaFile(sFile) ' Elimina vecchie copie dell' archivio
 Ini = 9552 : Fin = EstrazioneFin 'Verificato fino al 30 Settembre 2017
 For Es = Ini To Fin
  AvanzamentoElab Ini,Fin,Es
  sEstrazione = DataEstrazione(Es,,,",")
  For R = 1 To 12
   If R = 11 Then R = 12
   For P = 1 To 5
    sEstrazione = sEstrazione & "," & Format2(Estratto(Es,R,P))
   Next
  Next
  'Call Scrivi(sEstrazione) ' scrivo a video l' Estrazione
  Call ScriviFile(sFile,sEstrazione) ' scrivo anche sul file preposto
 Next
 Call CloseFileHandle(sFile) ' chiudo l'handle al file
 Call LanciaFile(sFile) ' Verifica il file, con il NotePad
End Sub

Immagine.jpg
 

joe

Advanced Member >PLATINUM PLUS<
Ciao Chicco,

quello script non serve per aggiornare ma per creare o sostituire l'archivio.

A questo link https://forum.lottoced.com/forum/lottoced/area-download/2081412-archivio-lotto-diy-utility/page8

attorno al messaggio #110 trovi lo script adatto e le istruzioni per utilizzarlo

Naturalmente, nel tuo caso devi sostituire il drive ove si trova la chiavetta

cioè la "E" ... eppoi prima della prima esecuzione avere a mente il numero di estrazioni

in archivio del vecchio programma così da poterlo inserire nella inputbox.

:) Buona Domenica
 

chicco3

Advanced Member
Ciao Joe lo script viene infatti dal post da te menzionato, io lo modificato perche x aggiornare il file itz vuole le virgole trà i numeri e questo lo fatto e va bene; manca solo la virgola all'ultimo numero che io non riesco a farlo, se no la devo aggiungere a mano ogni volta che aggiorno e mi da errore nell'importazione.Grazie e buona serata
 

joe

Advanced Member >PLATINUM PLUS<
Ciao Chicco.

Dopo aver aggiunto la virgola,

come fai ad aggiungere l estrazione?

​​​​​​​:)
 

chicco3

Advanced Member
Ciao Joe tu fa in modo che l'ultimo numero come a video ci sia la virgola.Aggiungi la virgola poi te lo dico se va bene grazie ciao
 

rabberto

Advanced Member
Ciao chicco3 anche io avevo il tuo stesso problema , se vai nella discussione che ti a indicato Joe devi andare al messaggio 114 , devi usare quello script e devi copiare l'estrazione , cliccare su Archivio in alto a sinistra poi su Inserimento Estrazioni poi su Incolla dagli Appunti dopo aver copiato l'estrazione dallo script di Joe , e vedi che funziona perfettamente alla fine vedi che viene riconosciuta come valida devi cliccare su inserisci, ciao.
 
Ultima modifica:

chicco3

Advanced Member
Ciao Rabberto ti ringrazio io non ho problemi ad aggiornare l8 non so se tu hai scaricato lo script nel post nr.1 lo modificato e se leggi bene si aggiornano anche le estrazioni indietro e avanti, adesso se qualcuno faccia quello che ho ciesto e bene e se no una volta estrapolato il file txt la virgola all'ultimo numero la metto a mano e il gioco è fatto ti ringrazio e ringrazio gli intervenuti ciao
 

joe

Advanced Member >PLATINUM PLUS<
RIPETO E POI NON INSISTO OLTRE:

Ci sono 2 script:

* UNO per sostituire l'archivio.

* UNO per aggiornare l'archivio.

Se si tratta di aggiornare è più comodo il secondo script.

e NON SI DEVE USARE IL PRIMO SCRIPT.

Cioè BISOGNA ed è MOLTO PIU' SEMPLICE usare il secondo script.

Se invece ci sono centinaia di estrazioni mancanti o l' archivio è corrotto

occorre rinunciare ad aggiornarlo, sostituendolo, usando il primo script.

Ci si potrebbe anche armare di sacrosanta pazienza ed inserire

una ad una le centinaia di estrazioni mancanti.

Diversamente/probabilmente si sta modificando (e/o rovinando) l'archivio esistente.

VA EVIDENZIATO CHE l'archivio in oggetto NON HA BISOGNO di virgole.

Mi risulta inoltre che, il file *.itz, non possa essere aggiornato nel modo

descritto da chicco.

Ma se mi si dimostra il contrario,

sarò ben felice di apprendere questa buona notizia.

:) Buona serata a tutte/i.
 

chicco3

Advanced Member
Ciao Magia grazie sei proprio magico dire che è perfetto è poco cosi abbiamo anche una copia dell'archivio ed è molto veloce ad aggiornarlo, spero che chi ha l8 e lo vuole aggiornare abbiamo fatto una cosa gradita grazie anche Joe che lo ha messo a disposizione Ciao a tutti
 

joe

Advanced Member >PLATINUM PLUS<
Si ma ...

... non hai spiegato come si fa ad aggiornare l'archivio con quei dati.

:)
 

rabberto

Advanced Member
joe;n2140509 ha scritto:
Si ma ...

... non hai spiegato come si fa ad aggiornare l'archivio con quei dati.

:)

Ciao Joe devi andare su Archivio poi su Scambia Estrazioni poi su Importa Estrazioni e cliccare sul file txt creato dallo script appena provato senbra che va le estrazioni le a aggiornato , solo devi cambiare nel listato i numeri e mettere qualche estrazione precedende in base a come e aggiornato il tuo archivio , ciao.
 

chicco3

Advanced Member
Ciao Rabberto confermo mi hai anticipato devi solo mettere l'ultima oppure tieni 2 o 3 estrazioni indietro tutto qui. Poi se qualcuno è rimasto indietro e lo vuole aggiornare adesso lo può fare Ciao saluto rabberto, Magia e il grande Joe ciao a tutti
 

joe

Advanced Member >PLATINUM PLUS<
Ok ... sembra funzionare benone.

Grazie voi ed al vostro aiuto.

Se non emergono imprevisti, proporrei qui di seguito, una versione aggiornata dello script,

commentato e completo delle istruzioni per il suo utilizzo.

(Propongo anche di cancellare ... tutti messaggi e commenti intermedi ...

che divenuti inutili, creano confusione).

:)

Codice:
Option Explicit
Sub Main
   'Aggiornamento_Archivio_L8.txt V3 del 21/11/2018
   'Script By Joe / Chicco3 / Magia / Rabberto / Kubes
   Dim Ini,Fin,Es
   Dim R,P
   Dim sFile
   Dim sEstrazione
   ''' 'I: = 'Indirizzo' del supporto su cui sono scritte le estrazioni-aggiornate.
   sFile =("I:\Aggiornamento_Archivio_L8.txt") 'Specifica percorso di archiviazione
   Call EliminaFile(sFile) ' Elimina vecchie copie dell' archivio
   Ini = EstrazioneFin - 14 : Fin = EstrazioneFin 'controlla/aggiorna le ultime 15 estrazioni
   For Es = Ini To Fin
      AvanzamentoElab Ini,Fin,Es
      sEstrazione = DataEstrazione(Es,,,",")
      For R = 1 To 12
         If R = 11 Then R = 12
         For P = 1 To 5
            sEstrazione = sEstrazione & "," & Format2(Estratto(Es,R,P))
         Next
      Next
      sEstrazione = sEstrazione & ","
      Call ScriviFile(sFile,sEstrazione) ' scrivo anche sul file preposto
   Next
   Call CloseFileHandle(sFile) ' chiudo l'handle al file
   Scrivi "In L8 selezionare :"
   Scrivi
   Scrivi "* Archivio"
   Scrivi
   Scrivi "* Scambia Estrazioni"
   Scrivi
   Scrivi "* Importa Estrazioni ..."
   Scrivi
   Scrivi " ... navigare sino all'indirizzo del file 'Aggiornamento_Archivio_L8.txt' "
   Scrivi
   Scrivi "* Premere 'Apri'"
   Scrivi
   Scrivi "* Confermare con 'Ok' i messaggi del programma"
   'Call LanciaFile(sFile) ' Verifica del file, con il NotePad
End Sub
 

chicco3

Advanced Member
Ciao Joe è perfetto cosi e ringrazio del tuo intervento.Una cosa come devo fare per far scrivere l'archivio in c:\ che lo inserita ma non lo scrive Grazie e Buona serata
 

joe

Advanced Member >PLATINUM PLUS<
Ciao

in linea di massima non è cosa buona scrivere in c:

Specie se c: è coperto da protezione.

Dovresti provare e dovrebbe essere possibile

Nella directory e percorso di spaziometria.

​​​​:)
 

joe

Advanced Member >PLATINUM PLUS<
sFile = (GetDirectoryAppData&"\Aggiornamento_Archivio_L8.txt") 'Specifica percorso di archiviazione
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto