Per Joe modofica script agg.l8.6.1.34

[chicco3]

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

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

 

[joe]

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

 

[kubes]

ciao chicco3 scarica allegato ,e sostiuiscilo è aggiornato al 17/11/2018, io lo aggiorno manualmente ad ogni estrazione
https://1drv.ms/u/s!AogVKwSJBHgvgltF6HIInIJpvzV-

 

[chicco3]

Ciao Kubes grazie gentilissimo grazie e buona Domenica

 

[chicco3]

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]

Ciao Chicco.

Dopo aver aggiunto la virgola,

come fai ad aggiungere l estrazione?

​​​​​​​

 

[chicco3]

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]

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.

 

[chicco3]

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]

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]

Grazie Joe buona serata.

 

[chicco3]

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]

Si ma ...

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

 

[rabberto]

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]

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]

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).

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]

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]

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.

​​​​

 

[chicco3]

Grazie Joe ci provo se no è uguale va bene anche sulla chiavetta ciao Buona notte e grazie

 

[joe]

sFile = (GetDirectoryAppData&"\Aggiornamento_Archivio_L8.txt") 'Specifica percorso di archiviazione