Archivio,chiedo aiuto agli esperti!

[Missione Impossibile.]

Ciao ho un programmino del lotto un po vecchiotto,ma funzionante.
Ma l'archivio e' impostato cosi,dal 1970 al 2009,e non riesco a trovare da nessuna parte impostato cosi'.

 

[Missione Impossibile.]

Ciao ho un programmino del lotto un po vecchiotto,ma funzionante.
Ma l'archivio e' impostato cosi,dal 1970 al 2009,e non riesco a trovare da nessuna parte impostato cosi'.
Vedi l'allegato 2210751

Il formato e' in (txt)

 

[vagabondo58]

Ciao batter

E' facilissimo ricostruirlo basta incollare l'estrazioni mancanti al file di testo.


vittorio

 

[Oscar]

Prova se ti va bene questo , comunque c'è l'ho anche in versione Excel

Option Explicit
Sub Main
Dim Ini,Fin,Es
Dim R,P
Dim sFile
Dim sEstrazione
sFile =("C:\Temp\Archivio.txt") 'Indirizzo e nome archivio da Modificare
Call EliminaFile(sFile)
Ini = 1 : Fin = EstrazioneFin
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 ScriviFile(sFile,sEstrazione)
Next
Call CloseFileHandle(sFile)
End Sub

 

[Missione Impossibile.]

Grazie a vagabondo e Oscar ci provo.

 

[Missione Impossibile.]

Ok grazie Oscar e Vagabondo58 ci sono riuscito!!!