Aiuto x ciclo For Next

[fillotto]

Ho il sottonotato script si tratta di un tabellone analitico del lotto svizzero quindi vengono usati archivi specifici fatti da me ( trattasi di 7 archivi di cui uno originale e altri 6 diciamo cosi virtuali ) con istruzioni FT. Nello script originario avevo messo la scelta dell'archivio ( in rosso ora remmato ) .ora per avere la visione analitica di tutti e 7 gli archivi ho aggiunto le istuzione del ciclo for (in verde) .nella versione con scelta della sez (ovvero ruota o archivio) tutto funzionava ma ovviamente una sez alla volta , ora con il ciclo for per avere le7 sez funziona soltanto parzialmente nel senso che mi da giusta la sez 1 le altre sollo parzialmente
Tabellone analitico SVIZZERA all'estrazione del 29.02.2020 (Stralcio prima sez --gusta)

29.02.2020 0 08 14 20 24 37 42 08.14.20.24.37.42
26.02.2020 1 -- 09 21 -- 28 36 08.09.21.24.28.36
22.02.2020 2 07 19 22 39 40 -- 07.19.22.39.40.42
19.02.2020 3 -- 10 15 17 -- -- 09.10.15.17.19.36
15.02.2020 4 -- -- 16 31 -- 41 09.14.16.31.36.41
Tabellone analitico SVIZZERA all'estrazione del 29.02.2020 (così ila 2 a 3a ecc sez)

29.02.2020 0 -- -- -- -- -- -- 42.06.12.16.29.34
26.02.2020 1 -- -- -- -- -- -- 01.02.14.17.21.29
22.02.2020 2 -- -- -- -- -- -- 40.10.13.30.31.33
19.02.2020 3 -- -- -- -- -- -- 42.01.06.08.10.27
15.02.2020 4 -- -- -- -- -- -- 04.09.11.26.31.36
DOMANDA come avere tutte le sez apposto?

Sub Main()
'Tabellone Analitico " Svizzera
Dim NU(42)
Dim Ini,fin,Qe,p,A,K,Riga,es,Ep
Dim archFill
Dim sFile
Dim sez
Dim sfilearchivio
'sez = InputBox("Quale Arc Virtuale vuoi prendere in considerazione (Arc 1 ORIG) ? "," 1 - 7 ",1)
For sez = 1 To 7
sfilearchivio = GetDirectoryAppData & "Svizzera\svizz" & sez & ".txt"
Call ApriBaseDatiFT(sfilearchivio,06,",",42)

Qe = CInt(InputBox("Quante estrazioni vuoi esaminare ?","Estrazioni",60) - 1)
Ep = CInt(InputBox("Quante estrazioni Prima dell' ultima mi fermo ?","Prima",0))
fin = EstrazioniArchivioFT - Ep
Ini = fin - Qe
Scrivi "Tabellone analitico SVIZZERA all'estrazione del " & DataEstrazioneFT(fin),1
Scrivi ""
For es = fin To Ini Step - 1
Messaggio CStr(es)
Riga = FormatSpace(fin - es,3) & Space(3)
For p = 1 To 6
A = EstrattoFT(es,p)
If NU(A) = "" Then
Riga = Riga + Format2(A) & " "
NU(A) = A
K = K + 1
Else
Riga = Riga + "-- "
End If
Next
Riga = Riga + " "
Scrivi DataEstrazioneFT(es) & Space(2),0,0
Scrivi CStr(Riga) & Space(3),0,0
Scrivi StringaEstrattiFT(es)
Next
Next

End Sub

 

[druid]

Buongiorno Fillotto, se non ci sono problemi nel codice (al momento non ho tempo per analizzarlo bene) l' unica problema potrebbe essere l'errata inizializzazione delle variabili, nel senso che dopo il primo ciclo il vb potrebbe mantenere in memoria determinati valori dandoti dei risultati errati, dovresti rinizializzare le variabili ad ogni ciclo.....
Spero di essere stato chiaro.
Ciao

 

[fillotto]

il primo Archivio (sez) lo fa bene. Sono gli altri che,seppure prendendo in considerazione i relativi archivi, mette le relatve 60 estrazioni così comeper la realizzazione del primo archivio ma non il vero conto analitico di questi ultimi 6
Tabellone analitico SVIZZERA all'estrazione del 29.02.2020 Archivio 1

29.02.2020 0 08 14 20 24 37 42 08.14.20.24.37.42
26.02.2020 1 -- 09 21 -- 28 36 08.09.21.24.28.36
22.02.2020 2 07 19 22 39 40 -- 07.19.22.39.40.42
19.02.2020 3 -- 10 15 17 -- -- 09.10.15.17.19.36
15.02.2020 4 -- -- 16 31 -- 41 09.14.16.31.36.41
12.02.2020 5 05 -- -- 32 35 -- 05.14.24.32.35.39
08.02.2020 6 03 -- 26 -- -- -- 03.24.26.37.40.42
05.02.2020 7 -- 13 18 -- -- -- 09.13.18.28.36.41
01.02.2020 8 -- -- -- -- 29 -- 05.10.13.28.29.35
29.01.2020 9 -- -- -- -- -- -- 08.17.19.22.32.40
25.01.2020 10 -- -- 12 -- -- -- 05.08.12.39.40.42
22.01.2020 11 06 -- 23 -- -- -- 06.16.23.24.31.36
18.01.2020 12 -- -- -- -- -- -- 03.07.09.20.32.42
15.01.2020 13 11 -- -- -- 25 -- 11.13.19.20.25.29
11.01.2020 14 -- -- -- -- 34 -- 07.08.29.31.34.37
08.01.2020 15 -- -- -- -- -- 38 06.11.17.21.35.38
04.01.2020 16 -- -- -- -- -- -- 06.15.16.24.32.41
01.01.2020 17 02 -- -- 33 -- -- 02.10.11.33.36.41
28.12.2019 18 01 -- -- -- -- -- 01.11.13.14.20.36
25.12.2019 19 -- -- -- -- -- -- 03.09.11.15.40.42
21.12.2019 20 -- -- -- -- -- 27 01.02.17.18.22.27
18.12.2019 21 04 -- -- -- -- 30 04.06.14.18.22.30
14.12.2019 22 -- -- -- -- -- -- 05.08.12.18.27.32
11.12.2019 23 -- -- -- -- -- -- 23.26.28.30.31.41
07.12.2019 24 -- -- -- -- -- -- 05.09.26.28.30.35
04.12.2019 25 -- -- -- -- -- -- 01.05.18.21.29.36
30.11.2019 26 -- -- -- -- -- -- 02.07.11.22.32.35
27.11.2019 27 -- -- -- -- -- -- 01.16.23.30.31.32
23.11.2019 28 -- -- -- -- -- -- 02.15.23.29.34.36
20.11.2019 29 -- -- -- -- -- -- 10.14.16.27.33.35
16.11.2019 30 -- -- -- -- -- -- 10.19.25.29.38.40
13.11.2019 31 -- -- -- -- -- -- 07.16.18.26.35.40
09.11.2019 32 -- -- -- -- -- -- 03.17.24.27.31.37
06.11.2019 33 -- -- -- -- -- -- 03.11.14.19.26.40
02.11.2019 34 -- -- -- -- -- -- 02.03.05.26.30.39
30.10.2019 35 -- -- -- -- -- -- 07.10.11.13.26.31
26.10.2019 36 -- -- -- -- -- -- 14.16.17.26.31.40
23.10.2019 37 -- -- -- -- -- -- 03.17.19.23.26.31
19.10.2019 38 -- -- -- -- -- -- 09.15.18.28.37.40
16.10.2019 39 -- -- -- -- -- -- 07.09.12.16.40.42
12.10.2019 40 -- -- -- -- -- -- 04.11.16.19.25.31
09.10.2019 41 -- -- -- -- -- -- 01.05.07.21.34.39
05.10.2019 42 -- -- -- -- -- -- 01.09.12.20.23.42
02.10.2019 43 -- -- -- -- -- -- 18.20.24.25.33.39
28.09.2019 44 -- -- -- -- -- -- 07.12.15.16.26.31
25.09.2019 45 -- -- -- -- -- -- 02.15.21.35.36.41
21.09.2019 46 -- -- -- -- -- -- 05.14.19.23.28.40
18.09.2019 47 -- -- -- -- -- -- 03.07.12.17.24.40
14.09.2019 48 -- -- -- -- -- -- 11.14.15.21.26.32
11.09.2019 49 -- -- -- -- -- -- 11.15.21.23.24.37
07.09.2019 50 -- -- -- -- -- -- 05.11.12.16.36.41
04.09.2019 51 -- -- -- -- -- -- 04.10.21.25.30.38
31.08.2019 52 -- -- -- -- -- -- 08.14.17.37.38.39
28.08.2019 53 -- -- -- -- -- -- 02.06.15.26.28.36
24.08.2019 54 -- -- -- -- -- -- 04.13.18.25.26.30
21.08.2019 55 -- -- -- -- -- -- 05.06.18.33.36.40
17.08.2019 56 -- -- -- -- -- -- 02.05.07.18.34.37
14.08.2019 57 -- -- -- -- -- -- 05.09.12.17.20.42
10.08.2019 58 -- -- -- -- -- -- 07.17.27.29.36.42
07.08.2019 59 -- -- -- -- -- -- 01.03.05.10.14.34

Tabellone analitico SVIZZERA all'estrazione del 29.02.2020 Archivio 2

29.02.2020 0 -- -- -- -- -- -- 42.06.12.16.29.34
26.02.2020 1 -- -- -- -- -- -- 01.02.14.17.21.29
22.02.2020 2 -- -- -- -- -- -- 40.10.13.30.31.33
19.02.2020 3 -- -- -- -- -- -- 42.01.06.08.10.27
15.02.2020 4 -- -- -- -- -- -- 04.09.11.26.31.36
12.02.2020 5 -- -- -- -- -- -- 02.11.21.29.32.36
08.02.2020 6 -- -- -- -- -- -- 36.15.17.28.31.33
05.02.2020 7 -- -- -- -- -- -- 04.08.13.23.31.36
01.02.2020 8 -- -- -- -- -- -- 39.02.05.20.21.27
29.01.2020 9 -- -- -- -- -- -- 03.12.14.17.27.35
25.01.2020 10 -- -- -- -- -- -- 41.02.06.33.34.36
22.01.2020 11 -- -- -- -- -- -- 03.13.20.21.28.33
18.01.2020 12 -- -- -- -- -- -- 34.38.40.09.21.31
15.01.2020 13 -- -- -- -- -- -- 04.06.12.13.18.22
11.01.2020 14 -- -- -- -- -- -- 01.02.23.25.28.31
08.01.2020 15 -- -- -- -- -- -- 42.05.11.15.29.32
04.01.2020 16 -- -- -- -- -- -- 04.13.14.22.30.39
01.01.2020 17 -- -- -- -- -- -- 01.09.10.32.35.40
28.12.2019 18 -- -- -- -- -- -- 40.08.10.11.17.33
25.12.2019 19 -- -- -- -- -- -- 02.08.10.14.39.41
21.12.2019 20 -- -- -- -- -- -- 39.40.13.14.18.23
18.12.2019 21 -- -- -- -- -- -- 41.01.09.13.17.25
14.12.2019 22 -- -- -- -- -- -- 24.27.31.37.04.09
11.12.2019 23 -- -- -- -- -- -- 18.21.23.25.26.36
07.12.2019 24 -- -- -- -- -- -- 04.08.25.27.29.34
04.12.2019 25 -- -- -- -- -- -- 41.03.16.19.27.34
30.11.2019 26 -- -- -- -- -- -- 01.06.10.21.31.34
27.11.2019 27 -- -- -- -- -- -- 41.14.21.28.29.30
23.11.2019 28 -- -- -- -- -- -- 34.05.13.19.24.26
20.11.2019 29 -- -- -- -- -- -- 42.04.06.17.23.25
16.11.2019 30 -- -- -- -- -- -- 03.12.18.22.31.33
13.11.2019 31 -- -- -- -- -- -- 04.13.15.23.32.37
09.11.2019 32 -- -- -- -- -- -- 42.14.21.24.28.34
06.11.2019 33 -- -- -- -- -- -- 01.09.12.17.24.38
02.11.2019 34 -- -- -- -- -- -- 37.38.40.19.23.32
30.10.2019 35 -- -- -- -- -- -- 35.38.39.41.12.17
26.10.2019 36 -- -- -- -- -- -- 11.13.14.23.28.37
23.10.2019 37 -- -- -- -- -- -- 36.08.10.14.17.22
19.10.2019 38 -- -- -- -- -- -- 02.08.11.21.30.33
16.10.2019 39 -- -- -- -- -- -- 03.05.08.12.36.38
12.10.2019 40 -- -- -- -- -- -- 03.10.15.18.24.30
09.10.2019 41 -- -- -- -- -- -- 42.04.06.20.33.38
05.10.2019 42 -- -- -- -- -- -- 25.33.36.02.05.24
02.10.2019 43 -- -- -- -- -- -- 11.13.17.18.26.32
28.09.2019 44 -- -- -- -- -- -- 05.10.13.14.24.29
25.09.2019 45 -- -- -- -- -- -- 39.10.16.30.31.36
21.09.2019 46 -- -- -- -- -- -- 02.11.16.20.25.37
18.09.2019 47 -- -- -- -- -- -- 34.38.01.06.13.29
14.09.2019 48 -- -- -- -- -- -- 42.03.04.10.15.21
11.09.2019 49 -- -- -- -- -- -- 06.10.16.18.19.32
07.09.2019 50 -- -- -- -- -- -- 01.07.08.12.32.37
04.09.2019 51 -- -- -- -- -- -- 38.02.13.17.22.30
31.08.2019 52 -- -- -- -- -- -- 06.12.15.35.36.37
28.08.2019 53 -- -- -- -- -- -- 40.02.11.22.24.32
24.08.2019 54 -- -- -- -- -- -- 41.08.13.20.21.25
21.08.2019 55 -- -- -- -- -- -- 03.04.16.31.34.38
17.08.2019 56 -- -- -- -- -- -- 39.42.02.13.29.32
14.08.2019 57 -- -- -- -- -- -- 40.02.05.10.13.35
10.08.2019 58 -- -- -- -- -- -- 06.16.26.28.35.41
07.08.2019 59 -- -- -- -- -- -- 22.24.26.31.35.13

 

[i legend]

Ciao filotto , per il tabellone analitico non puoi quante estrazioni vuoi esaminare. Devi partire almeno dal numero più ritardatario.
Ft ha il codice per generare i tabelloni oppure ti serve costruirlo da zero?
Oggi non credo di aver tempo ,ma se non ti aiuta prima qualcuno , vedo di farlo io domani. Ciao

 

[fillotto]

grazie legend, nello script metto da esaminare 60 estrazioni , in quanto difficilmente (gli archivi arrivano adesso sulle 750 estrazioni) ho trovato ritardi superiori alle 50 estrazioni mai superiori a 54.
Mando i 7 archivi aggiornati ad oggi per le prove che vorrete fare

 

[druid]

Buongiorno Fillotto,
ieri notte ho avuto modo di testare lo script e funziona: devi, come ti ho consigliato ieri, rinizializzare la variabile NU ad ogni ciclo.....
Ciao

 

[fillotto]

Buongiorno Fillotto,
ieri notte ho avuto modo di testare lo script e funziona: devi, come ti ho consigliato ieri, rinizializzare la variabile NU ad ogni ciclo.....
Ciao

non mi puoi scrivere solo il pezzo di codice?

 

[druid]

....scusa pensavo che conoscessi il linguaggio...cmq basta inserire fra

For sez = 1 To 7

e (qui)

sfilearchivio = GetDirectoryAppData & "Svizzera\svizz" & sez & ".txt"


il comando

Erase NU


Spero di essere stato chiaro.

Ciao

 

[fillotto]

....scusa pensavo che conoscessi il linguaggio...cmq basta inserire fra

For sez = 1 To 7

e (qui)

sfilearchivio = GetDirectoryAppData & "Svizzera\svizz" & sez & ".txt"


il comando

Erase NU


Spero di essere stato chiaro.

Ciao

Grazie druid , eh si non sono così esperto!
Il primo step è stato raggiunto la mia idea era quella di mettere a confronto in modo orizzontale e non in verticale come adesso le 7 sez (archivi) cosi da avere in forma tabellare rispettivamente la data il numero(0/59), i 6num solo quelli dell'analitico 1° arc successivamente l'analitico del 2° ecc per un totale di 44 colonne.L'utilizzo? A occhio si verebbe che il più ritardato di tutte e 7 gli archivi con 50 estraz. è il 7 2° archivio che non è altro che il primo archivio virtuale, significa che aggiugendo 7 al primo estratto dell'ultima estrazione reale ( in questo caso all'8) cosi da ottenere 15 (num da giocare) questo se si pensa di giocare sui ritardi se invece si va sui sincroni si potrebbe scegliere 27 ( 20 estraz di ritardo) archivio orig. e 29 sul 7° arch sempre 20 estraz di ritardo num da giocare 6° del reale +29 (in questo caso 42+29= 29 fuori 42)in questo caso vincente nel rimo caso da continuare unica scocciatura i numeri da cambiare ogni estrazione.

 

[i legend]

Ciao a tutti . Felice che avete già risolto ?