360 estrazioni

[Mike58]

fatto con numero progressivo, data, colonna. e con carattere separatore ;
Per il Parametro filtro usa 4 presenze altrimenti se non trova almeno 1 numero su posizione lo script va in errore in quanto non può raggruppare nessun numero

Ciao

 

[Mike58]

Ulteriore suggerimento per gli archivi FT
quando si immette una nuova colonna non andare a capo , altrimenti trova una riga vuota , pena non leggibilità archivio.
Per ovviare a questo salvare sempre all'ultima riga parametri senza andare a capo.
esempio
100; 31/12/2022; 19,20,21,22,23,24,25,26 salvare con cursore in questa posizione in modo da non avere righe vuote

 

[Mike58]

scusa genios ecco tutto l'archivio ne avevo selezionato solo una parte.
e puoi usare tutti i parametri che vuoi

 

[genios]

Grazie Mike ora funziona tutto . Ora spero di ricordarmi chi mi aveva postato l' archivio per posizioni di estrazioni per aggiornarlo .
Grazie di nuovo Bel lavoro .

Ciaoi Eugenio

 

[genios]

Solo una cosa non va non so se puo' rimediare con la funzione elimina ripetuti :

============================================================================================================================================
26 Numeri Trovati in tutte le posizioni.... 40.53.65.15.20.59.66.75.83.86.30.43.35.60.68.7.38.63.76.87.10.49.67.73.81.87
Range di Verifica [01230] [9] 20.01.2022 - [01249] [28] 05.03.2022
============================================================================================================================================

qui vengono ripetuti dei numeri solo qui si possono eliminare ?

Ciao Eugenio

 

[Mike58]

Si Eugenio, si possono eliminare con il codice preposto
EliminaRipetuti in questa zona dello script

Scrivi String(140,"=")
EliminaRipetuti(aNum) ' metti questo codice
Scrivi kk & " Numeri Trovati in tutte le posizioni.... " & StringaNumeri(aNum),1
Scrivi "Range di Verifica " & GetInfoEstrazioneFT(Inix) & " - " & GetInfoEstrazioneFT(fine),1,,,1
Scrivi String(140,"=")

Per l'archivio io non ricordo nessuno script per aggiornare l'archivio in posizione. Mi spiace ma devi aggiornarlo a mano

ciao

 

[genios]

Ok perfetto Mike . Cerchero' di ricordarmi qui nel forum chi mi ha fornito l' archivio in formato posizioni di estrazioni.

Ciao
Eugenio

 

[Mike58]

intanto non era facile eliminare i ripetuti e quindi riposto lo script.
Per l'archivio non mi ricordo...

Sub Main
   Dim sFile,sChrSep,nCol,VetN,VetQ
   '-------------------------------------------
   sChrSep = ";" ' carattere separatore
   nCol = 8' Numeri in colonna
   '-------------------------------------------
   sFile = ScegliFile("C:\.....\Desktop\.txt")
   Call ApriBaseDatiFT(sFile,nCol,sChrSep,90)
   '-------------------------------------------
   fin = EstrazioniArchivioFT - 20
   Ini = fin - 360
   filtro = 7
   '-------------------------------------------
   Scrivi "Range Ini-fin " & GetInfoEstrazioneFT(Ini) & " - " & GetInfoEstrazioneFT(fin)
   Scrivi "Filtro Presenze... > a " & filtro
   Scrivi "Numeri per posizione",1,,,,,,1
   Scrivi String(140,"=")
   '----------------------------------------------------------------------------------------
   For x = 1 To 6
      ReDim pos(8)
      pos(x) = True
      pos(7) = False
      pos(8) = False
      For n = 1 To 90
         ef = EstrattoFrequenzaFT(n,Ini,fin,pos)
         If ef > filtro Then
            k = k + 1
            '--------------------------------
            'raggruppa numeri x posizioni
            ReDim Preserve freqNum(k)
            freqNum(k) = n
            '---------------------------------
            'raggruppa i numeri tutti trovati
            kk = kk + 1
            ReDim Preserve aNum(kk)
            aNum(kk) = n'freqNum(k)
            '--------------------------------
         End If
      Next
      If k > 0 Then
         Scrivi "Pos... " & x & "  - " & " ( " & k & " )  " & StringaNumeri(freqNum)
      End If
      k = 0 'azzera contatore
      'kk = 0
   Next
   Scrivi
   '----------------------------------------------------------------------------------------
   Inix = fin + 1
   Inixx = fin + 1
   fine = EstrazioniArchivioFT
   Scrivi String(140,"=")
   Call NumeriRipetutiRilevatiV(aNum,VetN,VetQ)
   Call EliminaRipetuti(aNum,True)
   rp = UBound(aNum)
   Scrivi rp & " Numeri Trovati in tutte le posizioni.... " & StringaNumeri(aNum),1
   Scrivi "Numeri Ripetuti   : " & StringaNumeri(VetN)
   Scrivi "Q,ta Num Ripetuti : " & StringaNumeri(VetQ)
   Scrivi "Range di Verifica " & GetInfoEstrazioneFT(Inix) & " - " & GetInfoEstrazioneFT(fine),1,,,1
   Scrivi String(140,"=")
   For es = Inix To fine
      ReDim aPos(8)
      For xx = 1 To 6
         aPos(xx) = True
      Next
      aPos(7) = False
      aPos(8) = False
      Call VerificaEsitoFT(aNum,es,1,1,esito,clp,es1,id,aPos)
      If esito <> "" Then
         rit = es - Inix
         Inix = es
         '--------------------------------------------
         If esito = "Estratto" Then k1 = k1 + 1
         If esito = "Ambo" Then k2 = k2 + 1
         If esito = "Terno" Then k3 = k3 + 1
         If esito = "Quaterna" Then k4 = k4 + 1
         If esito = "Cinquina" Then k5 = k5 + 1
         If esito = "Sestina" Then k6 = k6 + 1
         '-------------------------------------------
         Scrivi GetInfoEstrazioneFT(es) & vbTab & "Colpo... " & FormatSpace(es - Inixx,2) & " Elenco Colpi : " & rit & vbTab & es1 & vbTab & esito
      End If
   Next
   '----------------------------------------------------------------------------------------
   Scrivi String(140,"=")
   Scrivi
   Scrivi "Totali Estratti..... " & k1
   Scrivi "Totali Ambi......... " & k2
   Scrivi "Totali Terni........ " & k3
   Scrivi "Totali Quaterne..... " & k4
   Scrivi "Totali Cinquine..... " & k5
   Scrivi "Totali Sestina...... " & k6
   Scrivi String(140,"=")
End Sub

 

[genios]

Ottimo abbondante

 

[genios]

Mike si potrebbe bloccare verificaesito a 15 estrazioni ?

 

[Mike58]

Ciao Genios, il ragionamento dello script è leggermente diverso.
1 - stabilisce un range di 360 estrazioni con il fine verifica range a - 20 estrazioni

2 - controlla e verifica i numeri trovati dal range fine verifica fini alla estrazioneFin reale.
quindi per quello che chiedi o agisci sul range dei 360 estrazione o con if then esci dal cilco verifica quando raggiunge 15 estrazioni metti un exit for.

La mia opinione è che cosi snaturi lo script.

 

[genios]

Ho capito provo a farlo . Pensavo che la funzione Verificaesito implementasse l' opzione per quanti colpi si vuole verificare l' esito . Infatti volevo provare ad esempio dall' estrazione ini 1000 all'estrazione fin 1360 mi stampa gli esiti fino all' estrazione finale .

 

[Mike58]

Genios, provo a spiegare.... la funzione VerificaEsito contiene dei parametri e quindi anche la possibilità di verificare l'esito in nColpi dato un range di inizio e fine estrazioni.

La funzione usata così si fermerebbe al primo esito utile, mentre tu vorresti più esiti in tot range estrazioni e quindi dovresti usare il VerificaEsiti che ti permette settando i parametri di avere esiti stabiliti.

Tuttavia (ed è il mio caso di script ) si può far scorrere le estrazioni con ciclo for-next e dentro al ciclo far agire la funzione verificaEsito con colpi = 1 , in questo caso estrazione x estrazione se trova esito lo scrive in output, avendo cosi nEsiti.

P.s. gli script vengono scritti con costrutto e linguaggio vb per un determinato fine-scopo , una modifica se attinente è possibile farla, altrimenti è sempre meglio farli ex-novo per il progetto appropriato.

Ciao

 

[genios]

Mike ho trovato questo archivio degli ultimi 2 anni si potrebbe con uno script portarlo al formato txt dell' altro?

Come puoi vedere inizia anche dall' ultima estrazione .Si dovrebbe rovesciare .

Ciao Eugenio

 

[Mike58]

Ciao Genios , lo avevo trovato anche lo stesso archivio.
Per trasformarlo e renderlo leggibile dagli script FT la procedura e sempre la stessa.

1 - da blocco note Sostituisci lo spazio vuoto con ;
2 - riporti il tutto in excel in formato riga
3 - testo in colonne > dividi le celle
4 - elimini la 1 riga e la sostituisci con un numero progressivo.
5 - ordina le colonne dalla colonna A ( 1 riga ) dal piccolo al grande.
6 - riporti il tutto in blocco note e ri-sostituisci gli spazi con il punto e virgola.

 

[genios]

Non quadra id annuale a 291 . Bho

157;31/12/2022;37;30;15;9;44;72;75;21
158;03/01/2023;8;51;71;34;10;30;20;27

 

[Mike58]

Noooooo Genios indice annuale per gli archivi da allacciare con i codici FT non sono previsti.
Infatti io l'ho sostituito con il numero progressivo e così l'archivio viene allacciato e funziona.
le estrazioni in quell'archivio sono 291 e cosi le ho riportate partendo dal numero progressivo 1.

Ripeto i parametri per i File TXT sono 3
1 - numero progressivo
2 - data formato gg/mm/aaaa
3 - colonnna

 

[genios]

ma se prima funzionava con indici annuale adesso perche no ?

potresti trasformarmi l' archivio che ti ho postato ?

 

[Mike58]

Genios non capisco in cosa non ti trovi l'archivio che ti ho postato quello delle 291 estrazioni e quello che ti ho trasformato.
Io lo allaccio tranquillamente ed aggiornato.

 

[Mike58]

provo a ripostartelo