annuncio

Comprimi
Ancora nessun annuncio.

Per Joe

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

  • Per Joe

    ciao volevo chiederti se puoi modificare questo tuo listato dove mi disponga le estrazioni in questa maniera:

    10/11/2018;135;59;58;4;2;26;50;73;41;12;61;6;48;60;78;56 ;86;78;82;50;49;90;4;59;9;22;89;24;83;59;58;36;61; 58;42;22;31;66;22;55;18;81;73;38;30;71;5;51;41;90; 68;64;2;37;33;50

    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 infinite

  • #2
    Ciao Solare, premesso che quando c'è scritto

    che è di Black ... non è mio,

    se guardi qui:

    https://forum.lottoced.com/forum/lot...pter-moidifica

    ti accorgi che è praticamente la stessa richiesta.

    Basta aggiungerci "indice annuale (es)" e sostituire il "carattere separatore".

    Secondo me dovresti provarci, è molto semplice.

    Buona serata.

    Commenta


    • #3
      CIAO JOE O PROVATO PIU VOLTE A MODIFICARE LO SCRIPT COME DICE SOLARE , POTRESTI POSTARMELO CHE IO POSSA IMPARARE DOVE SBAGLIO PERCHE NON MI ESCE PROPIO CORRETTO GRAZIE JOE.

      Commenta


      • #4
        Come vedi c'è la data scritta :

        10/11/2018

        poi un carattere separatore :

        ";"

        poi l'indice annuale :

        135

        poi un separatore :

        ";"

        poi, ad uno ad uno, 55 estratti

        59;58;4;2;26;50;73;41;12;61;6;48;60;78;56 ;86;78;82;50;49;90;4;59;9;22;89;24;83;59;58;36;61; 58;42;22;31;66;22;55;18;81;73;38;30;71;5;51;41;90; 68;64;2;37;33;50

        tutti separati dallo stesso carattere. Cioè divisi dal solito punto e virgola.

        Puoi notare che gli estratti-numeretti non sono preceduti, dallo zero.

        Dunque se l'archivio in formato testo non andrà bene al programma ...

        ... potrebbe essere che sia per questa ragione.

        Ma lo vedremo dopo.

        Fin qui è tutto chiaro ?

        Ultima modifica di joe; 15-11-2018, 09:32.

        Commenta


        • #5
          Si Joe chiaro però quanto si dividono con il punto è virgola nell'intera riga si formano seguenze uniti di 4 numeri più volte
          dai Joe postamelo tu così lo paragono e imparo grazie.

          Commenta


          • #6
            ciao joe
            posto uno script alternativo
            controllate eventuali errori
            se si utilizza stringanumeri in caso di estrazione vuota per l incolonnamento bisognerebbe utilizzare degli accorgimenti che aumentano il tempo di elaborazione

            codice:
            Option Explicit
            ' controllare se lo script fa quanto richiesto
            ' si è utilizzato formattastringa e format 2 per un incolonnamento regolare
            'salvo eventuali bugs sempre possibili
            Sub Main
               Dim Ini,Fin,IdEstr,R,P,sEstr,sChrSep
               sChrSep = ";"
               Call ScegliRange(Ini,Fin)
               Call ResetTimer
               For IdEstr = Ini To Fin
                  sEstr = DataEstrazione(IdEstr,,,"/") & sChrSep & FormattaStringa(IndiceAnnuale(IdEstr),"000") & sChrSep
                  For R = 1 To 12
                     If R = 11 Then R = 12
                     ReDim aEstr(0)
                     Call GetArrayNumeriRuota(IdEstr,R,aEstr)
                     For P = 1 To 5
                        sEstr = sEstr & Format2(aEstr(P)) & sChrSep
                     Next
                  Next
                  Scrivi RimuoviLastChr(sEstr,sChrSep)
            call avanzamentoelab(ini,fin,Idestr) ' aumenta il tempo di elaborazione
               Next
               Dim t:t = TempoTrascorso
               If MsgBox("Vuoi visualizzare il tempo di elaborazioni dati?",4,"Opzione Output") = vbYes Then Scrivi t
            End Sub
            non si capisce se le stringhe sono per un foglio di calcolo o da utilizzare diversamente, senza tutte le specifiche non si puo realizzare nulla di ottimale
            ciao a tutti
            NON SI GARANTISCE ALCUNA VINCITA
            Cordiali saluti I Legend

            Commenta


            • #7
              GRAZIE DI CUORE i legend OTTIMO UNA STRETTA DI MANO CIRCOLARE .

              Commenta


              • #8
                Ho modificato lo script ... come avevi richiesto.

                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
                  Scrivi ";" & IndiceAnnuale(Es),0,0
                  For R = 1 To 12 : If R = 11 Then R = 12
                   Scrivi ";" & StringaEstratti(Es,R,";"),0,0
                  Next : Scrivi
                  If ScriptInterrotto Then Exit For
                 Next
                End Sub

                Commenta


                • #9
                  Grazie Joe, gentilissimo come sempre.
                  Se non chiedo troppo potrebbe essere fatto anche per il 10elotto serale ?

                  Commenta


                  • #10
                    Originariamente inviato da trivellato Visualizza il messaggio
                    GRAZIE DI CUORE i legend OTTIMO UNA STRETTA DI MANO CIRCOLARE .
                    Non c'è di che
                    Ciao
                    NON SI GARANTISCE ALCUNA VINCITA
                    Cordiali saluti I Legend

                    Commenta


                    • #11
                      Ringrazio Ilegend per aver proposto una sua soluzione.

                      x Solare penso si possa quasi tutto ... ma non ne ho idea,

                      per che non ho nessuna conoscenza di quello

                      che è alla base e riguarda la tua richiesta.

                      Commenta


                      • #12
                        ciao Joe è sempre un piacere leggerti , e a volte dare un alternativa se altrettanto valida.
                        ciao è buon Weekend
                        NON SI GARANTISCE ALCUNA VINCITA
                        Cordiali saluti I Legend

                        Commenta

                        Unconfigured Ad Widget

                        Comprimi

                        Ultima estrazione del lotto

                        Comprimi

                        Estrazione del lotto
                        martedì 22 gennaio 2019
                        Bari
                        72
                        54
                        05
                        78
                        08
                        Cagliari
                        90
                        09
                        46
                        14
                        89
                        Firenze
                        40
                        78
                        35
                        83
                        85
                        Genova
                        63
                        48
                        46
                        13
                        43
                        Milano
                        02
                        80
                        77
                        60
                        13
                        Napoli
                        74
                        14
                        38
                        05
                        13
                        Palermo
                        24
                        81
                        16
                        75
                        25
                        Roma
                        83
                        71
                        16
                        67
                        11
                        Torino
                        63
                        77
                        20
                        49
                        42
                        Venezia
                        23
                        43
                        76
                        65
                        17
                        Nazionale
                        64
                        30
                        52
                        39
                        01
                        Sto operando...
                        X