Algoritmo script per 10 e lotto ed extra 10 e lotto

Mike58 · 20 Febbraio 2022

Ciao a Tutti.
Sto cercando di performare un algoritmo per estrapolare la colonna 10 e lotto serale ed Extra dalle estrazioni lotto.
sappiamo che questa viene formata da i 1° 2° estratti delle ruote da ba a ve + i 3° estratti fino al raggiungimento di 20 numeri.
Poi Prosegue con la colonna extra 10 e lotto da 21 al 35° estratto da posizione 3° 5° estratto fini al raggiungimento di 15 numeri , il tutto con elimina ripetuti.

Magari si potrebbe valutare una sorte di statistica se si riuscisse ad estrapolare le 2 colonne separate.

Io sto facendo fatica a fermare un ipotetico ciclo mi rivolgo a chi vuole scripter e non e anche Luigi se hanno una qualche idea per un ipotetico costrutto scriptico anche vbscript.

Spero che qualcuno abbia voglia.

fabri.m · 17 Marzo 2022

ciao,
potresti usare questo script , per prelevare le estrazioni .
successivamente , scegli cosa salvare e ti crei i vari archivi.

Codice:

Option Explicit
Sub Main()
   Dim sDir : sDir = "C:\Users\Admin\Desktop\"
   Dim sPercorsoLocale : sPercorsoLocale = sDir & "10elotto.txt"
   Call EliminaFile(sPercorsoLocale)
   '
   Dim sLink : sLink = "https://www.lottologia.com/10elotto/archivio-estrazioni/?as=TXT"
   '
   ReDim aRighe(00) : Dim nRiga
   Call Messaggio("Download Archivio Lotto")
   If DownloadFromWeb(sLink,sPercorsoLocale) Then
      If FileEsistente(sPercorsoLocale) Then
         If LeggiRigheFileDiTesto(sPercorsoLocale,aRighe) Then
            For nRiga = 00 To UBound(aRighe)
               If Trim(aRighe(nRiga)) <> "" Then
                  Call Scrivi(nRiga & vbTab & aRighe(nRiga))
               End If
            Next
         End If
      End If
   End If
End Sub

Mike58 · 18 Marzo 2022

Ottimo, Fabri, anche se adesso bisogna capire come crearsi i 2 archivi separati.
hai una qualche idea ?

Intanto un grazie per il contributo.

Ciao

Mike58 · 20 Marzo 2022

Dopo un pò di tentativi sono riuscito a calcolare ed estrapolare le 2 colonne.
le condivido con script in vbnet per LottoProject, cosi da controllarne la validità del calcolo.
Poi è chiaro che ci vorrebbe un prosieguo progettuale da definirsi...

Intanto ecco il calcolo

Codice:

Class Script
    Sub Main
        Dim vet(),r,i,c,k1,xVet(),x ,aN(15),aNum(20),xx,aNN(35)    As Integer
        Dim ini,fin,es As Integer
        fin = EstrazioniArchivio
        ini = fin - 5
        Scrivi ("Calcolo colonna 10eLotto Serale + colonna 10eLotto Exstra ***** Author Script ***** Mike58 ******* " & Chr(169) ,1,,,ColoreBlu,,,1)
        For es = fin To ini  Step - 1
            Scrivi (Chr(10) & DataEstrazione(es) & vbTab & " Colonna 10 e lotto Serale  " & Space(15) & " | " & " Colonna 10 e lotto extra " & Space(18) ,1,,ColoreVerde,ColoreBianco )
            c = 0
            For i = 1 To 5
                For r = 1 To 10
                    c = c + 1
                    ReDim Preserve vet(c)
                    vet(c) = Estratto(es,r,i)
                    If c = 40 Then Exit For
                Next
            Next
            For k1  = 1 To 35
                Scrivi (Format2 (k1) & " ",1,0,ColoreRosa,ColoreNero )
            Next
            Scrivi
            Call EliminaRipetuti (vet,1)
            'Scrivi (StringaNumeri(vet,,1) )
            'OrdinaVettore(vet,1,20,1)
            'Scrivi (StringaNumeri(vet,,1))
            For k2 As Integer = 1 To 35
                aNN(k2) = vet(k2)
            Next
            Scrivi (StringaNumeri(aNN,,1))
            '-------------------------------------------------------
            For xx = 1 To 20
                aNum(xx) = vet(xx)
            Next
            OrdinaVettore(aNum,1,20,1)
            Scrivi (StringaNumeri(aNum,,1),1,,,ColoreRosso)
            '--------------------------------------------------------
            For x = 1 To 15
                aN(x) = vet(x+20)
            Next
            OrdinaVettore (aN,1,15,1)
            Scrivi (Space(60) & StringaNumeri(aN,,1),1 ,,,ColoreBlu)
        Next
        '--------------------------------------------------------
    End Sub
