Qualcuno/a degli scripter doc potrebbe realizzare questo?

[lotto_tom75]

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

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

 

[i legend]

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

 

[lotto_tom75]

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

Ciao grandissimooo!

 

[i legend]

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

 

[Joe91]

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.

 

[i legend]

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

 

[Joe91]

Ciao Ilegend ...

... un piccolo supporto grafico e di tempo.
_

 

[i legend]

Ciao joe grazie .

 

[lotto_tom75]

GRAZIE 1000 ad entrambi joe91 e i legend! Ripeto... siete due grandissimi!
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

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 , 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!

 

[i legend]

Ciao tom
Ciao a tutti

 

[Joe91]

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

 

[Joe91]

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 :

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.

 

[Joe91]

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



Carta Canta.


Cordiali saluti.

 

[freddy1975]

potresti inviarmi lo script in privato per favore?

 

[Joe91]

potresti inviarmi lo script in privato per favore?

No. Non è possibile.

Buon week-end a tutte/i.

 

[freddy1975]

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