E' possibile utilizzare come file archivio estrazioni 10elotto5min un qualsiasi file txt? Se si come?

[lotto_tom75]

Ad esempio se volessi analizzare solo il file txt contenente tutte le estrazioni della giornata in corso...

perchè questo code mi da errore quando tento di leggere il file archivio 10elotto5minuti "custom" contenente ad esempio queste righe numeriche?

3.7.13.14.16.22.25.27.32.40.41.57.59.62.63.67.79.87.88.90
1.6.7.25.28.31.39.41.44.48.50.53.55.62.67.70.75.78.85.90
2.6.23.25.31.32.38.47.49.53.59.60.61.67.70.71.73.76.80.84
1.3.4.10.15.18.20.25.43.44.49.55.56.61.77.80.83.87.88.89
1.2.6.10.20.23.24.39.42.48.52.54.55.60.64.65.72.80.84.89
2.7.10.11.15.20.34.37.42.44.46.48.49.51.56.65.67.76.85.87
4.7.10.12.16.17.20.22.24.31.40.42.47.48.69.72.73.74.75.88
9.17.18.19.25.28.32.41.43.47.55.59.61.64.68.69.78.79.82.87
6.9.10.14.15.16.17.28.33.39.46.48.51.53.65.71.73.75.82.83
2.5.20.26.27.31.34.35.38.39.41.53.61.63.65.67.72.73.78.82
5.7.19.22.32.43.45.48.53.55.57.59.61.65.74.78.83.85.88.90
1.5.7.9.10.11.13.16.42.47.52.55.56.58.61.64.66.72.73.76
1.2.3.15.20.24.29.35.37.39.40.41.43.49.60.62.70.77.78.86
1.4.5.7.15.18.28.31.32.45.49.51.55.60.65.71.73.81.86.89

