Un aiuto per cortesia archivio in txt grazie

[TONY@]

Una cortesia se possibile se non vi richiede molto tempo grazie
ho allegato 3 archivi in txt l'archivio 10 ruote e quello che mi serve che sia aggiornato mancano 15 anni,il problema e che è in formato
anno mese giorno e non riesco a convertire uno dei due archivi (Archivio lotto )oppure ( storico) in questo formato senza la nazionale non mi serve
2007AGO238731331743472873617446618972092510866838802082853449865682110809831676553963896150148436350864090582
basterebbe averne anche uno aggiornato simile a questo Anno Mese in lettere e giorno
oppure se si può fare con excel con una piccola macro,ho formula , io uso ancora la versione 2003 .
inizio archivio 08.07.1939
se qualcuno puo aiutarmi grazie mille
buona giornata

 

[mircolotto]

Sarebbe bello avere questi archivi così potremmo riutilizzare i nostri vecchi programmi

 

[mgrruggiu]

Ciao questi tre archivi di quali programmi sono?
storico e Archivio lotto sei sicuro che hanno le caratteristiche del file di testo come le hai inserite?
Giovanni

 

[Mike58]

Ciao Vi metto uno script che elaborato con spaziometria, scrive anche un file di testo con le estrazioni nel formato richiesto su 10 ruote.
Basta salvare il file di testo prodotto nella directory interessata.
Spero possa funzionare.

Ciao

Sub Main
   Dim sFile,sNumeri
   Ini = EstrazioneIni ' inizio
   fin = EstrazioneFin ' fine estrazione
   '---------------------------------------
   sFile = GetDirectoryTemp & "Test.txt"
   Call EliminaFile(sFile)
   '---------------------------------------
   ReDim aEstratti(0)
   For es = Ini To fin
      Scrivi Anno(es),0,0
      sNumeri = Anno(es)
      Scrivi Left(MeseNome(es),3) & Format2(giorno(es)),0,0
      sNumeri = sNumeri & Left(MeseNome(Mese(es)),3) & Format2(giorno(es))
      For r = 1 To 10
         'If r = 11 Then r = 12
         Call GetArrayNumeriRuota(es,r,aEstratti)
         Scrivi StringaNumeri(aEstratti,"",1),0,0
         sNumeri = sNumeri & StringaNumeri(aEstratti,"",1)
      Next
      Call ScriviFile(sFile,sNumeri,False,True)
      Scrivi ""
      sNumeri = ""
   Next
   Call CloseFileHandle(sFile)
   Call LanciaFile(sFile)
End Sub

 

[TONY@]

Vi ringrazio devo scaricare spaziometria c'è un link un ultima versione grazie mille ciao.
Ne ho una versione vecchia ma non funziona

 

[TONY@]

Mike 58 grazie mille appena scarico spaziometria lo provo gentilissimo

 

[lotto_tom75]

Vi ringrazio devo scaricare spaziometria c'è un link un ultima versione grazie mille ciao.
Ne ho una versione vecchia ma non funziona

PROGRAMMA SPAZIOMETRIA

AGGIORNAMENTO 1.6.54 (NUOVO) https://www.mediafire.com/file/d3vvz0958vgxtjx/SetupSpaziometria_1_6_54.rar/file solo exe ( sostituire manualmente l'eseguibile di spaziometria e le 2 dll necessarie) è piu veloce che rifare il setup le dll vanno in c:\windows\system32 oppure in...

forum.lottoced.com

 

[Mike58]

Ciao Antonio, se non dovessi riuscire ad installare spaziometria eccoti il file txt prodotto con inizio estrazioni da 3950.

 

[TONY@]

Gentilissimo davvero grazie mille

 

[TONY@]

ciao Mike mi da questo errore cosa devo fare x proseguire grazie ancora

 

[lotto_tom75]

Vedi l'allegato 2248426

ciao Mike mi da questo errore cosa devo fare x proseguire grazie ancora

Ciao basta che commenti mettendo un apice (') ad inizio riga e quindi disattivi la riga

Option Explicit

ad inizio script.

 

[TONY@]

Ciao basta che commenti mettendo un apice (') ad inizio riga e quindi disattivi la riga

Option Explicit

ad inizio script.

Perfetto scusami una banalità ma non sono pratico di script grazie ancora ciao