A.A.A. Cercasi software

[Joe91]

Ciao Ilegend,

Buona sera a tutte/i.

Giusto. Lo scopo era di verificare le possibilità/opportunità disponibili.

Editor per editor ... va bene anche quello di Spaziometria.

Ma se si dovesse impostare la soluzione secondo questa direttiva,

secondo me sarebbe opportuno avere una coppia di script.

Il primo con la stessa funzione del blocco note ...

ma che intereattivamente (con gli inputbox) può indicare all'utente quali dati inserire.

Ovvero quanti pronostici, quali date, quali numeri e quali ruote considerare.

Il secondo saprà o vorrà occuparsi di verificare i risultati degli imput,

che si sono memorizzati con l'aiuto del primo-script.

 

[Joe91]

.... "Il lettore" ... del secondo script

potrebbe essere simile a questo che ho ottenuto "riducendo"

quello contenuto tra gli esempi di Spaziometria.

Esso richiede (naturalmente) che sia presente un file di pronostici.

Nello specifico: "c:\temp\pronostici.txt"

Option Explicit
Sub Main
	Dim sFile
	Dim k,Valori
	'Dim nSorte,RetRit,RetRitMax,RetIncrRitMax,RetFreq,Inizio,Fine
	sFile = "c:\temp\pronostici.txt"
	Call Messaggio("Lettura file di testo")
	ReDim aRighe(0)
	Call LeggiRigheFileDiTesto(sFile,aRighe)
	For k = 0 To UBound(aRighe)
		If aRighe(k) <> "" Then
			Valori = aRighe(k)
			Call Scrivi(Valori)
		End If
	Next
End Sub

 

[i legend]

Buon giorno a tutti
Ciao joe
Ora ci serve la funzione che prende i numeri per caricarli in un arRay a due dimensioni uno per le ruote uno per gli estratti.
Avevamo scritto questa funzione utilizzando i separatori.
Es
11/12/2090 -(21.22.33.54.75)-[1.9.10]
Poi in teoria si potrebbè fare un ciclo per le ruote. Con due if
Se ci sono ruote comuni dopo
Se ci sono numeri comuni dopo
Scrivi ruote e numeri.

Solo a livello di ragionamento, che peccato non poter provare a scrivere il codice.
Ciao a dopo.

 

[Joe91]

Ok ... si,

avevo diviso "i valori" separandoli con un punto e

"i campi" con uno "slash" (la classica barra obliqua)

Quindi ho attuato 2 livelli successivi di separazione per ogni linea di testo.

La prima splitta la linea dividendola e separando "i campi".

La seconda separando "i valori" (contenuti nei campi)

Quindi, per provare il funzionamento, ho scritto una semplicissima giocata per i 3 colpi.

Option Explicit
Sub Main
Dim sFile
Dim k,Campi
Dim Es,Nu,Ru
Dim Po(5)
Po (1)= 1 : Po(2) = 1
'Dim nSorte,RetRit,RetRitMax,RetIncrRitMax,RetFreq,Inizio,Fine
sFile = "c:\temp\pronostici.txt"
Call Messaggio("Lettura file di testo")
ReDim aRighe(0)
Call LeggiRigheFileDiTesto(sFile,aRighe)
For k = 0 To UBound(aRighe)
If aRighe(k) <> "" Then
Campi = Split ("/"&aRighe(k),"/")
Es = Int(Campi(1))
Nu = Split ("0." & Campi(2),".")
Ru = Split ("0." & Campi(3),".")
Scrivi Es & Space(2),0,0
Scrivi FormatSpace(StringaNumeri(Nu,,True),20),0,0
Scrivi FormatSpace(StringaNumeri(Ru,,True),6,True),0,0
Scrivi
ImpostaGiocata 1,Nu,Ru,Po,3,2
Gioca Es
End If
Next
End Sub

 

[Joe91]

che produce (NB: puramente a caso)

_

 

[i legend]

Joe sei grande

 

[Joe91]

Ma che grande !?!

...solo un pochino sovrappeso.

 

[i legend]

Joe hihihohibihihihi
Buon pranzo
Ciao a dopo.

 

[Alien.]

Ok ... si,

avevo diviso "i valori" separandoli con un punto e

"i campi" con uno "slash" (la classica barra obliqua)

Quindi ho attuato 2 livelli successivi di separazione per ogni linea di testo.

La prima splitta la linea dividendola e separando "i campi".

La seconda separando "i valori" (contenuti nei campi)

Quindi, per provare il funzionamento, ho scritto una semplicissima giocata per i 3 colpi.

Option Explicit
Sub Main
Dim sFile
Dim k,Campi
Dim Es,Nu,Ru
Dim Po(5)
Po (1)= 1 : Po(2) = 1
'Dim nSorte,RetRit,RetRitMax,RetIncrRitMax,RetFreq,Inizio,Fine
sFile = "c:\temp\pronostici.txt"
Call Messaggio("Lettura file di testo")
ReDim aRighe(0)
Call LeggiRigheFileDiTesto(sFile,aRighe)
For k = 0 To UBound(aRighe)
If aRighe(k) <> "" Then
Campi = Split ("/"&aRighe(k),"/")
Es = Int(Campi(1))
Nu = Split ("0." & Campi(2),".")
Ru = Split ("0." & Campi(3),".")
Scrivi Es & Space(2),0,0
Scrivi FormatSpace(StringaNumeri(Nu,,True),20),0,0
Scrivi FormatSpace(StringaNumeri(Ru,,True),6,True),0,0
Scrivi
ImpostaGiocata 1,Nu,Ru,Po,3,2
Gioca Es
End If
Next
End Sub

è COME MAI MI DA IL RISULTATO UNA PAGINA TUTTA BIANCA? GRAZIE CIAO

 

[Joe91]

Ciao Alien.

Probabilmente non hai inserito i pronostici.

Ma ... per ora non è operazione semplice.

Quindi ti conviene aspettare che ci sia

lo script per farlo.

 

[i legend]

Ciao alien lo script non è ancora finito.per funzionare ha bisogno di un foglio d appoggio dove sono inseriti i pronostici.
In pratica su un test editor Scrivi i tuoi pronostici
Rispettando delle regole di scrittura (es spazi e divisori.)
Poi questo script lo richiama. E lo analizza evidenziando ciò che è sortito se è sortito.
Ora joe sta costruendo lo scheletro dello script per rendere chiari i passaggi a tutti.
Poi si possono fare le finezze.
Esempio per richiamare il foglio si può utilizzare ScegliFile ( GetDirectoryAppData. .....ecc) così uno lo salva dove vuole ed è più facile andarlo a prendere.
Ci vuole Pazienza un passo alla volta per poter assimilare bene il codice.
Intanto Buon lavoro a joe e a tutti .
Buona domenica

Ciao