fillotto
Advanced Member >PLATINUM<
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
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