Novità

Cerco archivio aggiornato di L8 vers. 6

vinc01

vinc01

Super Member >PLATINUM<
Ciao Vincenzo, vedo che sei iscritto nel forum da molto tempo e considerato che sono nuovo spendo qualche parola, tieni presente che aggiorno l'archivio a mano ma fino a questo momento non ho mai trovato inesattezze, uso L8+ 6.1 rev.3 da molti anni con licenza regolare, ma lo faccio girare su windows xp installato in virtualbox anche perchè uso Linux, l8 che si trova in giro potrebbe essere infetto, e ho dei dubbi che sia un falso positivo è un malware vero e proprio. ok il file backup itzbak e uppato sul link. Buona fortuna
 
ananda

ananda

Advanced Member >PLATINUM PLUS<
vinc01 ha scritto:
Ciao Vincenzo, vedo che sei iscritto nel forum da molto tempo e considerato che sono nuovo spendo qualche parola, tieni presente che aggiorno l'archivio a mano ma fino a questo momento non ho mai trovato inesattezze, uso L8+ 6.1 rev.3 da molti anni con licenza regolare, ma lo faccio girare su windows xp installato in virtualbox anche perchè uso Linux, l8 che si trova in giro potrebbe essere infetto, e ho dei dubbi che sia un falso positivo è un malware vero e proprio. ok il file backup itzbak e uppato sul link. Buona fortuna
Clicca per espandere...
Ciao Vinc01, sai se è possibile inserire nelle tabelle utente un gruppo omogeneo fatto da me? Perchè ho provato ad importarlo come file di testo, che è fra le opzioni, ma mi dice che l formato non è corretto. Però è uguale alle tabelle utente già inserite!!! Forse sbaglio qualcosa? E se non risco ad impoprtare da file di testo, forse c'è un modo per fare una tabella? Io vorrei fare quella degli ambi pari e una di ambi dispari. Grazie.
 
vinc01

vinc01

Super Member >PLATINUM<
ananda ha scritto:
Ciao Vinc01, sai se è possibile inserire nelle tabelle utente un gruppo omogeneo fatto da me? Perchè ho provato ad importarlo come file di testo, che è fra le opzioni, ma mi dice che l formato non è corretto. Però è uguale alle tabelle utente già inserite!!! Forse sbaglio qualcosa? E se non risco ad impoprtare da file di testo, forse c'è un modo per fare una tabella? Io vorrei fare quella degli ambi pari e una di ambi dispari. Grazie.
Clicca per espandere...
Ciao, esattamente non la so questa, perchè non ho mai creato tabelle e in L8+ vedo che ne esistono 613. Ma, ho fatto delle prove e nell'editor di tabelle ho cliccato su "crea tabella" l'ho nominata ambi-pari ed è stata correttamente aggiunta, ho creato un file .txt importato e funziona, hai anche la possiblità di usare "generatore tabelle" Sicuramente c'è chi ne sa più di me nel mondo del lotto. Tuttavia se carichi questa tabella che hai creato e la posso analizzare, potrei capirne di più, i passi da seguire con L8+ vedo che li conosci bene.
 
M

Mauro-emme

Member
Per aggiornare in automatico usa questo link per scaricare un file exe.

https://www.silop.it/Lotto_JGIO91/programma/Agg_Arc_L8.zip

Lo decomprimi dove vuoi, poi su L8+ 6.0 vai sul menu Plug-ins con CTRL+T e su Aggiungi, inserisci percorso di dove hai salvato il file.

Il giorno dopo facendo partire il Plug-ins verrà scaricato nel percorso che ti viene indicato il file aggiornato da cui prelevare la nuova estrazione.

Poi Premi su Archivio - Scambia estrazioni e scegli importa estrazioni. Qui incolli il percorso che ti è apparso sulla scheda web e premi apri.

Sembra difficile la prima volta ma poi ti ci abitui.

Ciao.

P.S. - In periodi festivi l'aggiornamento dei dati non è cosi immediato!
 
A

andrea21

Member
ti ringrazio comunque Mauro ma non funzia.....Immagine.png
ormai mi sono rassegnato aggiorno l'archivio con word sostituendo le tabulazioni conuno spazio.
 
joe

joe

Advanced Member >PLATINUM PLUS<
Ciao Andrea,

mi permetto di scriverti ... vedendoti "nuovo" ed essendo stato citato.

Per aggiornare L8 ci sono molti metodi funzionanti.

Però, perché lo siano, bisogna sapere quale versione del sistema operativo

