annuncio

Comprimi
Ancora nessun annuncio.

Per Joe Magia o altri scripter moidifica

Comprimi
X
  • Filtro
  • Ora
  • Visualizza
Elimina tutto
nuovi messaggi

  • Per Joe Magia o altri scripter moidifica

    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
    File allegati

  • #2
    aggiungi Format2 (Left(-(ms),3))
    Lo spot che conosciamo dice "Ti Piace vincere facile ? " .. io rispondo SI !!!"

    Commenta


    • #3
      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 di joe; 05-11-2018, 20:53.

      Commenta


      • #4
        GRAZIE Joe mi devo impegnare di piu
        una stretta di mano chilometrica ciao.

        Commenta

        Unconfigured Ad Widget

        Comprimi

        Ultima estrazione del lotto

        Comprimi

        Estrazione del lotto
        sabato 24 agosto 2019
        Bari
        32
        81
        76
        24
        77
        Cagliari
        53
        69
        16
        66
        57
        Firenze
        71
        67
        53
        16
        76
        Genova
        52
        39
        06
        79
        55
        Milano
        29
        21
        69
        74
        40
        Napoli
        87
        71
        79
        52
        19
        Palermo
        73
        84
        49
        16
        23
        Roma
        56
        23
        14
        79
        27
        Torino
        65
        13
        80
        06
        49
        Venezia
        11
        13
        06
        40
        65
        Nazionale
        42
        56
        64
        80
        26
        Sto operando...
        X