Novità

Qualcuno/a degli scripter doc potrebbe realizzare questo?

lotto_tom75

Advanced Premium Member
Uno script che si possa rendere eseguibile e che faccia questo:

Dato un file txt che contenga dei numeri voluti intervallati magari da un punto..

del tipo per es. (del tutto fittizio)

numeridacontrollare.txt

e nel file txt ci sia

1.5.7.9.10.11.15.23.36.44.52.53.54.66.67.87.90

riesca a verificare qualunque sorte dall'estratto alla cinquina su TUTTE e magari anche su singola ruota e nazionale :D

Lo so che spaziometria ha già la funzione spettacolare di "verifica vincite" ma credo che potrebbe essere interessante avere anche la possibilità di automatizzare il tutto poi con un piccolo batch ;) e avere appunto la verifica del gruppo numerico "tentato" in automatico :D grazie a questo script compilato saltando i passaggi.. di dover aprire il programma andare sul menu, scegliere la sezione verifica vincite, impostare le varie sorti e le ruote, impostare la data di verifica (l'ultima) e cliccare su verifica.

Se non sono stato troppo chiaro..., chiunque voglia provare a realizzare questo script "verificatore" mi chieda pure ulteriori dettagli.

Grazie anticipate a tutti/e :)
 
Ultima modifica:
Ciao tom lo script che chiedi è sulla base di quello che abbiamo fatto con luigi.
Utilizzi la funzione leggifiledatesto se non ricordo male ed è fatta.
Non è nulla di che ne abbiamo fatti a centinaia forse ti serve qualcosa di più specifico?
Ciao tom :)
 
i legend;n1972832 ha scritto:
Ciao tom lo script che chiedi è sulla base di quello che abbiamo fatto con luigi.
Utilizzi la funzione leggifiledatesto se non ricordo male ed è fatta.
Non è nulla di che ne abbiamo fatti a centinaia forse ti serve qualcosa di più specifico?
Ciao tom :)


Grazie mille legend! Mi potresti indicare il link di uno di questi 100? ;)
Credo che me ne basti uno di quelli :p

Ciao grandissimooo! :)
 
Ultima modifica:
Tom hai la base di quello che legge I file di testo le colonne casuali i file .col, e Sceglinumeri.
Te ne avevo fatto una che ciclava le ruote a 2 a2.
Io purtroppo non ce lo più.
Dovrebbe essere da qualche parte.

Mi spiace non posso altrimenti te lo riscrivere i.
Ciao grande tom:)
 
Ciao Tom,

trovi sicuramente qualche script ... già a partire

dagli esempi annessi a Spaziometria.

Ho scritto questo ... giusto per pura curiosità. Mia.

Ovvero ero certo che tra i risultati, di così tanti numeri ci fosse

qualcosa di corposo. Più specificatamente una QUATERNA a Palermo.

Per il resto senza ulteriori interventi mi facevano dimenticare ... che la tua

richiesta, è piuttosto simile a quanto già richiesto da rospetto,

e per la quale avevo già predisposto qualcosa.

Potresti trovarci qualcosa di utile.

:) Tienici informati.
 
Ultima modifica:
Ciao a tutti
Ciao joe :)
Ciao tom :)

Allora tom ora hai la base postata di joe.
Se butti giù qualcosa possiamo completare lo script insieme.
Tieni presente che sono senza pc quindi non ricordo i parametri delle funzioni e non ho modo di calcolare se lo script gira lento o fa errori.
Allora per cominciare a noi cosa serve?
Cosa vogliamo ottenere?

Innanzi tutto usa Option Explicit e dichiara tutte le variabili.
Ci serve una data inizio e una data Fine ricerca.
Vogliam il ritardo combinazioni della lunghetta dalla estratto alla cinquina una alla volta o tutti insieme?
Ovviamente nel secondo caso è notevolmente più lento.
Il ritardo su quante ruote lo vuoi?
Ossia ruota singola-ruote unite, o tutte le coppie di ruota?
Qui ovviamente rallenta sono 55 casi.
Il file txt esiste?
Se si bisogna prenderlo
Quindi ci sono le funzioni ScegliFile e GetDirectoryAppData.
Poi serve la funzione per trovare il carattere divisore.
La funzione la prendi dallo script degli incrementi.
Dai comincia a postare.
Se non lo fai io non riesco.
Vedrai che alla fine lo fai da solo.
Ciao buon week end a tutti :)
 
GRAZIE 1000 ad entrambi joe91 e i legend! Ripeto... siete due grandissimi! :cool:
x joe91: ho integrato leggermente il tuo già completo e spettacolare script e ho ottenuto ciò che volevo! ;) THANKSSS!

Per chi avesse le stesse crazy esigenze... per verificare in automatico gli eventuali sfaldamenti delle eventuali proprie lunghette lo posto qui sotto :)

Codice:
Option Explicit
Sub Main
'Punti Realizzati in Lunghetta by Joe V.1.0 del 23/04/2016.
Dim L,N,R,P,Es,E(5),PT,T,k
'L = "1.5.7.9.10.11.15.23.36.44.52.53.54.66.67.87.90"