End Class

Calcolo colonna 10eLotto Serale + colonna 10eLotto Exstra ***** Author Script ***** Mike58 ******* ©

19/03/2022 Colonna 10 e lotto Serale | Colonna 10 e lotto extra
01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
48.90.06.63.67.25.10.74.78.46.35.73.51.13.02.64.69.55.03.41.42.68.38.66.43.29.70.14.75.18.82.28.50.57.65
02.03.06.10.13.25.35.41.46.48.51.55.63.64.67.69.73.74.78.90
14.18.28.29.38.42.43.50.57.65.66.68.70.75.82

Mike58 · 21 Marzo 2022

Quello che si può aggiungere e fattibile nello script una sorte di controllo giocata con Punti Su Array.
eccolo
'--------Numeri Da Controllare --------------
Num = {0,9,45,90}
'--------------------------------------------

Codice:

Class Script
    Sub Main
        Dim vet(),r,i,c,k1,xVet(),x ,aN(15),aNum(20),xx,aNN(35),Pt,Num()     As Integer
        Dim ini,fin,es As Integer
        fin = EstrazioniArchivio
        ini = fin - 15
        Scrivi ("Calcolo colonna 10eLotto Serale + colonna 10eLotto Extra ***** Author Script ***** Mike58 ******* " & Chr(169) ,1,,,ColoreBlu,,,1)
        For es = fin To ini  Step - 1
            Scrivi (Chr(10) & DataEstrazione(es) & vbTab & " Colonna 10 e lotto Serale  " & Space(15) & " | " & " Colonna 10 e lotto extra " & Space(18) ,1,0,ColoreVerde,ColoreBianco )
            Scrivi (Space(10) & " Punti Su Array " & Space(10) ,1,,ColoreGiallo ,ColoreNero )
            c = 0
            For i = 1 To 5
                For r = 1 To 10
                    c = c + 1
                    ReDim Preserve vet(c)
                    vet(c) = Estratto(es,r,i)
                    If c = 40 Then Exit For
                Next
            Next
            '--------Numeri Da Controllare --------------
            Num = {0,9,45,90}
            '--------------------------------------------
            For k1  = 1 To 35
                Scrivi (Format2 (k1) & " ",1,0,ColoreRosa,ColoreNero )
            Next
            Scrivi
            Call EliminaRipetuti (vet,1)
            'Scrivi (StringaNumeri(vet,,1) )
            'OrdinaVettore(vet,1,20,1)
            'Scrivi (StringaNumeri(vet,,1))
            For k2 As Integer = 1 To 35
                aNN(k2) = vet(k2)
            Next
            Scrivi (StringaNumeri(aNN,,1))
            '-------------------------------------------------------
            For xx = 1 To 20
                aNum(xx) = vet(xx)
            Next
            Pt = PuntiSuArray(aNum,Num)
            OrdinaVettore(aNum,1,20,1)
            Scrivi (StringaNumeri(aNum,,1) & vbTab  & Space(48) & StringaNumeri(Num)   & " Punti.... "  & Pt ,1,,,ColoreRosso)
            '--------------------------------------------------------
            For x = 1 To 15
                aN(x) = vet(x+20)
            Next
            Pt = PuntiSuArray(aN,Num)
            OrdinaVettore (aN,1,15,1)
            Scrivi (Space(60) & StringaNumeri(aN,,1) & vbTab & StringaNumeri(Num) & " Punti.... " & Pt ,1 ,,,ColoreBlu)
            
        Next
        
        '--------------------------------------------------------
    End Sub
