Archivio superenalotto

[genios]

Risolto era sbagliato l ' archivio .

 

[genios]

E comunque ce qualcosa che non quadra .

 

[fabri.m]

ciao ,
prima devi modificare un estrazione edll' archivio , che e' sbagliata
evidentemente , facendo lo scraping , qualcosa e' andato storto .
questa e' quella giusta .

104;10/10/2020;24;73;46;15;19;12;67;46

gai che ci sei aggiorna l' archivio , con queste

029;08/03/2022;16;31;15;21;80;03;24;70
030;10/03/2022;34;39;18;66;47;52;22;69
031;12/03/2022;24;32;56;41;80;76;10;11
032;15/03/2022;86;75;22;53;65;08;55;44
033;17/03/2022;14;86;55;54;52;53;34;29

e prova questo , lo trovate nel web .
i dati li ho verificati e sembrano essere esatti .

Option Explicit
Sub Main()
   Dim sFileArchivio : sFileArchivio = GetDirectoryAppData & _
   "\Archivio SuperEnalotto Ordine d’ estrazione.txt"
   Call ApriBaseDatiFT(sFileArchivio,08,";",90)
   Dim giauscito(90),tabellone(1000,08)
   Dim p : p = InputBox("Numero di posizioni da considerare:"," 1 - 8 ",6)
   Dim es,r,i,Ini,fin : Ini = 00001 : fin = EstrazioniArchivioFT
   For i = 01 To 90
      giauscito(i) = 00
   Next
   Dim usciti : usciti = 00
   For es = fin To Ini Step - 01
      If usciti = 90 Then Exit For
      For i = 01 To p
         If usciti = 90 Then Exit For
         If giauscito(EstrattoFT(es,i)) = 00 Then
            tabellone(fin - es,i) = EstrattoFT(es,i)
            giauscito(EstrattoFT(es,i)) = 01
            usciti = usciti + 01
            Dim max : max = fin - es
            If usciti = 90 Then Exit For
         End If
      Next
   Next
   For r = 00 To max
      Dim riga : riga = FormatSpace(r,03) & "    "
      For i = 01 To p
         If tabellone(r,i) > 00 Then
            riga = riga & Format2(tabellone(r,i)) & "  "
         Else
            riga = riga & "--  "
         End If
      Next
      Call Scrivi(riga,01)
   Next
End Sub

 

[genios]

Grazie fabri.m di primo acchitto sembra funzionare bene . Se hai altri script potresti postarli .

Ciao Eugenio

 

[fabri.m]

che tipo di lstati cerchi

 

[genios]

Fabri.m listati che processano il tabellone analitico .
Ciao e grazie.

 

[fabri.m]

ho trovato questo ,

Option Explicit
Sub Main()
   Dim sFileArchivio : sFileArchivio = GetDirectoryAppData & _
   "\Archivio SuperEnalotto Ordine d’ estrazione.txt"
   Call ApriBaseDatiFT(sFileArchivio,08,";",90)
   Dim nu(08)
   Dim Ini,fin,es : Ini = 001 : fin = EstrazioniArchivioFT
   For es = fin To Ini Step - 01 : Call Messaggio(es) : Call AvanzamentoElab(fin,Ini,es)
      Dim nk,pos,kk : nk = nk + 01
      For pos = 01 To 08
         nu(pos) = EstrattoFT(es,pos)
         If EstrattoFrequenzaFT(nu(pos),es,fin) > 01 Then nu(pos) = "__"
         If nu(pos) <> "__" Then kk = kk + 01
      Next
      If kk > 00 Then
         Call Scrivi(IndiceAnnualeFT(es) & vbTab,False,False)
         Call Scrivi(DataEstrazioneFT(es) & vbTab,False,False)
         Call Scrivi(nk - 01 & vbTab,False,False)
         Call Scrivi(StringaNumeri(nu,,True) & vbTab & "  Caduti... " & 08 - kk & vbTab & " Rimasti... " & kk,True)
         kk = 00
      End If
   Next
End Sub

 

[genios]

Grazie fabri.m se trovi altro posta pure.

Ciao Eugenio

 

[fabri.m]

trovato Tabellone Analitico isocrono

Option Explicit
Sub Main()
   Dim sFileArchivio : sFileArchivio = GetDirectoryAppData & _
   "\Archivio SuperEnalotto Ordine d’ estrazione.txt"
   Call ApriBaseDatiFT(sFileArchivio,08,";",90)
   Dim ER : ER = CInt(InputBox(" Estrazione di rilevamento a ritroso "," 01 - 00 ",1))
   If ER > 01 Then Call MsgBox(" I DATI IMMESSI SONO ERRATI ",vbYes," ERRORE "):Exit Sub
   Dim EC : EC = InputBox(" Quante ESTRAZIONI "," ESTRAZIONI DI CONTROLLO ",150)
   Dim nSorte : nSorte = CInt(InputBox(" Quale sorte Ricerco "," CONTROLLO RICERCA ",2))
   Dim nEsito : nEsito = CInt(InputBox("  Quale sorte Controllo "," CONTROLLO ESITO ",1))
   If nEsito >= nSorte Then Call MsgBox(" I DATI IMMESSI SONO ERRATI ",vbYes," ERRORE "):Exit Sub
   Dim Ini,fin,fine,es : Ini = EstrazioniArchivioFT - EC : fin = EstrazioniArchivioFT - ER : fine = EstrazioniArchivioFT
   Call Scrivi(String(021,"-") & " Tabellone Analitico isocrono " & String(021,"-"),01)
   Call Scrivi("sorte...." & NomeSorte(nSorte) & "  .... Rilevamento estrazione ..." & GetInfoEstrazioneFT(fin),01,01,,01,02)
   Call Scrivi(String(072,"-"),01)
   Dim nu(08),cad(08),p,k,kk
   For es = fin To Ini Step - 01 : Call Messaggio(es) : Call AvanzamentoElab(fin,Ini,es)
      For p = 01 To 08
         nu(p) = EstrattoFT(es,p)
         If EstrattoFrequenzaFT(nu(p),es,fin) > 01 Then nu(p) = "--"
         k = k + 01
         'If EstrattoFrequenzaFT(cad(p),es,fin) = 01 Then cad(p) = "--"
         If nu(p) = "--" Then kk = kk + 01
         Dim EntroColpi,RetEsito,RetColpi,RetEstratti,RetIdEstr
         EntroColpi = 01
         Call VerificaEsitoFT(nu,fin + 01,nSorte,EntroColpi,RetEsito,RetColpi,RetEstratti,RetIdEstr)
      Next
      Dim k1,k2,kc,kEsito,kCorso
      k1 = k - kk
      If k1 = nSorte Then
         k2 = k2 + 01 : kc = kc + 01
         Call Scrivi("Ritardo..." & FormatSpace(Format2(fin - es),03) & "  " & _
         FormatSpace(Format2(k2),02) & "  " & GetInfoEstrazioneFT(es) & "  ",00,00)
         Call Scrivi(StringaNumeri(nu,,True) & "   count..." & Format2(k - kk),00,00)
         Call Scrivi("   " & RetEstratti,01,00,,01,02)
         If RetEsito <> "" And RetIdEstr = fine Then Call Scrivi("    Al colpo..." & _
         Format2(RetColpi) & "  " & GetInfoEstrazioneFT(RetIdEstr) & "     ### ",01,01,,01,02)
         If RetEsito <> "" And RetIdEstr <> fine Then Call Scrivi("    Al colpo..." & _
         Format2(RetColpi) & "  " & GetInfoEstrazioneFT(RetIdEstr),01,01,,01,02)
         If RetEsito <> "" Then kEsito = kEsito + 01
         If RetEsito = "" Then kCorso = kCorso + 01 : Call Scrivi(String(025,".") & " In Corso ",00,01,,02,02)
         'Call Scrivi (StringaNumeri(nu,,True) & "  " & format2(k - k2k) '& "    Ritarda da.... " & fin - es,00,00)
         'Call Scrivi (vbTab & " Caduti  " & StringaNumeri(cad,,true))
         'Call Scrivi()
      End If
      k = 00 : kk = 00
      If k2 > 00 Then Call Scrivi(String(156,"="),01)
      k2 = 00
   Next
   Call Scrivi("Casi Rilevati...... : " & Format2(kc),01,01,,02,03)
   Call Scrivi("Casi In Corso...... : " & Format2(kCorso),01,01,,02,03)
   Call Scrivi("Esiti Positivi..... : " & Format2(kEsito),01,01,,02,03)
   Call Scrivi("Perc % di Esito.... : " & Int((kEsito / kc) * 100) & " % ",01,01,,01,03)
End Sub

 

[Membro cancellato 19206]

حذف · إزالة · إلغاء · محو · حذفه · مسح · شطب · قم بحذف.

 

[genios]

buongiornoo,
provi a vedere se e' quello che cerca .
Compatibile con Spaziometria , formato FT .

Giomi hai l' archivio superenalotto con gli estratti per posizioni di estrazione aggiornato ?

 

[galup]

prova questo ,trovato in un altro forum .
ho letto , che ne hai trovato uno , mi puoi dare il link ,
che eventualmente , faccio fare uno script per aggiornare .