Novità

Per Joe91

stefania1972

Senior Member
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.
 
Ciao Stefania, si è facile da fare.

Domani spero di poter organizzare lo script che ti serve.

:) buona serata
 
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.

Codice:
'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
 
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 .

 
Ciao Stefania, si certo.

Codice:
'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

:)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 31 gennaio 2025
    Bari
    49
    28
    64
    42
    46
    Cagliari
    53
    76
    89
    26
    13
    Firenze
    38
    51
    15
    50
    56
    Genova
    87
    09
    35
    30
    04
    Milano
    53
    25
    23
    09
    37
    Napoli
    01
    65
    38
    06
    15
    Palermo
    05
    07
    10
    26
    58
    Roma
    32
    31
    09
    46
    80
    Torino
    68
    20
    44
    51
    11
    Venezia
    90
    24
    62
    54
    61
    Nazionale
    20
    79
    07
    45
    60
    Estrazione Simbolotto
    Bari
    45
    37
    01
    41
    17
Indietro
Alto