è installato sul PC in cui viene eseguito il programma L8.

Poi è utile (per non dire necessario) aver installato il programma spaziometria.

Perché con Win95/98/Vista ed il vbScript non è più possibile accedere

direttamente ai siti con protocollo https come è quello di Silop,

Mentre con l'aiuto di spaziometria ... ci si riesce.

Con sistemi operativi vecchi e con gli script ("aggiornatori")

occorre ANCHE un programma-ponte come WGET capace collegare

il sistema operativo "vecchio" ed il sito con il "nuovo" protocollo di sicurezza

che rende obsoleti ed inutilizzabili i vecchi programmi e metodi.

Allego dunque un programma (un pò pasticciato, però) ... funzionante ... con Spaziometria.

Esso dovrebbe essere in grado di aggiornare Spaziometria dopo essersi collegato con il sito di Silop,

senza incorrere nell'errore che hai evidenziato.

In sintesi con questo, per i meriti del Web / di Wget / di Spaziometria / di Silop ecc, ecc,

LE ESTRAZIONI per "aggiornare L8" è possibile averle nel proprio PC.

Dunque come prima cosa ... occorre verificare se TUTTI questi "mezzi" necessari funzionano.

Lo sono, se questo programma riesce ad aggiornare Spaziometria.

Codice: 
Option Explicit
Sub Main
  Dim sCommand,sPercorsoWget,sDirFileDestLocal,sFileBackup,sUrl,sFileBat,DataIni,b,nTimeoutSec
  sDirFileDestLocal = GetDirectoryTemp & "Archivio.txt"
  sFileBackup = sDirFileDestLocal & ".bak"
  sPercorsoWget = GetDirectoryAppData & "wget.exe"
  sUrl = "sLink = https://www.silop.it/Archivio(televideo)/Archivio.txt"
  sCommand = """" & sPercorsoWget & """" & " -O " & """" & sDirFileDestLocal & """" & " --no-check-certificate " & sUrl
  nTimeoutSec = 60
  If FileEsistente(sPercorsoWget) Then
    If FileEsistente(sDirFileDestLocal) Then
      b = RinominaFile(sDirFileDestLocal,sFileBackup)
    Else
      b = True
    End If
    If b Then
      sFileBat = GetDirectoryTemp & "Download.bat"
      Call ScriviFile(sFileBat,sCommand,True,False)
      Call LanciaFile(sFileBat)
      Messaggio "Analisi Estrazioni"
      DataIni = Now
      Do While FileEsistente(sDirFileDestLocal) = False
        If DateDiff("s",DataIni,Now) > nTimeoutSec Then Exit Do
      Loop
      If FileEsistente(sDirFileDestLocal) Then
        Call EliminaFile(sFileBackup)
        Call EliminaFile(sFileBat)
        CloseFileHandle(sUrl)
        AGG_S_III(sDirFileDestLocal)
      Else
        Scrivi "Attenzione !!!"
        Scrivi "Il file delle estrazioni non è stato scaricato in " & GetDirectoryAppData
        Call RinominaFile(sFileBackup,sDirFileDestLocal)
      End If
    Else
      Scrivi "Attenzione !!!"
      Scrivi "Non è stato possibile creare il backup delle estrazioni"
    End If
  Else
    Scrivi "Attenzione !!!"
    Scrivi "Il file wget.exe versione 1.19.4 deve essere presente nel percorso: " & GetDirectoryAppData
  End If