End Class

fabri.m · 21 Marzo 2022

ciao ,ti posto un aggiornamento al listato precedente .
adesso manca crare gli archivi , con SalvaEstrazioniFT .
unico rammarico , che dal sito si scarica sono l' ultimo anno di estrazioni .
notare che in spaziomtria igli archivi FT , devo essere massimo 20 numeri ,
quindi ho eliminato dalla colonna vincente il numero oro e doppio oro
cosi sono 18 +1+1 ., piu i 15 extra .
forse sbaglio io , ma controlla bene i listati che hai postato , i dati sia dell' archivio , sia dei punti mi sembrano non esatti .

Codice:

Option Explicit
Sub Main()
   Dim sDir : sDir = "C:\Users\Admin\Desktop\"
   Dim sPercorsoLocale : sPercorsoLocale = sDir & "10elotto.txt"
   Call EliminaFile(sPercorsoLocale)
   '
   Dim sLink : sLink = "https://www.lottologia.com/10elotto/archivio-estrazioni/?as=TXT"
   '
   ReDim aRighe(00) : Dim nRiga
   Dim nRetNumEstr
   nRetNumEstr = 00
   Call Messaggio("Download Archivio Lotto")
   If DownloadFromWeb(sLink,sPercorsoLocale) Then
      If FileEsistente(sPercorsoLocale) Then
         If LeggiRigheFileDiTesto(sPercorsoLocale,aRighe) Then
            For nRiga = UBound(aRighe) - 01 To 02 Step - 01
               If Trim(aRighe(nRiga)) <> "" Then
                  '
                  aRighe(nRiga) = Replace(aRighe(nRiga),"-",">")
                  aRighe(nRiga) = Replace(aRighe(nRiga),vbTab,">")
                  aRighe(nRiga) = Replace(aRighe(nRiga),"/",">")
                  aRighe(nRiga) = Replace(aRighe(nRiga)," ",">")
                  aRighe(nRiga) = Replace(aRighe(nRiga),".",">")
                  Do While InStr(aRighe(nRiga),">>")
                     aRighe(nRiga) = Replace(aRighe(nRiga),">>",">")
                  Loop
                  ReDim aValori(000)
                  Call SplitByChar(aRighe(nRiga),">",aValori)
                  ' Call Scrivi(aRighe(nRiga))
                  Dim nGiornoCorr,nMeseCorr,nAnnoCorr
                  nGiornoCorr = Int(aValori(02))
                  nMeseCorr = Int(aValori(01))
                  nAnnoCorr = Int(aValori(00))
                  Dim sRetData : sRetData = Format2(nGiornoCorr) & "/" & Format2(nMeseCorr) & "/" & nAnnoCorr
                  nRetNumEstr = nRetNumEstr + 01
                  '
                  ReDim aRetNumVinc(20): Dim kk
                  For kk = 01 To 20
                     aRetNumVinc(kk) = Int(aValori(kk + 02))
                  Next
                  '
                  Dim aRetNumOro,aRetNumDoppioOro
                  aRetNumOro = Int(aValori(23))
                  aRetNumDoppioOro = Int(aValori(24))
                  '
                  ReDim aRetNumExtra(15)
                  For kk = 01 To 15
                     aRetNumExtra(kk) = Int(aValori(kk + 24))
                  Next
                  '
                  For kk = 01 To 20
                     If aRetNumVinc(kk) = aRetNumOro Then aRetNumVinc(kk) = 00
                     If aRetNumVinc(kk) = aRetNumDoppioOro Then aRetNumVinc(kk) = 00
                  Next
                  '
                  Dim aGetArchivio
                  If IsDate(sRetData) = True Then
                     If nRetNumEstr <> 00 Then
                        If UBound(aRetNumVinc) = 20 Then
                           If IsNumeric(aRetNumOro) Then
                              If IsNumeric(aRetNumDoppioOro) Then
                                 If UBound(aRetNumExtra) = 15 Then
                                    aGetArchivio = True
                                    Call Scrivi(FormattaStringa(nRetNumEstr,"000") & "," & sRetData & "," & StringaNumeri(aRetNumVinc,",",True) & vbTab & _
                                    Format2(aRetNumOro) & "," & Format2(aRetNumDoppioOro) & vbTab & StringaNumeri(aRetNumExtra,",",True))
                                 End If
                              End If
                           End If
                        End If
                     End If
                  End If
                  aGetArchivio = False
               End If
            Next
         End If
      End If
   End If
