Novità

Per Joe Magia o altri scripter moidifica

trivellato

Super Member >PLATINUM<
Messaggi
274
Punti reazione
3
Punti
18
ciao mi servirebbe una piccola modifica a questo script che mi scriva come allegato tx


Sub Main()
'script By Black
ini = 7440'4666 '8 Marzo 1997
fin = EstrazioneFin
For es = ini To fin
Call AvanzamentoElab(ini,fin,es)
r1 = 1
r2 = 2
r3 = 3
r4 = 4
r5 = 5
r6 = 6
r7 = 7
r8 = 8
r9 = 9
r10 = 10
gg = giorno(es)
ms = Mese(es)
an = Anno(es)
Scrivi Format2(gg) & Left(-(ms),3) & - an & StringaEstratti(es,r1,"") & StringaEstratti(es,r2,"") & StringaEstratti(es,r3,"") & StringaEstratti(es,r4,"") & StringaEstratti(es,r5,"") & StringaEstratti(es,r6,"") & StringaEstratti(es,r7,"") & StringaEstratti(es,r8,"") & StringaEstratti(es,r9,"") & StringaEstratti(es,r10,"")
If ScriptInterrotto Then Exit For
Next
End Sub




grazie anticipatamente
 

Allegati

joe

Advanced Member >PLATINUM<
Messaggi
1.052
Punti reazione
46
Punti
48
Ciao Trivellato,

cose così, secondo me, dovresti imparare a farle da solo.

Codice:
Sub Main()
  'Script By Joe
  Dim Ini,Fin,Es,R
  Ini = 7440 : Fin = EstrazioneFin
  For Es = Ini To Fin
    Call AvanzamentoElab(Ini,Fin,Es)
    Scrivi DataEstrazione(Es,,,"-"),0,0
    For R = 1 To 10
      Scrivi StringaEstratti(Es,R,""),0,0
    Next : Scrivi
    If ScriptInterrotto Then Exit For
  Next
End Sub
:)
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 22 febbraio 2020
    Bari
    73
    49
    52
    41
    87
    Cagliari
    47
    45
    90
    78
    09
    Firenze
    25
    21
    27
    57
    37
    Genova
    57
    41
    26
    04
    73
    Milano
    03
    40
    14
    18
    80
    Napoli
    36
    50
    13
    41
    78
    Palermo
    60
    45
    47
    78
    30
    Roma
    73
    90
    15
    74
    38
    Torino
    77
    41
    13
    83
    63
    Venezia
    44
    05
    43
    26
    20
    Nazionale
    02
    80
    84
    59
    08
Alto