Per Joe

[rabberto]

Ciao Joe tu avevi fatto uno script per aggiornare le estrazioni su L8 , io lancio lo script mi crea un file di testo pero quando vado ad inserirlo su L8 mi da formato non valido , potresti controllare per favore , ti allego il tuo script , grazie , ciao.

Option Explicit
Sub Main
'Archivio_X_L8.txt
'Script By Joe
Dim Ini,Fin,Es
Dim R,P
Dim sFile
Dim sEstrazione
sFile =("C:\Archivio_X_L8.txt") 'Specifica percorso di archiviazione
Call EliminaFile(sFile) ' Elimina vecchie copie dell' archivio
Ini = 08000 : Fin = 9544 'CAMBIARE IL NEMERO DELL'ESTRAZIONE
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 purtroppo non riesco a capire esattamente

"lo scopo" alla base della tua domanda.

Direi che se devi aggiornare di oltre 1500 estrazioni (da 8000 a 9544)

non ti convenga usare quello script.

Perché probabilmente nei 1500 copia-incolla

necessari a trasferire le estrazioni, una ad una, si commetterebbero errori.

Meglio creare tutto l'archivio come avevo proposto.

Se invece mancano solo alcune estrazioni

ed il resto dell'archivio è in "buono stato"

meglio aggiornare utilizzando uno script differente da quello.

Che ... se avesse funzionato come malamente modificato,

avrebbe cancellato 8000 estrazioni dall'archivio del programma.

Ti consiglio di dare uno sguardo a:

https://forum.lottoced.com/forum/lot...-utility/page7

dove ci sono le due utility che avevo creato

una per l'aggiornamento l'altra per la sostituzione dell'archivio.

In attesa delle tue indicazioni ...

... un cordiale saluto.

 

[rabberto]

Ciao Joe scusa il ritardo sbagliavo io a fare l'importazione , poi rileggendo il tuo post o rifatto tutto e va benissimo , Grazie ancora per quello che fai , ciao.