Novità

Script che generi questo tipo di archivio... piuttosto "originale"

lotto_tom75

Advanced Premium Member
Mi servirebbe, se possibile, uno script che generi questo tipo di archivio molto "originale" dato che non lo trovo da nessuna parte e me lo sono dovuto costruire a manina per adesso... :) oppure l'ho costruito a volte ricorrendo allo script di tipo integrale opportunatamente configurato e con in output solo numeri... ma quest'ultimo è davvero troppo lento... e snervante.. per poterlo fare ogni volta...

L'archivio in file txt, possibilmente generato in pochi minuti, in sostanza dovrà essere composto da tutte le cinquine (una sotto l'altra con i 5 elementi separati da virgola) uscite (quindi con fq >= 1 x sorte=5 su TT e NZ) su ogni ruota (compresa nazionale) dal 1871 ad oggi... e potersi aggiornare ad ogni nuova estrazione eseguendolo...

Grazie 1000 a chi lo realizzerà e condividerà qui sotto a beneficio di tutti/e :)
 
Ultima modifica:

lotto_tom75

Advanced Premium Member
Cinzia27;n2132162 ha scritto:
Ciao Lotto-tom75.
In sintesi, vorresti che lo script " scrivesse" tutte le cinquine uscite ?

Esatto Cinzia :) Dal 1871 tutte quelle uscite su TT e NZ :) Le soluzioni finora trovate x crearlo... o sono manuali... o sono troppo lente :)
 
Ultima modifica:

Cinzia27

Premium Member
Come esempio...
Codice:
1.2.3.21.25
1.2.3.23.67
1.2.3.24.64
1.2.4.5.53
1.2.4.12.81
1.2.4.19.86
 
Ultima modifica:

lotto_tom75

Advanced Premium Member
Cinzia27;n2132171 ha scritto:
Come esempio...

1.2.65.73.77 1.2.65.76.87 1.2.67.77.80 1.2.71.73.74 1.2.71.75.78 1.2.71.82.85 1.2.79.86.90 1.3.4.22.67

Si solo numeri va benissimo... solo che dovrebbero essere una sotto l'altra. Se riesci a creare lo script per ottenerle tutte (valutando insieme la ruota TUTTE e NZ) in pochissimi minuti salvandole in un file txt... WOW! :) Se non vado errato ad oggi dovrebbero essere appena... 9529 x 11 = 104.819 cinquine :D
 
Ultima modifica:

Cinzia27

Premium Member
E' lento, non conosco altre soluzioni, ma se hai la pazienza di farlo girare per intero e salvare i risultati,
per fare l' aggiornamento potresti fare con il 2° script
Codice:
'Cinquine sortite

    Sub Main()


    Dim cinquine(5)

    Dim ruote(2)

    ruote(1) = 11
    ruote(2) = 12
    For a = 1 To 86
    cinquine(1) = a
    For b = a + 1 To 87
    cinquine(2) = b
    For c = b + 1 To 88
    cinquine(3) = c
    For d = c + 1 To 89
    cinquine(4) = d
    For e = d + 1 To 90
    cinquine(5) = e

    If SerieFreqTurbo(1,EstrazioniArchivio,cinquine,ruote,5) > 0 Then
    Messaggio StringaNumeri(cinquine)
    Scrivi StringaNumeri(cinquine)
    End If

    Next:Next:Next:Next:Next



    End Sub

Codice:
'Cinquine sortite per la prima volta nell' estrazionefin

    Sub Main()


    Dim cinquine(5)

    Dim ruote(2)

    ruote(1) = 11
    ruote(2) = 12
    For a = 1 To 86
    cinquine(1) = a
    For b = a + 1 To 87
    cinquine(2) = b
    For c = b + 1 To 88
    cinquine(3) = c
    For d = c + 1 To 89
    cinquine(4) = d
    For e = d + 1 To 90
    cinquine(5) = e
    If SerieFreqTurbo(EstrazioniArchivio,EstrazioniArchivio,cinquine,ruote,5) > 0 Then
    If SerieFreqTurbo(1,EstrazioniArchivio-1,cinquine,ruote,5) > 0 Then

    Messaggio StringaNumeri(cinquine)
    Scrivi StringaNumeri(cinquine)
    End If
    End If

    Next:Next:Next:Next:Next



    End Sub
 
L

LuigiB

Guest
forse ho capito male ma se vuoi tutte le cinquine non basta leggerle dall'archivo e trascriverle su un file di testo ? A che serve svilupparle ?
 

