Help File txt

[i legend]

Ciao a tutti.
Ho utilizzato sistemi condizionati e ho ottenuto un file che sviluppa attraverso filtri nNum in cinquine.


Ora vorrei tramite script poter analizzare le colonne sviluppate e farne la statistica. Sarebbe possibile avere degli esempi? Grazie mille.
es:
01 03 05 07 09
01 03 05 07 11
ecc.ecc

Quindi devo leggere il file txt
Dovrei dichiarare un Array : es aComb(800)
for k=1 to ubound (aComb)
'codice
next
P.s: non so che funzioni utilizzare.
Ciao

 

[Mike58]

Ciao I legend, io con questo script analizzo un file di testo e poi ricavo dei dati.
questo script lo avevo sviluppato per un file esterno 10 e lotto con un flle di 10 numeri con split carattere " ".

Sono sicuro che riuscirai a venirne a capo per i tuoi scopi.

ciao prova ti posto lo script e il file di testo

'Option Explicit
Class clsCombinazione
	Private aNumeri
	Function SetNumeriFromRiga(sRiga,sChrSep)
		Dim k,nUpper
		ReDim aV(0)
		Call SplitByChar(sRiga," ",aV) ' questa e la riga di split carattere
		nUpper = 0
		ReDim aNumeri(nUpper)
		For k = 0 To UBound(aV)
			If IsNumeric(aV(k)) Then
				If isNumeroValidoLotto(CInt(aV(k))) Then
					nUpper = nUpper + 1
					ReDim Preserve aNumeri(nUpper)
					aNumeri(nUpper) = CInt(aV(k))
				End If
			End If
		Next
		If nUpper > 0 Then
			SetNumeriFromRiga = True
		Else
			SetNumeriFromRiga = False
		End If
	End Function
	Sub GetArrayNumeri(aNum)
		aNum = aNumeri
	End Sub
End Class
Sub AlimentaCollComb(sFile,Coll,sChrSep)
	Dim k
	Dim clsComb
	Set Coll = GetNewCollection
	ReDim aRighe(0)
	Call LeggiRigheFileDiTesto 	(sFile,aRighe)
	For k = 0 To UBound(aRighe)
		Set clsComb = New clsCombinazione
		If clsComb.SetNumeriFromRiga(aRighe(k),sChrSep) Then
			Coll.Add clsComb
		End If
	Next
End Sub
Sub Main
	Dim sFileCombinazioni
	Dim sDirDef
	Dim CollCombinazioni
	Dim clsComb
	Dim aNumeri
	
	
	sDirDef = GetDirectoryAppData
	sFileCombinazioni = ScegliFile(sDirDef,".txt")
	Call AlimentaCollComb(sFileCombinazioni,CollCombinazioni,".")
	
	' ciclo su tutte le combinazioni da analizzare
	For Each clsComb In CollCombinazioni
	kn = kn + 1
		Call clsComb.GetArrayNumeri(aNumeri)
		' ora abbiamo i numeri della combinazione corrente
		
		' semplicemente per esempio scrivo la stringa numeri ma in un caso reale
		' qui mettero il codice che lavora con la combinazione corrente
	ImpostaArchivio10ELotto(1) ' analizzo archivio 10 e lotto
	fin = EstrazioniArchivio
	
		
		
		
		
		Call VerificaEsitoDL(aNumeri,fin,1,1,esito,,estratti,id)
		Call Scrivi(FormatSpace(kn,2) & vbTab & StringaNumeri(aNumeri,,True),0,0)
		If esito = "Cinquina" Then
		ColoreTesto 2
		Scrivi vbTab & estratti	 & vbTab & esito,1
		Else
		ColoreTesto 0
		Scrivi vbTab & estratti	 & vbTab & esito
		End If
		
	Next
	Scrivi
	Scrivi "ultima colonna estratta.... " & StringaEstrattiDL(fin),1,1,,1,2
End Sub

Vedi l'allegato adispo.txt

 

[i legend]

Ciao Mike lo provo ,spero di arrivarci.
Se no ti chiedo delucidazioni, grazie mille