L
LuigiB
Guest
Ciao Magia , mi fa piacere rileggerti ! Sapere che ci sono utenti che contribuiscono attivamente fa sempre piacere ! Un saluto anche al mitico Amaretto ..è ovvio !
Per fare le mie prove non disponendo di archivi su file di testo ne ho prima creati 10 con
questo primo script che prende le 10 ruote del lotto e le trasforma in file di testo.
questo script non vi serve lo posto lo stesso per completezza.
Il secondo script invece è quello che lavora sui 10 file di testo creati dal primo ed è
quello che potrete modificare per le vostre esigenze.
Per fare le mie prove non disponendo di archivi su file di testo ne ho prima creati 10 con
questo primo script che prende le 10 ruote del lotto e le trasforma in file di testo.
questo script non vi serve lo posto lo stesso per completezza.
Il secondo script invece è quello che lavora sui 10 file di testo creati dal primo ed è
quello che potrete modificare per le vostre esigenze.
Codice:
Option Explicit
Sub Main
Dim r,e,id,nEstr
Dim sFile
Dim aN
Dim sBuf
Call CreaDirectory (GetDirectoryAppData & "ArchiviTxt\")
For r = 1 To 10
sFile = GetDirectoryAppData & "ArchiviTxt\Ruota" & r & ".txt"
EliminaFile(sFile)
For id = EstrazioneIni To EstrazioneFin
nEstr = nEstr + 1
Call GetArrayNumeriRuota(id,r,aN)
sBuf = nEstr & ";" & DataEstrazione(id,,,"/") & ";" & StringaNumeri(aN,";")
Call ScriviFile(sFile,sBuf)
Next
Call CloseAllFileHandle
Next
MsgBox "Fine"
End Sub
Codice:
Option Explicit
Sub Main
Dim aN
ReDim aCol(2)
Dim RitMax,Rit
Dim sAmbo
Dim r
Dim nFatte,nDaFare
Dim sFile
Dim MaxArchivi
Dim nComb
aN = GetNumPerSviluppo ' attenzione tornano 90 numeri non 46 ! se bisogna sviluppare meno numeri
' creare una funzione che torna un array Redim aN(46) an(1) =1 .... an(46) = 46
nComb = Combinazioni ( 90 ,2)
MaxArchivi = 10 ' 10 file di testo
nDaFare = nComb * MaxArchivi
For r = 1 To MaxArchivi
sFile = GetDirectoryAppData & "ArchiviTxt\Ruota" & r & ".txt"
Call ApriBaseDatiFT(sFile,5)
Call InitSviluppoIntegrale(aN,2)
Do While GetCombSviluppo(aCol)
Rit = AmboRitardoFT(aCol(1),aCol(2),1,EstrazioniArchivioFT)
If Rit > RitMax Then
RitMax = Rit
sAmbo = StringaNumeri(aCol) & " " & "Ruota" & r & ".txt"
ElseIf Rit = RitMax Then
sAmbo = sAmbo & vbCrLf & StringaNumeri(aCol) & " " & "Ruota" & r & ".txt"
End If
nFatte = nFatte + 1
Call AvanzamentoElab(1,nDaFare,nFatte)
If ScriptInterrotto Then Exit Sub
Loop
Next
Call Scrivi("L'ambo col maggiore ritardo è : " & vbCrLf & sAmbo & vbCrLf & " al ritardo di " & RitMax & " estrazioni")
End Sub