lotto_tom75

Advanced Premium Member
LuigiB;n2132180 ha scritto:
forse ho capito male ma se vuoi tutte le cinquine non basta leggerle dall'archivo e trascriverle su un file di testo ? A che serve svilupparle ?

Si basterebbe... se sapessi come fare :D Per adesso con lo script integrale che permette di analizzare tutte le classi volute (e quindi anche la 5) fino alla 20 non riesco a farlo in tempi ristretti... ma evidentemente sto annegando in un bicchier d'acqua a giudicare dal tuo intervento ;) Se ti riferisci al salvare l'archivio di ogni ruota e poi a mettere ogni gruppo di cinquine uno sotto l'altro fatto anche quello... ma vorrei appunto provare ad evitare di farlo ogni volta " a mano " :)
 
Ultima modifica:
L

LuigiB

Guest
e come vuoi fare .. che diamine una cosa di una banalità assurda non te la faccio manco morto ..che hai deciso di farmi inc... ?
 
Ultima modifica di un moderatore:

lotto_tom75

Advanced Premium Member
LuigiB;n2132183 ha scritto:
e come vuoi fare .. che diamine una cosa di una banalità assurda non te la faccio manco morto ..che hai deciso di farmi inc... ?

Ahahah :D è tornato il Luigi di una volta :p No tranquillo... ci arrivo... si come no? :eek: :D
 
Ultima modifica:

lotto_tom75

Advanced Premium Member
Per Cinzia: Grazie 1000 per averci provato ma è davvero troppo lento per le mie esigenze :(:eek: Ciao :)
 
Ultima modifica:
L

LuigiB

Guest
che non sai che esistr una funzione che si chiama GetArrayNumeriRuota , non sai che esiste una funzione che si chiama ScriviFile e un 'altra che si chiama EliminaFile ? Non sai che esiste una funzione che si chiama StringaNumeri ? Non sai che esistono i cicli For ? ..

Uhe Tom riga dritto che senno dopo che esce il tuo numero e ci incontriamo per la pizza .. la pizza te la do alla romana :) ...

verificare se il file esiste e cancellarlo
ciclare sulle estrazioni , internamente sulle ruote
ottenere i numeri di quell''estrazione di quella ruota in un array
trasformare l'array in una stringa
scrivere la stringa nel file


speriamo che ti aiuti Cinzia ...povero me che allievo che mi è toccato ... :)
 
Ultima modifica di un moderatore:

lotto_tom75

Advanced Premium Member
LuigiB;n2132186 ha scritto:
che non sai che esistr una funzione che si chiama GetArrayNumeriRuota , non sai che esiste una funzione che si chiama ScriviFile e un 'altra che si chiama EliminaFile ? Non sai che esiste una funzione che si chiama StringaNumeri ? Non sai che esistono i cicli For ? ..

Uhe Tom riga dritto che senno dopo che esce il tuo numero e ci incontriamo per la pizza .. la pizza te la do alla romana :) ...

ahahah :D Comunque no non lo so :D O almeno gran parte di quello che hai detto non lo so. Solo alcune cose si :D Porgo l'altra guancia? :D
 
Ultima modifica:
L

LuigiB

Guest
leggi sopra (ho modificato) e sforzati .. sei ancora in tempo per redimerti ....

p.s.

se non lo sai sallo :)
 
Ultima modifica di un moderatore:

Cinzia27

Premium Member
Ciao, LuigiB . Scusa ma se scrive tutte le cinquine uscite dal 1871 nella remota ipotesi che una o più...si sia ripetuta ? La scrive 2 volte?
Non che ciò influisca più di tanto. Allora ci sarebbe questo mini script.

Codice:
Sub main()
For r=1 To 10
For es=1 To EstrazioneFin
If Estratto(es,r,1)>0 Then
Scrivi StringaEstratti(es,r)
End if
Next
Next
End Sub

P.S. :visto che anch' io so poco di Spaziometria perché abituata ad usare un altro programma, vorrà dire che io e Tom ci aiuteremo a vicenda:p
 

salvo50

Advanced Member >PLATINUM PLUS<
Ciao a Tutti

Questo restituisce tutte le estrazioni in qualche secondo, però mi sembra troppo semplice, probabilmente non è questo che chiedi.

Codice:
Sub Main
   Dim Inizio,fine
   Inizio = 1  
   fine = EstrazioneFin
   For k = Inizio To fine
      Call ScriviEstrazione(k,1,1,1)
   Next
End Sub
 

lotto_tom75

