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.048
Punti reazione
43
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
    giovedì 20 febbraio 2020
    Bari
    44
    85
    29
    46
    58
    Cagliari
    66
    53
    34
    70
    05
    Firenze
    65
    74
    80
    09
    44
    Genova
    77
    42
    51
    40
    76
    Milano
    76
    80
    34
    70
    30
    Napoli
    44
    45
    10
    43
    42
    Palermo
    52
    83
    57
    28
    42
    Roma
    77
    12
    56
    16
    71
    Torino
    19
    79
    15
    32
    14
    Venezia
    41
    48
    35
    70
    08
    Nazionale
    42
    51
    58
    72
    60

Ultimi Messaggi

Alto