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

[lotto_tom75]

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

 

[Cinzia27]

Ciao Lotto-tom75.
In sintesi, vorresti che lo script " scrivesse" tutte le cinquine uscite ?

 

[lotto_tom75]

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

 

[Cinzia27]

Come esempio...

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

 

[lotto_tom75]

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

 

[Cinzia27]

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

'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

'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

 

[LuigiB]

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]

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 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 "

 

[LuigiB]

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

 

[lotto_tom75]

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 è tornato il Luigi di una volta No tranquillo... ci arrivo... si come no?

 

[lotto_tom75]

Per Cinzia: Grazie 1000 per averci provato ma è davvero troppo lento per le mie esigenze Ciao

 

[LuigiB]

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 ...

 

[lotto_tom75]

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 Comunque no non lo so O almeno gran parte di quello che hai detto non lo so. Solo alcune cose si Porgo l'altra guancia?

 

[LuigiB]

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

p.s.

se non lo sai sallo

 

[lotto_tom75]

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

p.s.

se non lo sai sallo

Ok ce provo

 

[Cinzia27]

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.

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

 

[salvo50]

Ciao a Tutti

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

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]

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.

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

Cinzia ci sto! 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

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... Altra sciacquata in arrivo by the master in 3.. 2... 1....

 

[lotto_tom75]

Ciao a Tutti

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

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 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.

 

[Cinzia27]

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... Altra sciacquata in arrivo by the master in 3.. 2... 1....

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 ?