End Sub

Mike58 · 22 Marzo 2022

Fabri,intanto grazie per l'intervento.
Da un mio primo controllo sembra che i numeri ricavati dal mio calcolo siano coerenti ed uguali alle tue risultanze ( ho controllato le ultime 3 ).
La differenza e che tu estrapoli come colonna 10 e lotto 18 numeri in sequenza + 2 numeri oro = 20 numeri
io calcolo direttamente 20 numeri senza oro e doppio oro.

Se hai notato delle incongruenze sul calcolo dei miei numeri sia in colonne che in punti segnalalo, cosi da poter vedere come e se intervenire.

Era solo uno sfizio ricavare le 2 colonne, ma poi come puoi capire il difficile e come utilizzarlo per una eventuale statistica.

Ciao

ecco le mie ultime colonna calcolate, fate i relativi controlli sulle colonne reali ed archiviate

Mike58 · 22 Marzo 2022

Se sono ok e a qualcuno interessa potrei rilasciare lo script in vbscript con salvataggio dei 2 archivi separati in formato colonne csv e Txt in modo da poter essere usato con programmi vari.
Ma qui devo vedere l'interesse e se ne vale la pena fare delle statistiche sugli archivi separati.

Chiaro è un work in progress e può prendere piede con idee valide .

fabri.m · 22 Marzo 2022

ciao,
ti ringrazio , per la spiegazione , e devo scusarmi con te perche' sull' archivio ho sbagliato io
Adesso non posso usare spaziolight . in quanto ho ancora xp .
probabilmente nella conversione dei listati , ho fatto qualche errore .
mi scuso di nuovo .
se puoi postare il listato , che hai usato per fare gli archivi , ti ringrazio .
devo ancoraa controllare bene il listato dei punti ,
Allego l' archivio , cosi si puo' confrontare .

fabri.m · 22 Marzo 2022

ho ricontrollato meglio , ma nel archivio ci sono piccole differenze .

Mike58 · 22 Marzo 2022

Ciao fabri, non ho ancora fatto lo script per il salvataggio delle 2 colonne separate in formato csv e txt ma cercherò di svilupparlo anche in vbscript appena trovo tempo e concentrazione.

L'importante era riuscire ad estrapolare le 2 colonne e quindi creare 2 archivi diversi per potervi accedere allo scopo di fare una qualche statistica.

Il progetto era nato per vbnet spaziolight in quanto questo non aveva i codici DL ma ha i codici FT e quindi volevo sperimentarlo per via delle diverse velocità.

Vedo quello che posso fare.... al prossimo aggiornamento.

mgrruggiu · 22 Marzo 2022

grazie mike se riesci si può avere uno storico che oggi non esiste.
giovanni

Mike58 · 22 Marzo 2022

Fabri, riconvertendo lo script in vbscript, purtroppo qualche codice da problemi.
Trattasi del codice EliminaRipetuti ( necessario per eliminare i ripetuti nei 35 estratti utili )
Il problema che questo mi ordina i numeri vettori e quindi non mi permette di prelevarli con altro for netxt da 1 a 20 e da 21 a 35.
Questo procedimento non li ordina automaticamente in vbnet - spaziolight

Ti metto lo script in vbscript " ATTENZIONE fa calcoli errati" per vedere se arrivi diversamente.

Codice:

Sub Main
        Dim vet(),r,i,c,k1,xVet(),x,k ,aN(15),aNum(20),xx,aNN(35),Pt,Num   
        Dim ini,fin,es
        fin = EstrazioniArchivio
        ini = fin - 15
        Call Scrivi ("Calcolo colonna 10eLotto Serale + colonna 10eLotto Extra ***** Author Script ***** Mike58 ******* " & Chr(169) ,1,,,1,,,1)
        For es = ini To fin ' Step - 1
            k = k + 1
            'Scrivi (Chr(10) & DataEstrazione(es) & vbTab & " Colonna 10 e lotto Serale  " & Space(15) & " | " & " Colonna 10 e lotto extra " & Space(18) ,1,0,ColoreVerde,ColoreBianco )
            'Scrivi (Space(10) & " Punti Su Array " & Space(10) ,1,,ColoreGiallo ,ColoreNero )
            c = 0
            For i = 1 To 5
                For r = 1 To 10
                    c = c + 1
                    ReDim Preserve vet(c)
                    vet(c) = Estratto(es,r,i)
                    If c = 35 Then Exit For
                Next
            Next
            '--------Numeri Da Controllare --------------
            Num = Array(0,9,45,90)
            '--------------------------------------------
            'For k1  = 1 To 35
                'Scrivi (Format2 (k1) & " ",1,0,ColoreRosa,ColoreNero )
            'Next
            'Scrivi
            'Call EliminaRipetuti (vet)
            'Scrivi (StringaNumeri(vet,,1) )
            'OrdinaVettore(vet,1,20,1)
            'Scrivi (StringaNumeri(vet,,1))
            For k2  = 1 To 35
                aNN(k2) = vet(k2)
            Next
            'Scrivi (StringaNumeri(aNN,,1))
            '-------------------------------------------------------
            For xx = 1 To 20
                aNum(xx) = vet(xx)
            Next
            Pt = PuntiSuArray(aNum,Num,1)
            Call OrdinaMatrice(aNum,1,1)
            'Scrivi (StringaNumeri(aNum,,1) & vbTab  & Space(48) & StringaNumeri(Num)   & " Punti.... "  & Pt ,1,,,ColoreRosso)
            '--------------------------------------------------------
            For x = 1 To 15
                aN(x) = vet(x+20)
            Next
            Pt = PuntiSuArray(aN,Num,1)
            Call OrdinaMatrice (aN,1,1)
            'Scrivi (Space(60) & StringaNumeri(aN,,1) & vbTab & StringaNumeri(Num) & " Punti.... " & Pt ,1 ,,,ColoreBlu)
            '-------------------------------------------------------------
            Call Scrivi (Format2(k) &"," & DataEstrazione(es) & "," &  StringaNumeri(aNum,,1) & " ....Extra.... " & StringaNumeri(aN,,1) )
        Next
        '--------------------------------------------------------
    End Sub

Mike58 · 22 Marzo 2022

mgrruggiu ha scritto:
grazie mike se riesci si può avere uno storico che oggi non esiste.
giovanni

Giovanni ancora siamo in fase di partenza per questi archivi come vedi funziona in vbnet e fa calcoli diversi in vbscript.
Siamo appena partiti e la metà di raccolta dati statistici è lontana.
Pazienza.

Mike58 · 22 Marzo 2022

Fabri, se riesci ad estrapolare le 2 colonne, poi lo script di scrittura in csv sarebbe questo con le dovute correzioni.
Questo è un esempio di scrittura in excel per essere allacciato dai programmi che richiedono il formato csv.

Codice:

Sub Main
   Dim sFileTxt,sFileCsv,sRiga
   Dim Nu(20)
   sFileCsv = GetDirectoryAppData & "10eLottoSerale.csv" ' percorso di scrittura file excel
   Call EliminaFile(sFileCsv)
   sRiga = "prog;Data;n1;n2;n3;n4;n5;n6;n7;n8;n9;n10;n11;n12;n13;n14;n15;n16;n17;n18;n19;n20" ' scrive le colonne (ci vogliono)
   Ini = EstrazioniArchivioDL - 50
   fin = EstrazioniArchivioDL
   For es = Ini To fin
      For p = 1 To 20
         Nu(p) = EstrattoDL(es,p)
      Next
      sRiga = es & ";"
      sRiga = sRiga & Replace(DataEstrazioneDL(es),".","/") & ";"
      For x = 1 To 20
         sRiga = sRiga & Nu(x) & ";"
      Next
      Call ScriviFile(sFileCsv,sRiga,False)
   Next
   Call CloseFileHandle(sFileCsv)
   Call LanciaFile(sFileCsv) ' scrive e lancia file excel per controllo
   Scrivi "Ho scritto il file excel nel percorso : " & sFileCsv
