Come trasformare questo script per il l8 in uno analogo per md?

[lotto_tom75]

Chi riesce a trasformare questo script che analizza in modo integrale un file txt per il lotto in uno analogo x million day?

Option Explicit

Sub Main

Dim sFile

Dim k,y

Dim nSorte,RetRit,RetRitMax,RetIncrRitMax,Inizio,Fine,RetFreq

sFile = ScegliFile("c:\lunghette",".txt","lunghette.txt")

'Inizio = 1

'Fine = 8647

ReDim aRuote(1)
'aRuote(1) = BA_
'aRuote(2) = CA_
'aRuote(3) = FI_
'aRuote(4) = GE_
'aRuote(5) = MI_
'aRuote(6) = NA_
'aRuote(7) = PA_
'aRuote(8) = RO_
'aRuote(9) = TO_
'aRuote(10) = VE_
'aRuote(11) = NZ_

aRuote(1) = TT_

nSorte = 5

Call Messaggio("Lettura file di testo")

ReDim aRighe(0)

Call LeggiRigheFileDiTesto(sFile,aRighe)

For k = 0 To UBound(aRighe)

If aRighe(k) <> "" Then

ReDim aNum(0)

Call SplitByChar("." & aRighe(k),".",aNum)

Call StatisticaFormazioneTurbo(aNum,aRuote,nSorte,RetRit,RetRitMax,RetIncrRitMax,RetFreq,Inizio,Fine)


RetRit = RitardoCombinazioneTurbo(aRuote,aNum,nSorte,Fine)

Dim Diff

Diff = RetRitMax - RetRit

If(Diff = 0 And RetIncrRitMax <= 10) Then

Call Messaggio("Trovata! :) con incmax: " & RetIncrRitMax & " e con freq: " & RetFreq)

Call Scrivi(aRighe(k) & " ra : " & RetRit & " rs: " & RetRitMax & " incmax: " & RetIncrRitMax & " diff: " & Diff & "freq: " & RetFreq)

End If
End If

If k Mod 100 = 0 Then

Call Messaggio("Colonna : " & k)

If ScriptInterrotto Then Exit For

Call AvanzamentoElab(0,UBound(aRighe),k)

End If

Next

End Sub

Credo che, se qualcuno/a lo riuscisse a realizzare, poi dandogli in pasto un file txt md doc o anche il semplice archivio md composto solo dalle formazioni numeriche potrebbe essere molto utile anche con un archivio molto ridotto... come quello attuale

 

[lotto_tom75]

Io per adesso ho provato a far girare questo "codice" depurato dalla parte l8...

Option Explicit

Sub Main

Dim sFile

Dim k,y

Dim nSorte,RetRit,RetRitMax,RetIncrRitMax,Inizio,Fine,RetFreq

sFile = ScegliFile("c:\lunghette",".txt","lunghette.txt")


nSorte = 2

Call Messaggio("Lettura file di testo")

ReDim aRighe(0)

Call LeggiRigheFileDiTesto(sFile,aRighe)

For k = 0 To UBound(aRighe)

If aRighe(k) <> "" Then

ReDim aNum(0)

Call SplitByChar("." & aRighe(k),".",aNum)

Dim Diff

Diff = RetRitMax - RetRit


If(Diff = 0 And RetIncrRitMax <= 10) Then

Call Messaggio("Trovata! :) con incmax: " & RetIncrRitMax & " e con freq: " & RetFreq)

Call Scrivi(aRighe(k) & " ra : " & RetRit & " rs: " & RetRitMax & " incmax: " &

RetIncrRitMax & " diff: " & Diff & "freq: " & RetFreq)

End If

End If

If k Mod 100 = 0 Then

Call Messaggio("Colonna : " & k)

If ScriptInterrotto Then Exit For

Call AvanzamentoElab(0,UBound(aRighe),k)

End If

Next

End Sub

E sembra funzioni... ma non ho la minima idea di come poter "agganciare" l'archivio million day per il confronto... tra il file txt che viene letto correttamente e quello appunto...
Non riesco a trovare nemmeno la funzione StatisticaFormazioneTurbo x md o similare che si adatti per questa analisi.

Per fargli leggere l'archivio md guardando gli altri script finora creati avrei trovato questa.. ma ignoro completamente come poter confrontare i due files txt (archivio md e file txt) senza l'apposita funzione che molto probabilmente per adesso manca.

Dim sFilearchivio
sFilearchivio = ScegliFile(GetDirectoryAppData,".txt")
Call ApriBaseDatiFT(sFilearchivio,05,";",55)

 

[Membro cancellato 16574]

Buonanotte,
Salutandola , provi a verificare il listato modificato .

Option Explicit
Sub Main
   Dim sFileArchivio : sFileArchivio = GetDirectoryAppData & "Archivio MillionDAY\MillionDayMD.txt"
   Call ApriBaseDatiFT(sFileArchivio,05,";",55)
   Dim Inizio,Fine : Inizio = 00001 : Fine = EstrazioniArchivioFT
   Dim nSorte : nSorte = 2
   Dim sFile : sFile = ScegliFile("c:\lunghette",".txt","lunghette.txt")
   Dim k,y
   Dim RetRit,RetRitMax,RetIncrRitMax,RetFreq
   Call Messaggio("Lettura file di testo")
   ReDim aRighe(00)
   Call LeggiRigheFileDiTesto(sFile,aRighe)
   For k = 0 To UBound(aRighe)
      If aRighe(k) <> "" Then
         ReDim aNum(10) : Call SplitByChar("." & aRighe(k),".",aNum)
         Call StatisticaFormazioneFT(aNum,nSorte,RetRit,RetRitMax,RetIncrRitMax,RetFreq,Inizio,Fine)
         RetRit = RitardoCombinazioneFT(aNum,nSorte,Fine)
         Dim Diff
         Diff = RetRitMax - RetRit
         If(Diff = 00 And RetIncrRitMax <= 10) Then
            Call Messaggio("Trovata! :) con incmax: " & RetIncrRitMax & " e con freq: " & RetFreq)
            Call Scrivi(aRighe(k) & " ra : " & RetRit & " rs: " & RetRitMax & " incmax: " & RetIncrRitMax & " diff: " & Diff & "freq: " & RetFreq)
         End If
      End If
      If k Mod 100 = 000 Then
         Call Messaggio("Colonna : " & k)
         If ScriptInterrotto Then Exit For
         Call AvanzamentoElab(00,UBound(aRighe),k)
      End If
   Next
End Sub

Controllare Sempre .
Salvo errori ed Omissis .

 

[lotto_tom75]

Sei proprio magico... magia!!! Grazieee!!! Funzia perfettamente!!!