rabberto
Advanced Member
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
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