'integrazione lettura file txt by lotto_tom75

Dim sfile
sfile = "c:\lunghettatentata.txt"

Call Messaggio("Lettura file di testo")
ReDim aRighe(0)
Call LeggiRigheFileDiTesto(sfile,aRighe)

For k = 0 To UBound(aRighe)

If aRighe(k) <> "" Then
ReDim aNum(0)
Call SplitByChar("." & aRighe(k),".",aNum)
End If

'fine integrazione

N = Split(aRighe(k),".") : Scrivi StringaNumeri(N,,True),True : Scrivi
Scrivi " D A T A " & Space(3),True,False
For R = 1 To 12
Scrivi FormatSpace(SiglaRuota(R),5,True),True,False
Next : Scrivi

For Es = EstrazioneFin - 9 To EstrazioneFin : T = 0
Scrivi DataEstrazione(Es) & Space(2),True,False
For R = 1 To 12
For P = 1 To 5 : E(P) = Estratto(Es,R,P) : Next
PT = PuntiSuArray(E,N) : T = T + PT
ColoreTesto PT : If R = 11 Then PT = T : ColoreTesto 0
Scrivi FormatSpace(PT,5,True),0,0 : ColoreTesto 0
Next : Scrivi
Next
Next

End Sub

Ovviamente, affinchè funga correttamente da segretaria virtuale in tal senso :D , andrà anche compilato, con la procedura descritta dal grande luigib, messo in un piccolo batch relativo che includa anche l'aggiornamento automatico dell'archivio delle estrazioni lotto del programma, a cui questo script si appoggia (il superlativo spaziometria), e aggiunto il piccolo batch relativo alle operazioni pianificate del proprio s.o che lo dovrà richiamare appunto dopo ogni ultima estrazione.

Grazie ancora Joe e Legend! ;)
 
Ok ...

... ho provato le istruzioni per la creazione e scrittura dei file.

Si tratta di (10) lunghette assolutamente casuali, ma l'ultima di queste

ha evidenziato un comportamento particolare e degno di attenzione a Cagliari.

Una Quaterna ... e nulla più.
_ CFR.jpg


:)
 
Ultima modifica:
In aggiornamento ...

il minimo sopra il niente è la caduda di un Estratto a colpo.

A Cagliari cade il 66.

Chiusa parentesi.

TOM, dovresti correggere alcuni errori.

Dove nello script hai inserito le tue aggiunte :

Codice:
Call SplitByChar("." & aRighe(k),".",aNum)

End If

'fine integrazione

N = Split(aRighe(k),".")

Come vedi ... lo split che hai aggiunto è un duplicato di quello che era già presente ... e ... dopo.

Nel caso sarebbe solo tempo sprecato, a far fare la stessa separazione dei dati, 2 volte.

Però "END IF" subito dopo aver splittato i caratteri ...

"chiuderebbe li" il dicorso rendendo lo script sbagliato.

In pratica questo codice mi è difficile capire come faccia a funzionare!

Ovvero, NON dovrebbe funzionare.

Ipotizzo che questa "improbabilità" nel funzionamento ... possa dicendere

dall'esistenza dello split successivo ... e/o da una routine di recupero degli errori

contenuta nel programma Spaziometria che,in questo caso,

riesce a recuperare una situazione compromessa.

:) Buona serata a tutte/i.
 
Ultima modifica:
Ciao Freddy.

Si è possibile ... come è possibile che qualche personaggetto ora,

potrà vendere la tua idea sul suo sito.

Diciamo, che io, non ho intenzione di regalargli, anche, lo script.

Ti parlo piuttosto dei miei risultati per chiuderla così ... senza farne paginoni di sproloqui:

Estratto al primo colpo.

Estratto al secondo colpo.

Ambo al quarto colpo.

tralasciando il resto ... Tutto a Ruota.
_ x Freddy.jpg



Carta Canta.


:) Cordiali saluti.
 
Ultima modifica:
Ciao Joe grazie lo stesso...
mi potresti mettere uno script che mi dia i più ritardatari della ruota di bari raggruppati per ritardo.... e e i più frequenti sempre raggruppati per frequenza?.... grazie mille
inoltre se è possibile chi il più ritardatario si sommi al più frequente
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 10 luglio 2025
    Bari
    85
    25
    24
    62
    28
    Cagliari
    51
    07
    79
    73
    36
    Firenze
    80
    63
    59
    47
    05
    Genova
    26
    50
    73
    18
    76
    Milano
    86
    12
    75
    13
    68
    Napoli
    21
    46
    89
    28
    87
    Palermo
    84
    49
    44
    17
    10
    Roma
    50
    40
    68
    65
    82
    Torino
    29
    52
    02
    60
    65
    Venezia
    81
    21
    64
    01
    09
    Nazionale
    30
    56
    86
    68
    34
    Estrazione Simbolotto
    Nazionale
    29
    13
    42
    17
    07
Indietro
Alto