Advanced Premium Member
Cinzia27;n2132198 ha scritto:
Ciao, LuigiB . Scusa ma se scrive tutte le cinquine uscite dal 1871 nella remota ipotesi che una o più...si sia ripetuta ? La scrive 2 volte?
Non che ciò influisca più di tanto. Allora ci sarebbe questo mini script.

Codice:
Sub main()
For r=1 To 10
For es=1 To EstrazioneFin
If Estratto(es,r,1)>0 Then
Scrivi StringaEstratti(es,r)
End if
Next
Next
End Sub

P.S. :visto che anch' io so poco di Spaziometria perché abituata ad usare un altro programma, vorrà dire che io e Tom ci aiuteremo a vicenda:p

Cinzia ci sto! :D Aiutiamoci a vicenda nell'imparare lo scripting di spaziometria :)

Intanto nel tuo avrei aggiunto le 5 posizioni se ho capito bene il tuo codice estremamente ermetico almeno per me :)

Codice:
Sub Main()
Dim count 
count = 1
Dim p

For p=1 To 5 
For r=1 To 10
For es=1 To EstrazioneFin

If Estratto (es,r,p)>0 Then
count = count+1
Scrivi StringaEstratti(es,r) & " - " &  count
End If
Next
Next
Next
End Sub

Ad ogni modo non genera le 189.000 cinquine e passa che mi aspetterei di vedere e sia il tuo che il mio ccodice spesso mostra solo 3 o 4 numeri anzichè 5 per riga... :eek: Altra sciacquata in arrivo by the master in 3.. 2... 1.... :p :D
 

lotto_tom75

Advanced Premium Member
salvo50;n2132201 ha scritto:
Ciao a Tutti

Questo restituisce tutte le estrazioni in qualche secondo, però mi sembra troppo semplice, probabilmente non è questo che chiedi.

Codice:
Sub Main
Dim Inizio,fine
Inizio = 1
fine = EstrazioneFin
For k = Inizio To fine
Call ScriviEstrazione(k,1,1,1)
Next
End Sub

Troppo semplice per chi mastica.. , come te, scripting di spaziometria quasi come the Master :D Grande Salvo! :) Ad ogni modo per noi poveri mortali saresti in grado di mostrare solo i numeri senza tutti gli altri dati presenti a video? Grazie 1000 e complimenti!!! :)

Per intenderci...

Anzichè avere in output questo...

+------------------------+
| 12848/12847/12592 |
+---------000001---------+
Bari 56 44 53 57 44
Cagliari 48 51 44 56 54
Firenze 44 51 48 44 55
Genova 49 13 10 49 54
Milano 44 48 54 47 48
Napoli 50 47 50 48 49
Palermo 56 44 56 51 44
Roma 49 55 44 56 49
Torino 44 54 53 44 48
Venezia 56 13 10 49 55
Nazionale 44 48 56 47 48


avere solo questo... (solo numeri)

56 44 53 57 44
48 51 44 56 54
44 51 48 44 55
49 13 10 49 54
44 48 54 47 48
50 47 50 48 49
56 44 56 51 44
49 55 44 56 49
44 54 53 44 48
56 13 10 49 55
44 48 56 47 48
ecc...

per tutte le estrazioni e tutte le ruote fino all'ultimo giorno + attuale con i numeri intervallati da un carattere separatore (una virgola ad es.)


Scusa ma mi sono accorto adesso che l'output dopo un pò sembra che sbarelli... nel dettaglio dopo la 44esima estrazione mi riporta delle righe assurde... di questo tipo

Estrazione numero 1046 fuori dal range delle estrazioni disponibili
Estrazione numero 1047 fuori dal range delle estrazioni disponibili


Quindi sarebbe da sistemare anche questo se puoi :) Grazie comunque.
 
Ultima modifica:

Cinzia27

Premium Member
Ad ogni modo non genera le 189.000 cinquine e passa che mi aspetterei di vedere e sia il tuo che il mio ccodice spesso mostra solo 3 o 4 numeri anzichè 5 per riga... :eek: Altra sciacquata in arrivo by the master in 3.. 2... 1.... :p :D

Come sarebbe che non mostra tutti e 5 numeri ? E' l' unica cosa che fa .
Per esempio, se modifichi qui ti mostra le ultime 10 estrazioni delle 10 ruote
For es=1 To EstrazioneFin For es=EstrazioneFin-10 To EstrazioneFin Se non sono troppo curiosa, cosa te ne fai delle cinquine uscite ?:)
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto