Mike58
Advanced Member >PLATINUM PLUS<
Ciao, intanto un saluto a Luigi, che non vedo più presente nel forum.
Devo farti la richiesta se puoi vedere il perchè i codici FT non danno risultanze , mentre leggono un archivio delle estrazoni
Ti metto lo script di esempio e le risultaze che producono + l'archivio in formato TXT da salvare poi in formato csv.
Chiaro che a chi interessa la cosa può intervenire se hanno soluzioni.
Devo farti la richiesta se puoi vedere il perchè i codici FT non danno risultanze , mentre leggono un archivio delle estrazoni
Ti metto lo script di esempio e le risultaze che producono + l'archivio in formato TXT da salvare poi in formato csv.
Chiaro che a chi interessa la cosa può intervenire se hanno soluzioni.
Codice:
Class Script
Sub Main()
Dim sFileArc As String = "C:\Users\ADMIN\Desktop\MillionDay+Extra.csv"
If ImpostaArchivioFT(sFileArc, 10, 55) Then
Dim ef,er,rit,max,fre,pre,incr,n,Nu(1) As Integer
Dim ini,fin ,es As Integer
Dim t(),tt() As String
ini = EstrazioniArchivioFT - 8
fin = EstrazioniArchivioFT
t = {"Num","Ef","er","Rit","Max","incr","fre","Pre"}
Call InitTabella(t)
'Scrivi(EstrattoFT(EstrazioniArchivioFT, 1))
For n = 1 To 55
Nu(1) = n
'ef = EstrattoFrequenzaFT(n,EstrazioniArchivioFT -10,EstrazioniArchivioFT )
'er = EstrattoRitardoFT(n,EstrazioniArchivioFT -10,EstrazioniArchivioFT)
SerieStatFT(Nu,1,rit,max,fre,pre,incr,ini,fin)
t = {n,ef,er,rit,max,incr,fre,pre}
Call AddRigaTabella(t)
Next
Call CreaTabella()
tt = {"info_Data","estratti" }
Call InitTabella(tt)
For es = ini To fin
tt = {GetInfoEstrazioneFT( es), StringaEstrattiFT (es ) }
Call AddRigaTabella(tt)
Next
CreaTabella
End If
End Sub
End Class
86 | 0 | 0 | 0 | 0 | 0 | 0 | 0 |
87 | 0 | 0 | 0 | 0 | 0 | 0 | 0 |
88 | 0 | 0 | 0 | 0 | 0 | 0 | 0 |
89 | 0 | 0 | 0 | 0 | 0 | 0 | 0 |
90 | 0 | 0 | 0 | 0 | 0 | 0 | 0 |
info_Data | estratti |
---|---|
1 - 75 - 16/03/2022 | 14.24.15.10.02.35.37.50.12.30 |
2 - 76 - 17/03/2022 | 21.07.04.47.28.50.11.20.33.05 |
3 - 77 - 18/03/2022 | 43.53.29.39.31.09.34.41.44.22 |
4 - 78 - 19/03/2022 | 11.17.26.45.03.08.55.21.42.48 |
5 - 79 - 20/03/2022 | 39.13.38.37.48.07.26.28.32.14 |
6 - 80 - 21/03/2022 | 07.43.35.38.45.28.03.22.37.33 |
7 - 81 - 22/03/2022 | 24.21.44.35.06.09.54.04.53.11 |
8 - 82 - 23/03/2022 | 30.42.09.29.17.32.44.18.14.12 |
9 - 83 - 24/03/2022 | 09.35.24.01.39.21.37.46.17.26 |
Allegati
Ultima modifica: