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
                        giovedì 06 dicembre 2018
                        Bari
                        51
                        21
                        12
                        10
                        62
                        Cagliari
                        60
                        85
                        81
                        12
                        43
                        Firenze
                        62
                        17
                        11
                        28
                        39
                        Genova
                        12
                        67
                        63
                        42
                        28
                        Milano
                        87
                        42
                        58
                        32
                        37
                        Napoli
                        74
                        12
                        27
                        16
                        03
                        Palermo
                        59
                        89
                        41
                        79
                        52
                        Roma
                        07
                        51
                        39
                        37
                        38
                        Torino
                        67
                        29
                        15
                        14
                        70
                        Venezia
                        33
                        35
                        06
                        03
                        58
                        Nazionale
                        81
                        23
                        45
                        71
                        14
                        Sto operando...
                        X