End Sub
Sub AGG_S_III(sDirFileDestLocal)
  'MsgBox sDirFileDestLocal
  Dim sFileLoc
  Dim nEstrTot,sDataLastEstr,k,r,e
  Dim sDataEstr,nNumEstr,nSalvate
  Dim b
  Dim sFileBd
  Dim sLink
  Dim Ia,N,sVV,X,T,D
  Dim CfrData
  'sLink = "https://www.silop.it/Archivio(televideo)/Archivio.txt"
  b = False : N = False
  nSalvate = 0
  sFileBd = GetDirectoryAppData & "BaseDati.dat"
  sFileLoc = GetDirectoryAppData & "temp\"
  'If CreaDirectory(sDirFileDestLocal) Then
  Messaggio "Lettura Archivio Remoto ..."
  If FileEsistente(sDirFileDestLocal) Then
    T = Now
    Do While D <= 10
      D = DateDiff("s",T,Now)
      AvanzamentoElab 1,10,D
    Loop
    nEstrTot = EstrazioniArchivio
    sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
    Ia = IndiceAnnuale(nEstrTot)
    ReDim aRighe(0)
    Call LeggiRigheFileDiTesto(sDirFileDestLocal,aRighe)
    'MsgBox (UBound(aRighe))
    For k = 1 To UBound(aRighe) 'To 0 Step - 1
      ReDim aV(0) ': Scrivi Len(aRighe(k))
      If Len(aRighe(k)) = 118 Then
        sDataEstr = Left(aRighe(k),2) & "/" & Mid(aRighe(k),3,2) & "/" & Mid(aRighe(k),5,4) ': Scrivi sDataEstr
        sVV = Right(aRighe(k),110) ': Scrivi sVV
        If b Then
          If(Right(sDataEstr,4) <> Right(sDataLastEstr,4)) Then Ia = 0
          If sDataEstr <> sDataLastEstr Then
            Ia = Ia + 1
            nNumEstr =(Ia)
            'ColoreTesto 4 : Scrivi Ia : ColoreTesto 0
            'ColoreTesto 1 : Scrivi sDataEstr : ColoreTesto 0
            'ColoreTesto 2 : Scrivi sVV : ColoreTesto 0
            If nNumEstr > 0 And IsDate(sDataEstr) Then
              ReDim aEstr(11,5)
              r = 1 : e = 0
              For X = 1 To 110 Step 2
                e = e + 1
                'Scrivi Mid(sVV,x,2) & " ",0,0
                aEstr(r,e) = Mid(sVV,X,2)
                If e = 5 Then r = r + 1 : e = 0 ': Scrivi
              Next
              'ScriviMatrice(aEstr)
              If CfrData <> Left(sDataEstr,5) Then
                If SalvaEstrazione(aEstr,sDataEstr,nNumEstr,sFileBd) Then
                  CfrData = Left(sDataEstr,5)
                  nSalvate = nSalvate + 1
                  Call Messaggio(nSalvate)
                End If
              Else
                ColoreTesto 2
                Scrivi "ATTENZIONE " & sDataEstr & " ESTRAZIONE DUPLICATA",True
                ColoreTesto 0
              End If
            End If
            sDataLastEstr = sDataEstr
          End If
        End If
        If sDataEstr = sDataLastEstr Then b = True
      End If
    Next
    If nSalvate > 0 Then AllineaArchivi
  Else
    MsgBox "Errore download verificare il link con il browser"
  End If
  Call Scrivi("")
  ColoreTesto 1 : Call Scrivi("Script per Spaziometria V.3.0 By Joe ",True) : ColoreTesto 0
  Call Scrivi("")
  Call Scrivi("Sono state aggiunte " & nSalvate & " estrazioni")
  Call Scrivi("")
  Call Scrivi("Estrazioni totali " & QuantitaEstrazioniInFile(sFileBd))
  Call Scrivi("")
  Call Scrivi("Utilizzato Archivio del sito www.silop.it")
  Call Scrivi("")
  'End If
End Sub

Un primo riscontro positivo a questo test è dunque necessario

per chi vuole "togliersi" dal problema dell' aggiornamento di Spaziometria e subito di seguito di L8.


:)
 
Ultima modifica:
joe

joe

Advanced Member >PLATINUM PLUS<
Ringrazio Mauro-emme,

per aver riportato l'elenco in formato testo delle estrazioni necessarie ad aggiornare.

Lo script che ho riportato qualche messaggio fa ... NON funziona sui PC con win10-64.

Perché la versione di Wget a corredo di spaziometria era stata aggiunta molto tempo fa per i sistemi più vecchi.

Wget in sostanza deve avere una versione adatta al sistema operativo che siu ha in uso.

Infatti, sostituendo wget con sua versione più recente,

lo script ritorna ad essere funzionante anche sulle macchine più nuove.

NON BISOGNA DIMENTICARE che con i pc nuovi NON E' NECESSARIO AVERE WGET

perché essi possono accedere più direttamente ai siti https.

Questa immagine però dimostra che lo script può scaricare le estrazioni ed aggiornare Spaziometria.

prova.png

:)
 
Ultima modifica:
V

vincenzo4221

Advanced Member >PLATINUM<
Ciao a tutti,
chiedo cortesemente di inviarmi un foglio di testo (.txt) con le estrazioni aggiornate ad oggi con inizio almeno dall'anno 2005.

