Novità

Salvo50 o ALTRI SCRIPTER

trivellatomariotretre33

Super Member >PLATINUM<
BUONGIORNO AVREI BISOGNO DI UNO SCRIPT CHE MI SCRIVA IN TX ARCHIVIO COME IN ALLEGATO GRAZIE

sab23.12.201785032580148170504203632446718363162806473150144054148450162921081943817604446887010573820707483006578009520716
mer27.12.201717854976585410638972864041760231694035625208735513881422583528903331207673322618068976052542490183297666242616
gio28.12.201752817971443361636544497210030140300678765508868714214733175803603559432415766707352490232016877340215323505178
sab30.12.201775848740551733187408414257633439112901318329280685625445435158500708813622355038716605180463543845834919370178
mar02.01.201841216008545836563510140749433483737759502942765987451041161302761006124575183516328417376806563784011165203189

ALLEGO FOTO E TX.
 

Allegati

  • A.png
    A.png
    10,2 KB · Visite: 19
  • A.txt
    A.txt
    623 bytes · Visite: 18
Ultima modifica:
Ciao Trivellato,

Buona giornata a tutte/i.

Mi sembra di averti già scritto un programma simile o proprio questo.

Comunque sia ...prova così:

Codice:
Option Explicit
'Arc_X_Trivellato / Script per Spaziometria By Joe
Sub Main
   Dim Ini,Fin,Es,R,P,Riga
   Ini = EstrazioniArchivio-156
   Fin = EstrazioniArchivio
   For Es = Ini To Fin
      AvanzamentoElab Ini,Fin,Es
      Riga = Left(DataEstrazione (Es,True),3)
      Riga = Riga & DataEstrazione(Es,,,".")
      For R = 1 To 12
         If R = 11 Then R = 12
         For P = 1 To 5
            Riga = Riga & Format2(Estratto(Es,R,P))
         Next
      Next
      Call Scrivi(Riga)
   Next
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 23 gennaio 2025
    Bari
    86
    50
    83
    38
    78
    Cagliari
    11
    36
    52
    31
    74
    Firenze
    56
    59
    86
    27
    84
    Genova
    03
    61
    53
    11
    38
    Milano
    13
    14
    79
    87
    47
    Napoli
    21
    90
    48
    55
    37
    Palermo
    56
    46
    59
    02
    53
    Roma
    74
    13
    07
    38
    77
    Torino
    27
    54
    62
    36
    81
    Venezia
    09
    14
    69
    28
    62
    Nazionale
    32
    73
    27
    11
    51
    Estrazione Simbolotto
    Bari
    36
    27
    19
    08
    24

Ultimi Messaggi

Indietro
Alto