Option Explicit
Sub Main
   Dim sFileArchivio : sFileArchivio =  ".\" ' << il file che si carica qui contiene le estrazioni 10elotto5min da analizzare
   Call ApriBaseDatiFT(sFileArchivio,20,".",90)
   Dim Inizio,Fine : Inizio = 00001 : Fine = EstrazioniArchivioFT
   Dim nSorte : nSorte = 1
   Dim sFile : sFile = ScegliFile(".\")  ' << il file che si carica qui  contiene invece i 90 numeri uno sotto l'altro... 
   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

 

[druid]

Ciao lotto_tom75,
lo script si aspetta cmq un file archivio "tipizzato" (il formato e' cmq. questo):

01.02/01/2013.03.07.13.14.16.22.25.27.32.40.41.57.59.62.63.67.79.87.88.90
02.02/01/2013.01.06.07.25.28.31.39.41.44.48.50.53.55.62.67.70.75.78.85.90
03.02/01/2013.02.06.23.25.31.32.38.47.49.53.59.60.61.67.70.71.73.76.80.84
04.02/01/2013.01.03.04.10.15.18.20.25.43.44.49.55.56.61.77.80.83.87.88.89
05.02/01/2013.01.02.06.10.20.23.24.39.42.48.52.54.55.60.64.65.72.80.84.89
06.02/01/2013.02.07.10.11.15.20.34.37.42.44.46.48.49.51.56.65.67.76.85.87
07.02/01/2013.04.07.10.12.16.17.20.22.24.31.40.42.47.48.69.72.73.74.75.88
08.02/01/2013.09.17.18.19.25.28.32.41.43.47.55.59.61.64.68.69.78.79.82.87
09.02/01/2013.06.09.10.14.15.16.17.28.33.39.46.48.51.53.65.71.73.75.82.83
10.02/01/2013.02.05.20.26.27.31.34.35.38.39.41.53.61.63.65.67.72.73.78.82
11.02/01/2013.05.07.19.22.32.43.45.48.53.55.57.59.61.65.74.78.83.85.88.90
12.02/01/2013.01.05.07.09.10.11.13.16.42.47.52.55.56.58.61.64.66.72.73.76
13.02/01/2013.01.02.03.15.20.24.29.35.37.39.40.41.43.49.60.62.70.77.78.86
14.02/01/2013.01.04.05.07.15.18.28.31.32.45.49.51.55.60.65.71.73.81.86.89

Ho poi modificato - per il mio personale "modus operandi" - le prime righe:

Dim sFileArchivio
   sFileArchivio = GetDirectoryAppData & "ArchiviCustom\new9.txt"
 ' << il file che si carica qui contiene le estrazioni 10elotto5min da analizzare
   Call ApriBaseDatiFT(sFileArchivio,20,".",90)

Ciao

 

[lotto_tom75]

Ciao lotto_tom75,
lo script si aspetta cmq un file archivio "tipizzato" (il formato e' cmq. questo):

01.02/01/2013.03.07.13.14.16.22.25.27.32.40.41.57.59.62.63.67.79.87.88.90
02.02/01/2013.01.06.07.25.28.31.39.41.44.48.50.53.55.62.67.70.75.78.85.90
03.02/01/2013.02.06.23.25.31.32.38.47.49.53.59.60.61.67.70.71.73.76.80.84
04.02/01/2013.01.03.04.10.15.18.20.25.43.44.49.55.56.61.77.80.83.87.88.89
05.02/01/2013.01.02.06.10.20.23.24.39.42.48.52.54.55.60.64.65.72.80.84.89
06.02/01/2013.02.07.10.11.15.20.34.37.42.44.46.48.49.51.56.65.67.76.85.87
07.02/01/2013.04.07.10.12.16.17.20.22.24.31.40.42.47.48.69.72.73.74.75.88
08.02/01/2013.09.17.18.19.25.28.32.41.43.47.55.59.61.64.68.69.78.79.82.87
09.02/01/2013.06.09.10.14.15.16.17.28.33.39.46.48.51.53.65.71.73.75.82.83
10.02/01/2013.02.05.20.26.27.31.34.35.38.39.41.53.61.63.65.67.72.73.78.82
11.02/01/2013.05.07.19.22.32.43.45.48.53.55.57.59.61.65.74.78.83.85.88.90
12.02/01/2013.01.05.07.09.10.11.13.16.42.47.52.55.56.58.61.64.66.72.73.76
13.02/01/2013.01.02.03.15.20.24.29.35.37.39.40.41.43.49.60.62.70.77.78.86
14.02/01/2013.01.04.05.07.15.18.28.31.32.45.49.51.55.60.65.71.73.81.86.89

Ho poi modificato - per il mio personale "modus operandi" - le prime righe:

Dim sFileArchivio
   sFileArchivio = GetDirectoryAppData & "ArchiviCustom\new9.txt"
' << il file che si carica qui contiene le estrazioni 10elotto5min da analizzare
   Call ApriBaseDatiFT(sFileArchivio,20,".",90)

Ciao

Buongiorno druid grazie della tua risposta. Anche io avevo ipotizzato che la funzione

Call ApriBaseDatiFT(...)

implementasse dentro di se un formato specifico includente la data e il numero di riga in effetti...
ma speravo che così non fosse in modo tassativo... o che ci fosse comunque un modo "alternativo" di caricare come "archivio custom di estrazioni" un altro file txt contenente soltanto le singole righe degli estratti separati da un carattere qualsiasi (es. punto) una sotto l'altra... senza appunto nè numero di riga nè data di estrazione... per ognuna... proprio come l'esempio riportato poco sopra...

Che tu sappia è possibile ottenere e leggere questo tipo di "archivio virtuale 10elotto5min" custom di soli numeri usciti nel range 10elotto5min specificato (es. ultime 100 estrazioni)?

Thanks
Ciao

 

[lotto_tom75]

Forse sto riuscendo ad analizzare la parte di range temporale 10elotto5minuti desiderata per un'altra strada...

For es = Inizio To fine

Call GetEstrazioneCompletaDL(es,numeriestrazione)

For riga=0 To UBound(numeriestrazione)

Call Scrivi (numeriestrazione(riga),,False)

'Call Scrivi ("-")
'Call Scrivi ("<br>")
If (numeriestrazione(riga) = 1) Then
Call Scrivi ("<font color=red>"&numeriestrazione(riga)&"</font>",,False)
End If
Next

In questo caso però non riesco ad andare a capo dopo ogni 10 estratti della rispettiva estrazione...

Infatti con il code soprastante ottengo una riga unica.... con tutti gli estratti "appiccicati"

41017212426303842474956596566677273798862022254446505259666871727480828388899046121522232425262934374446556268

invece di ottenere un otput desiderato tipo questo.... (es. fittizio non corrispondente... all'archivio reale...)

4.10.17.21.24.26.30.38.42.47.
49.56.59.65.66.67.72.7.37.9.88.
6.20.22.25.44.4.65.5.25.9.66.68.
ecc...

In sostanza ottengo correttamente gli estratti per ogni estrazione 10elotto5minuti desiderata che sono raccolti nella matrice denominata numeriestrazione ma non riesco a visualizzarli separati dal carattere voluto e per righe di 10 elementi alla volta una sotto l'altra...

 

[lotto_tom75]

Non importa +...
Ce l'ho fatta autonomamente
Per chi interessasse ecco qui sotto come ho fatto ?

For es = Inizio To fine

Call GetEstrazioneCompletaDL(es,numeriestrazione)

For i = 1 To 1
For riga=0 To UBound(numeriestrazione)

Call Scrivi (numeriestrazione(riga)&".",,False)

next
Scrivi "-"
Next

Next

 

[genios]

LOTTO_TOM75 Per capire meglio potresti postare l' output del tuo script .

GRAZIE

 

[lotto_tom75]

LOTTO_TOM75 Per capire meglio potresti postare l' output del tuo script .

GRAZIE

[17660] [138] 04.04.2020 : .2.11.17.22.26.29.32.40.43.48.51.53.56.60.72.74.76.81.84.85.-
[17661] [139] 04.04.2020 : .1.7.8.10.11.22.24.27.35.39.41.48.50.51.53.55.72.86.88.90.-
[17662] [140] 04.04.2020 : .2.6.10.22.23.27.34.35.38.47.50.51.58.60.70.73.74.75.80.86.-
[17663] [141] 04.04.2020 : .12.15.18.19.20.29.37.38.42.45.50.52.54.57.58.66.67.75.76.81.-
[17664] [142] 04.04.2020 : .2.11.14.15.16.20.22.33.34.35.43.61.62.63.65.67.70.71.78.90.-
[17665] [143] 04.04.2020 : .1.12.16.21.23.26.28.30.34.37.51.55.56.58.64.65.84.86.88.89.-
[17666] [144] 04.04.2020 : .5.6.9.15.17.22.30.34.38.43.52.59.66.68.71.75.78.81.82.85.-
[17667] [145] 04.04.2020 : .4.6.7.9.14.16.27.33.37.39.41.48.53.58.60.63.65.70.76.77.-
[17668] [146] 04.04.2020 : .1.3.4.14.25.32.39.44.46.50.53.54.55.59.60.64.75.77.79.81.-
[17669] [147] 04.04.2020 : .2.10.13.14.15.18.27.33.38.41.47.48.49.50.52.53.65.68.73.89.-
[17670] [148] 04.04.2020 : .1.3.5.14.15.22.24.25.27.32.36.47.53.66.76.77.78.80.82.85.-
[17671] [149] 04.04.2020 : .1.3.7.11.21.28.32.34.36.45.46.47.50.51.56.61.67.75.76.78.-
[17672] [150] 04.04.2020 : .2.6.7.11.12.13.23.41.45.46.47.49.64.70.75.76.80.81.84.90.-
[17673] [151] 04.04.2020 : .1.3.18.25.29.31.37.38.40.48.54.60.61.64.66.67.70.73.81.87.-

Ciao