Aiuto scripter per archivio

[MILONICO]

Ciao avrei bisogno di un listato che mi possa restituire archivio tx come in allegato Senza Nazionale grazie.

 

[claudio8]

Ini =10550 da sostituire con valore iniziale archivio a piacimento
Salvare l'outpt con i suoi comandi oppure selezionare le righe di interesse ed incollare in file .txt

Option Explicit
Sub Main
     Dim Es,R,P,Ini
     Ini =10550
     For Es = Ini To EstrazioneFin
          Scrivi DataEstrazione(Es,,,"/")& "|",,False
          For R = 1 To 10
               For P = 1 To 5
                    Scrivi Format2(Estratto(Es,R,P)),0,False
               Next
               Scrivi "|",,False
          Next
          Scrivi
     Next
End Sub

saluti

PS: da un file di Mirapep adattato

 

[MILONICO]

Claudio8 perfetto ti ringrazio di cuore .