Novità

Archivio visual lotto 7.05

buon giorno a tutti aproposito di archivi io cerco l'achivio di lotto Excell (programma) i file sono in formato drawit grazie fatemi sapere
Buongiorno Muletto,
avevo una delle prime versioni di quel programma, ma se le cose non sono cambiate, gli archivi si chiamano drawit, ma l'estensione e' mdb, quindi si possono aggiornare tramite macro che popoli le tabelle di access di microsoft.
 
Buongiorno Muletto,
avevo una delle prime versioni di quel programma, ma se le cose non sono cambiate, gli archivi si chiamano drawit, ma l'estensione e' mdb, quindi si possono aggiornare tramite macro che popoli le tabelle di access di microsoft.
ho provato non sono riuscito a trovare
 
Ciao Druid, direi un bel po'....licenziati e non....
Saluti
Francesco
ps. per muietto, questo è l'archivio di Lotto Excel 2015 Plus ovviamente licenziato.....
per lupo bianco, il software Visual Lotto è a pagamento. Basta cercare su INTERNET se vuoi acquistarlo.

Buona serata a tutti e rinnovo i miei auguri di una felice e serena Pasqua
 
Ecco l'archivio drawit
Buona Pasqua a tutti.
Ciao Druid
Francesco

Ciao firefox, grazie per aver condiviso i files.

Purtroppo ho provato a caricare il file drawit rinominato .mdb nel programma ma non funziona, sicuramente sbaglio io qualcosa.

Cortesemente potresti dirmi step by step come fare ? ho la versione 2006 con l'archivio fermo al 2.1.2021.

Grazie mille.

oracolotto
 
Ciao Oracolotto devi torgliere il suffisso .txt in modo tale che rimanga il file .rar.
Copia l'archivio decompresso nella dir del software. Non devi rinominare niente.
Poi se la versione in tuo possesso riconosce un altro tipo di archivio questo non lo so. Ma non dovresti aver problemi.
Io ho la versione 2015.
Saluti
Francesco
 
Ciao ragazzi, ho capito come aggiornare, manualmente purtroppo, l'archivio di visual lotto 7 tramite il link della pagina di televideo incorporata nel programma.
Praticamente salvo la pagina testuale in html e vado poi a modificare manualmente l'estrazione sia come data che come numeri, poichè non ho nozioni di html avanzate e cose varie, e soprattutto eliminando 3 righe di link di sottopagine.
In questo modo però si può aggiornare anche salvando e modificando il file in locale.
Vi terrò informati, se poi qualcuno più esperto ne capisce ben venga
 

Allegati

Ciao ragazzi, ho capito come aggiornare, manualmente purtroppo, l'archivio di visual lotto 7 tramite il link della pagina di televideo incorporata nel programma.
Praticamente salvo la pagina testuale in html e vado poi a modificare manualmente l'estrazione sia come data che come numeri, poichè non ho nozioni di html avanzate e cose varie, e soprattutto eliminando 3 righe di link di sottopagine.
In questo modo però si può aggiornare anche salvando e modificando il file in locale.
Vi terrò informati, se poi qualcuno più esperto ne capisce ben venga
Ciao phil79,
avendo un po' di tempo stamane ho "giochicchiato" con la tua idea, modificando del codice che avevo utizzato per altri scopi.
Inserisci questo script in visual lotto 7:
Codice:
Sub Main ()

' Definizione delle variabili
Dim objHTTP, objFSO, objFile, WScript
Dim strURL, strFilePath, strContent

' URL della pagina da scaricare
strURL = "https://www.televideo.rai.it/televideo/pub/solotesto.jsp?regione=&pagina=786"

' Percorso del file in cui salvare la pagina
strFilePath = "C:\Program Files (x86)\Visual Lotto 7\dati\televideo_786.html"

' Creazione dell'oggetto HTTP per la richiesta web
' Tenta prima con WinHttpRequest, che è più comune nei sistemi Windows moderni
On Error Resume Next
  objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
If Err.Number <> 0 Then
    ' Se fallisce, prova con MSXML2.XMLHTTP
    Err.Clear
      objHTTP = CreateObject("MSXML2.XMLHTTP")
    If Err.Number <> 0 Then
        ' Prova anche MSXML2.ServerXMLHTTP come ultima risorsa
        Err.Clear
          objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
        If Err.Number <> 0 Then
            WScript.Echo("Errore: Impossibile creare un oggetto HTTP. Verifica che le librerie necessarie siano installate.")
            WScript.Quit
        End If
    End If
End If
On Error GoTo 0

' Apertura della connessione (GET) all'URL
objHTTP.Open("GET", strURL, False)
objHTTP.Send

' Verifica che la richiesta sia andata a buon fine (codice 200)
If objHTTP.Status = 200 Then
    ' Creazione dell'oggetto FileSystemObject per la gestione dei file
      objFSO = CreateObject("Scripting.FileSystemObject")
    
     ' Verifica se la cartella C:\dati esiste, altrimenti la crea
    If Not objFSO.FolderExists("C:\Program Files (x86)\Visual Lotto 7\dati") Then
        objFSO.CreateFolder("C:\Program Files (x86)\Visual Lotto 7\dati")
    End If
    
    
    ' Ottiene il contenuto della pagina
    strContent = objHTTP.responseText
    
    ' Rimuove la stringa "<a href="solotesto.jsp?pagina=401">401</a> ALMANACCO"
    strContent = Replace(strContent, "<a href=""solotesto.jsp?pagina=401"">401</a> ALMANACCO", "")
    
    ' Crea o sovrascrive il file
      objFile = objFSO.CreateTextFile(strFilePath, True)
    
    ' Scrive il contenuto modificato nel file
    objFile.Write(strContent)
    
    ' Chiude il file
    objFile.Close
    
    ' Messaggio di conferma
    WScript.Echo("La pagina è stata scaricata con successo e salvata in " & strFilePath)
Else
    ' Messaggio di errore se la richiesta non è andata a buon fine
    WScript.Echo("Errore durante il download della pagina. Codice di stato: " & objHTTP.Status)
End If

' Libera le risorse
  objFile = Nothing
  objFSO = Nothing
  objHTTP = Nothing   
End sub

poi in "Utility - Opzioni/Preferenze" inserisci la stringa "file:///C:\Program Files (x86)\Visual Lotto 7\dati\televideo_786.html" - come da img:

Screenshot 2025-04-29 142540.png



In pratica lanciando lo script, scarica la pagina dell' ultima estrazione da Televideo e la rende utilizzabile , poi vai su "Archivi - Aggiornamento da Televideo" e scarica l'ultima estrazione inserendola nell'archivio.
Naturalmente aggiorna i vari "percorsi" se VL7 e' installato in path differenti.
Fammi sapere.....
Ciao
 
Ciao Druid, grazie del consiglio e script e funziona....ma il problema è un altro! L'archivio Vl7 è fermo al 2023 quindi devo aggiornarlo da allora.... per ora lo sto facendo a mano, se riesci a darmi una mano... si dovrebbe scaricare l'intero archivio dal 2023 o lanciare uno script tipo spaziometria ma non so se funziona....non ho nozioni
 

Ultima estrazione Lotto

  • Estrazione del lotto
    lunedì 28 aprile 2025
    Bari
    62
    48
    68
    64
    35
    Cagliari
    50
    54
    70
    90
    64
    Firenze
    56
    43
    77
    70
    22
    Genova
    56
    80
    78
    87
    10
    Milano
    80
    77
    60
    22
    79
    Napoli
    40
    16
    28
    64
    18
    Palermo
    05
    41
    90
    06
    68
    Roma
    54
    22
    82
    89
    80
    Torino
    72
    21
    25
    16
    70
    Venezia
    35
    68
    75
    03
    30
    Nazionale
    76
    44
    20
    70
    67
    Estrazione Simbolotto
    Genova
    10
    13
    20
    18
    34
Indietro
Alto