End Sub

fabri.m · 22 Marzo 2022

grazie , quanto prima cerchero di postare anche il mio listato per ricavare gli archivi .
guardero i tuoi listati , ma non e' cosi facile estrazoplare le colonne .
cerchero anche un sito , da cui prelevare l' archivio totale , in modo non troppo complicato .
ma in vbnet , il codice FT , quanti numeri accetta massimo ?

Mike58 · 22 Marzo 2022

Il codice FT accetta la stringa numerica di qualsiasi dimensione (penso)
il mio script in vbnet mi estrapola prima i 35 numeri senza ripetuti e senza ordinare i numeri, cosi posso ricavare i primi 20 per la prima colonna 10eLotto e poi i conseguenti 15 per l'extra.
Purtroppo come ti dicevo lo stesso script con il codice EliminaRipetuti mi ordina i numeri ed estrapolare le 2 colonne con lo stesso metodo non è corretto.
per ora vediamo se arriviamo a qualche idea, anche perchè in vbnet mi mancano i codici di scrittura in excel ein scrittura TXT e quindi c'è bisogno di trovare la soluzione nel vbscript.

Ciao fabri (alias nick che conosco)

fabri.m · 23 Marzo 2022

posto il mio listato , per scaricare le estrazioni e creare due archivi ,
1) i 20 estratti 10elotto serale pui oro e doppio oro.
eliminati oro e doppio oro dalla colonna vincente e colocati nelle utime due posizioni cioe la 19 e la 20,
questo per usare con spaziometria e i codici ft
2) i 15 numeri extra .
l' archivi sono solo con le estrazioni del 2022 .
NB CAMBIARE I PERCORSI DOVE VENGONO CREARTI GLI ARCHIVI ED EVENTUALMENTE IL NOME .

Mike58 ha scritto:
Ciao fabri (alias nick che conosco)

mike , non ho capito cosa intendi .

Codice:

Option Explicit
Sub Main()
   Dim sDir : sDir = "C:\Users\Admin\Desktop\"
   Dim sPercorsoLocale : sPercorsoLocale = "C:\Windows\Temp\10elotto.txt"
   Call EliminaFile(sPercorsoLocale)
   '
   Dim sFileEstrazioni01 : sFileEstrazioni01 = sDir & "10elottoOroDoppioOro.txt"
   Dim sFileEstrazioni02 : sFileEstrazioni02 = sDir & "10elottoNumeriExtra.txt"
   Call EliminaFile(sFileEstrazioni01) : Call EliminaFile(sFileEstrazioni02)
   '
   Dim sLink : sLink = "https://www.lottologia.com/10elotto/archivio-estrazioni/?as=TXT"
   '
   ReDim aRighe(00) : Dim nRiga
   Dim nRetNumEstr : nRetNumEstr = 00
   Call Messaggio("Download Archivio Lotto")
   If DownloadFromWeb(sLink,sPercorsoLocale) Then
      If FileEsistente(sPercorsoLocale) Then
         If LeggiRigheFileDiTesto(sPercorsoLocale,aRighe) Then
            For nRiga = UBound(aRighe) - 01 To 02 Step - 01
               If Trim(aRighe(nRiga)) <> "" Then
                  '
                  aRighe(nRiga) = Replace(aRighe(nRiga),"-",">")
                  aRighe(nRiga) = Replace(aRighe(nRiga),vbTab,">")
                  aRighe(nRiga) = Replace(aRighe(nRiga),"/",">")
                  aRighe(nRiga) = Replace(aRighe(nRiga)," ",">")
                  aRighe(nRiga) = Replace(aRighe(nRiga),".",">")
                  Do While InStr(aRighe(nRiga),">>")
                     aRighe(nRiga) = Replace(aRighe(nRiga),">>",">")
                  Loop
                  ReDim aValori(00)
                  Call SplitByChar(aRighe(nRiga),">",aValori)
                  '
                  Dim nGiornoCorr,nMeseCorr,nAnnoCorr,sRetData
                  nGiornoCorr = Int(aValori(02))
                  nMeseCorr = Int(aValori(01))
                  nAnnoCorr = Int(aValori(00))
                  sRetData = nGiornoCorr & "/" & nMeseCorr & "/" & nAnnoCorr
                  sRetData = FormattaStringa(sRetData,"dd/mm/yyyy")
                  nRetNumEstr = nRetNumEstr + 01
                  '
                  Dim kk
                  For kk = 01 To 20
                     ReDim Preserve aRetNumVinc(kk + 02)
                     aRetNumVinc(kk) = Int(aValori(kk + 02))
                  Next
                  '
                  Dim aRetNumOro,aRetNumDoppioOro
                  aRetNumOro = Int(aValori(23))
                  aRetNumDoppioOro = Int(aValori(24))
                  '
                  For kk = 01 To 15
                     ReDim Preserve aRetNumExtra(kk)
                     aRetNumExtra(kk) = Int(aValori(kk + 24))
                  Next
                  '
                  For kk = 01 To 20
                     If aRetNumVinc(kk) = aRetNumOro Then aRetNumVinc(kk) = 00
                     If aRetNumVinc(kk) = aRetNumDoppioOro Then aRetNumVinc(kk) = 00
                  Next
                  '
                  aRetNumVinc(21) = aRetNumOro
                  aRetNumVinc(22) = aRetNumDoppioOro
                  '
                  Dim aGetArchivio
                  If IsDate(sRetData) = True Then
                     If nRetNumEstr <> 00 Then
                        If UBound(aRetNumVinc) = 22 Then
                           If IsNumeric(aRetNumOro) Then
                              If IsNumeric(aRetNumDoppioOro) Then
                                 If UBound(aRetNumExtra) = 15 Then
                                    aGetArchivio = True
                                    Dim sOut01,sOut02
                                    sOut01 = FormattaStringa(nRetNumEstr,"000") & ";" & sRetData & ";" & StringaNumeri(aRetNumVinc,";",True)
                                    sOut02 = FormattaStringa(nRetNumEstr,"000") & ";" & sRetData & ";" & StringaNumeri(aRetNumExtra,";",True)
                                    Call ScriviFile(sFileEstrazioni01,sOut01,False,True)
                                    Call ScriviFile(sFileEstrazioni02,sOut02,False,True)
                                 End If
                              End If
                           End If
                        End If
                     End If
                  End If
                  aGetArchivio = False
               End If
            Next
         End If
      End If
   End If
   Call EliminaFile(sPercorsoLocale)
   Call CloseFileHandle(sFileEstrazioni01) : Call CloseFileHandle(sFileEstrazioni02)
End Sub

Mike58 · 23 Marzo 2022

Ho Visto, fabri, scaricati gli archivi, sono sicuramente utili per la lettuta da TXT con i codici FT.
Adesso Bisogna scriverli anche in csv per essere accessibili dai vari programmi che necessitano di archivio formato csv.

Per la citazione dei nick, lo stile mi sembra di un altro utente del forum e magari sei quello.

Grazie comunque per il proficuo intervento e messa a disposizione.
un saluto

fabri.m · 23 Marzo 2022

ciao cerchero di modificarlo per il csv,
non dovrebbe essere difficile.
per curiosita , se vuoi citarlo , e' chi sarebbe l' utente a chi assomiglia il mio stile ?

Algoritmo script per 10 e lotto ed extra 10 e lotto

Advanced Member >PLATINUM PLUS<

Banned

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Banned

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Banned

Banned

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Banned

Advanced Member >PLATINUM PLUS<

Banned

Advanced Member >PLATINUM PLUS<

Banned