(ho l'app di aggiornamento scaricata dal sito di Silop, ma aggiorna solo le ultime 18o estr.ni ed io ho un buco dal 2005)
(con uguale formattazione:10,03,2022,73,53,45,37,87,24,69,19,84,73,61,80,45,29,40,27,28,42,87,49,02,88,06,04,75,29,04,50,33,83,14,30,77,72,42,03,48,68,39,43,23,07,77,84,89,90,84,78,56,41,16,40,22,83,62,).

grazie anticipatamente
vincenzo
 
V

vincenzo4221

Advanced Member >PLATINUM<
joe ha scritto:
Ringrazio Mauro-emme,

per aver riportato l'elenco in formato testo delle estrazioni necessarie ad aggiornare.

Lo script che ho riportato qualche messaggio fa ... NON funziona sui PC con win10-64.

Perché la versione di Wget a corredo di spaziometria era stata aggiunta molto tempo fa per i sistemi più vecchi.

Wget in sostanza deve avere una versione adatta al sistema operativo che siu ha in uso.

Infatti, sostituendo wget con sua versione più recente,

lo script ritorna ad essere funzionante anche sulle macchine più nuove.

NON BISOGNA DIMENTICARE che con i pc nuovi NON E' NECESSARIO AVERE WGET

perché essi possono accedere più direttamente ai siti https.

Questa immagine però dimostra che lo script può scaricare le estrazioni ed aggiornare Spaziometria.

Vedi l'allegato 2258516

:)
Clicca per espandere...
come faccio a trasferire i dati con la formattazione giusta per L8, come appresso riportata :04,05,2023,87,21,15,69,06,79,35,15,59,75,84,18,53,38,78,86,51,88,62,14,70,13,60,82,22,11,78,51,45,77,49,57,22,90,20,06,41,68,25,44,20,16,72,69,25,71,16,42,37,59,53,16,03,40,43,
 
silop2005

silop2005

Advanced Member >PLATINUM<
vincenzo4221 ha scritto:
Ciao a tutti,
chiedo cortesemente di inviarmi un foglio di testo (.txt) con le estrazioni aggiornate ad oggi con inizio almeno dall'anno 2005.

(ho l'app di aggiornamento scaricata dal sito di Silop, ma aggiorna solo le ultime 18o estr.ni ed io ho un buco dal 2005)
(con uguale formattazione:10,03,2022,73,53,45,37,87,24,69,19,84,73,61,80,45,29,40,27,28,42,87,49,02,88,06,04,75,29,04,50,33,83,14,30,77,72,42,03,48,68,39,43,23,07,77,84,89,90,84,78,56,41,16,40,22,83,62,).

grazie anticipatamente
vincenzo
Clicca per espandere...

vincenzo4221 ha scritto:
come faccio a trasferire i dati con la formattazione giusta per L8, come appresso riportata :04,05,2023,87,21,15,69,06,79,35,15,59,75,84,18,53,38,78,86,51,88,62,14,70,13,60,82,22,11,78,51,45,77,49,57,22,90,20,06,41,68,25,44,20,16,72,69,25,71,16,42,37,59,53,16,03,40,43,
Clicca per espandere...
==========================================
LOGOSILOP.gif
SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vs.1.0.9 e RicercaLunghetta vers.1.0.31 e LottoOpen v.1.0.62 e SpazioLight.net V.1.0.38
======================
Ciao vincenzo4221 ,
======================
sicuramente già conosci il mio sito
e anche la pagina di Joe dedicata al vecchio programma L8+6.1
in quella pagina trovi anche l'intero archivio del lotto classico di 10247 estrazioni.
L'archivio che scarichi lo devi scompattare per avere l'archivio .itz COMPATIBILE (adatto) per L8+6.1
l'archivio inizia dall'anno 1871 ed è aggiornato a Martedì del 06 giugno 2023 (uguale a quello di SPMT)
lo scarichi e segui le istruzioni per inserirlo al posto del tuo vecchio archivio.
Buon divertimento.
======================
Buon venerdì a tutto il forum.
======================
stickman.gif
A presto
Silop ;) ;) ;)
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 02 maggio 2024
    Bari
    43
    35
    83
    74
    40
    Cagliari
    10
    23
    48
    01
    87
    Firenze
    71
    12
    04
    27
    01
    Genova
    83
    37
    42
    70
    78
    Milano
    28
    72
    27
    30
    07
    Napoli
    34
    42
    13
    67
    11
    Palermo
    37
    77
    19
    17
    12
    Roma
    79
    85
    90
    55
    49
    Torino
    83
    56
    46
    57
    19
    Venezia
    41
    48
    57
    12
    15
    Nazionale
    84
    70
    10
    67
    74
    Estrazione Simbolotto
    Milano
    22
    09
    04
    01
    11
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto