Ricerca lunghette

[Nikor]

Ho letto in ritardo , mentre stavo scrivendo la risposta di Claudio, pazienza Nikor.

 

[claudio8]

Non riesco a caricare nulla nella sez. Analisi potreste dirmi se a voi funge tutto?



grazie

 

[LuigiB]

Ciao Claudio no c'è un problema che devo risolvere ...

 

[mister1729]

Un grazie per Claudio e Nikor per l'aiuto .
Ps. tutto a posto funge!

 

[mirapep]

Buongiorno,
ho realizzato una utility che , con l'impiego di matrici, trasforma l'archivio reale. I ritardi sembrano in linea con quelli reali. In questo modo, grazie al programma di Luigi, si potrebbero rinvenire nuove opportunità di gioco

Dim l As Single, a As String, j As String, y As Long, p As Long, p1 As Long, p2 As Long

j = ""

Open "C:\Documents and Settings\Pippo\Dati applicazioni\ArchiviRotanti\Estr1.txt" For Output As #5 ' File archivio fittizio

Open "c:\Documents and Settings\Pippo\Dati applicazioni\ArchiviRotanti\Estrazioni.txt" For Input As 1 ' File archivio Reale

While Not EOF(1)
Line Input #1, a
y = y + 1
p2 = 0
If y > 90 Then y = 1
j = j + Left(a, 15)
For l = 16 To Len(a) Step 3
p = Val(Mid(a, l, 3))
p2 = p2 + 1
If p > 0 Then
p1 = p + x(1, y) ' impiego la matrice nr. 1 per creare l'archivio
If p1 > 90 Then p1 = p1 - 90
If p2 < 55 Then
j = j + ForNumero(p1, 2) + ";" ' Crea la formattazione compatibile con Ricerca Lunghette
Else
j = j + ForNumero(p1, 2)
End If
Else
j = j + Mid(a, l, 3)
End If
Next

Print #5, j
j = ""

Wend

Close #1

Close #5




Questo lo storico, cinquina per ambo per coppie di ruote. Ovviamente, la cinquina che si sceglie per il gioco va trasformata ad ogni estrazione.

 

[LuigiB]

Per farlo usare devi trasformare in script o dirgli di usare l'ambiente vba di excel ....non tutti hanno vb6 ...
o ....secondo me potrresti mettere direttamente il file ...e dare spunti a chi vuole studiarci su ...

Ciao ...

 

[mirapep]

Ciao Luigi, lo sai che riesco a fare l'essenziale. Di archivi se ne possono creare in migliaia e poi occorre la routine di trasformazione per risalire ai numeri da giocare effettivamente. Per mio uso personale è stato facilissimo ma per un distribuibile non sono capace. Se c'è un bravo scripter interessato posso dargli tutte le istruzioni necessarie

 

[LuigiB]

non è poi cosi difficile , senza fare nulla basta far girare questo codice nel vba di excel e girerà perfettamente . forse non tutti hanno il file di partenzza delle estrazioni .. mo non mi va di aprire il portatile dove ho xp e ricercare dove sta archivi rotanti... quindi il file non ce l'ho manco io e non ricordo come sia ...s e lo posti t i aiuto in modo piu specifico.

per trasformarlo in script è banalissimo .... posta il file e ti faccio vedere ...

 

[LuigiB]

manca pero la matrice ... dove vai ad alimentare X.

 

[mirapep]

Quale file?
Io utilizzo la directory di archivi rotanti solo perchè mi aggiorna l'archivio lotto e per le matrici. Lo sai che ogni matrice contiene 90 numeri.
Trasformazione Archivio:
Apro il file archivio, dalla prima estrazione sommo agli estratti, diversi da 0, il primo numero della matrice con il fuori 90, alla seconda estrazione sommo il secondo numero della matrice............fino all'estrazione nr, 90, All'estrazione nr. 91 sommo il primo numero della matrice..............La procedura fino all'ultima estrazione dove dovrò memorizzare anche l'ultima posizione della matrice utilizzata, questo perchè servirà per risalire ai numeri effettivamente da giocare. Ammettiamo che l'ultima posizione della matrice utilizzata è la 15 e io voglio giocare il numero 75 dell'archivio fittizio , per ottenere il numero effettivamente da giocare:

75+90-il numero che si trova alla posizione 16 della matrice (facciamo che sia il 18)
165-18=147 con il fuori 90 il numero da giocare sarà il 57

Così se uno scripter vuole provarci ha già le istruzioni

 

[LuigiB]

ti devi levare il vizio di usare il + per concatenare le stringhe ... funziona ma va usato & senno non ci si capisce niente specie se usi variabili non parlanti

 

[mirapep]

Devo assentarmi, per eventuali risvolti in serata
Ciao

 

[LuigiB]

ecco lo script che pero usa come base l'archivio di ricercalunghette cosi è piu comodo
l'unica cosa bisogna impostare il percorso , e valorizzare la matrice con una di proprio gradimento , attualmente solo per default ci sono i numeri da 1 a 90 consecutivi

Option Explicit
Sub Main
   Dim l,a,j,y,p,p1,p2
   Dim nPosIni 
   j = ""
   Dim sFileEstrazioni,sFileEstrazioniNew
   Dim aRighe,idRiga
   sFileEstrazioni = "C:\Users\luigi\Desktop\RicercaLunghette\Archivi\EstrazioniLotto.csv"
   sFileEstrazioniNew = sFileEstrazioni & ".new.csv"
   ' la matrice è di esempio numeri da 1 a 90 in successione
   ReDim x(1,90)
   For l = 1 To 90
      x(1,l) = l
   Next
   If EliminaFile(sFileEstrazioniNew) Then
      If LeggiRigheFileDiTesto(sFileEstrazioni,aRighe) Then
         For idRiga = 1  To   UBound(aRighe)
            a = Trim(aRighe(idRiga))
            If a <> "" Then
               nPosIni =0
               For l = 1 To 3
                  nPosIni = InStr(nPosIni +1 , a,";" , vbTextCompare)
               Next
               
                 
               y = y + 1
               p2 = 0
               If y > 90 Then y = 1
               j = j & Left(a,nPosIni )
               For l = nPosIni +1 To Len(a) Step 3
                  p = CInt(Mid(a,l,2))
                  p2 = p2 + 1
                  If p > 0 Then
                     p1 = p + x(1,y) ' impiego la matrice nr. 1 per creare l'archivio
                     If p1 > 90 Then p1 = p1 - 90
                     If p2 < 55 Then
                        j = j & Format2(p1) & ";" ' Crea la formattazione compatibile con Ricerca Lunghette
                     Else
                        j = j & Format2(p1)
                     End If
                  Else
                     j = j & Mid(a,l,3)
                  End If
               Next
               Call ScriviFile(sFileEstrazioniNew,j,False)
               j = ""
            End If
            Call AvanzamentoElab(1,UBound(aRighe),idRiga)
         Next
         Call CloseAllFileHandle
         
         Scrivi "Ultimo indice : " & y 
         
      End If
   End If
End Sub

 

[Nikor]

Volevo chiedere gentilmente a qualcuno ( senza disturbare Luigi ) se potessero cortesemente farmi una verifica :

Range 5500/6000 estrazioni va bene anche un inetmdio tra i 2 valori, ruote tutte ( esclusa la Nazionale ) , ruote unite , 9 numeri per quaterna in ritardo ......... mi interessa sapere solo se a voi parte l'elaborazione.........

Ho installato l'ultimo aggiornamento e mi pare che con le versioni precedenti funzionava ......mi sembra invece di primo acchito che per i Max. inizi ad elaborare......
Grazie in anticipo, Nikor.

 

[Rosanna58]

Volevo chiedere gentilmente a qualcuno ( senza disturbare Luigi ) se potessero cortesemente farmi una verifica :

Range 5500/6000 estrazioni va bene anche un inetmdio tra i 2 valori, ruote tutte ( esclusa la Nazionale ) , ruote unite , 9 numeri per quaterna in ritardo ......... mi interessa sapere solo se a voi parte l'elaborazione.........

Ho installato l'ultimo aggiornamento e mi pare che con le versioni precedenti funzionava ......mi sembra invece di primo acchito che per i Max. inizi ad elaborare......
Grazie in anticipo, Nikor.

Buonasera Nikor, ho provato quello che hai chiesto usando un range di 5500 estrazioni, non solo non parte l'elaborazione ma si chiude il programma.

 

[Missione Impossibile.]

Buonasera Nikor, ho provato quello che hai chiesto usando un range di 5500 estrazioni, non solo non parte l'elaborazione ma si chiude il programma.

Idem

 

[Nikor]

Grazie a Rosanna & Batter ....eppure , almeno che io non sia andato in confusione mi sembrava anche se non ricordo proprio con esatezza che con l'aggiornamento 1.0.5 o giù di li che era partita l'elaborazione ....potrei anche sbagliarmi!

Confermo invece che parte per la ricerca dei Max. ....proverò a reinstallare......
Ancora grazie, Nikor.

 

[Missione Impossibile.]

 

[tiberio1]

Vedi l'allegato 2209646

Ragazzi per chi voglia dare una mano sul metodo libbra che ho postato in fondo al post cabalisrici ciclometrici grazie script per spaziometria serve

 

[claudio8]

Nikor
confermo con ritardo il programma si chiude, con rit. max funge vi aggiono tra 6 MESI