Per Joe91

[stefania1972]

Ciao Joe91 ho visto che hai messo uno script per il sig.LuiiB che ti calcola l'archivio L1 , a me servirebbe lo stesso scrpt fatto allo stesso modo che calcoli l'archivo reale del lotto perche' L1 non so cos'e' ed e pure differente dall'archivio reale lotto , per favore me lo potresti fare pero' identico con la data e i numeri possibilmente partendo da bari fino alla nazionale in modo che io me lo salvo su un file txt per un mio lavoro , spero si possa fare , ti ringrazio anticipatamente , ciao.

 

[Joe91]

Ciao Stefania, si è facile da fare.

Domani spero di poter organizzare lo script che ti serve.

buona serata

 

[stefania1972]

Ciao Joe91 fai con calma non ho fretta anche la settimana prossima per me va bene ti rinrazio anticipatamente , ciao.

 

[Joe91]

Ciao Stefania, Buongiorno a tutte/i.

Ho scritto quanto mi hai chiesto e espero che tu riesca ad utilizzarlo.

Come vedi è uno script molto-molto semplice, tuttavia penso sia utile sottolineare che, Spaziometria,

ha una già una sua "parte" dedicata a questo scopo , il pulsantino con la "X" di excel

(nella seconda linea ... il quarto) ti permette di esportare gli archivi in xls e da questo in poi, salvarlo come testo.

Fammi sapere.

'Per Stefania, Esporta archivio By Joe 
Sub Main()
Scrivi "Achivio Ordinario",1
 For Es = 1 To EstrazioneFin : Messaggio es
  DE = DataEstrazione(Es) : DT = Replace(DE,".","/")
  Scrivi DT & " ",0,0
  For R = 1 To 12
   If R <> 11 Then
    For P = 1 To 5
     Scrivi Format2(CInt(Estratto(Es,R,P))) & " ",0,0
    Next
   End If
  Next
  Scrivi
 Next
End Sub

 

[stefania1972]

Ciao Joe91 grazie lo script e perfetto sei stato gentilissimo , solo volevo chiederti una cortesi e' possibile fare in modo che tra gli estratti non ci sia lo spazio ma siano tutti attaccati , ti faccio un esempio il tuo script mi da : 28/03/2013 03 31 24 35 86 69 , invece a me servirebbe che mi dia 28/03/2013033124358669 , spero si possa fare , in attesa di una tua risposta auguro a te e tutto il forum una buona e santa pasqua , ciao .

 

[Joe91]

Ciao Stefania, si certo.

'Per Stefania, Esporta archivio By Joe 
Sub Main()
Scrivi "Achivio Ordinario",1
 For Es = 1 To EstrazioneFin : Messaggio es
  DE = DataEstrazione(Es) : DT = Replace(DE,".","/")
  Scrivi DT,0,0
  For R = 1 To 12
   If R <> 11 Then
    For P = 1 To 5
     Scrivi Format2(CInt(Estratto(Es,R,P))) ,0,0
    Next
   End If
  Next
  Scrivi
 Next
End Sub

 

[stefania1972]

Ciao Joe91 e' perfetto di nuovo grazie sei stato veloce e gentilissimo , di nuovo tanti auguri , ciao .

 

[Joe91]

Auguri