Novità

Script aggiornamento 10elotto 5 min

mirapep

Advanced Member >PLATINUM PLUS<
Purtroppo non va.
Il file2 dà prima il solito messaggio di errore, poi alla richiesta se vuoi vedere ulteriori messaggi esce ll'output come da immagine

Maurizio2.jpg


Il link lo trova invece.

Il file1 invece mi apre prima le directory di spaziometria e poi da il solito messaggio di errore
 

mirapep

Advanced Member >PLATINUM PLUS<
Che poi non ho compreso come mai da ArchiviRotanti l'archivio lotto si aggiorna regolarmente, gli altri no perchè dovrebbe rilevarli da spaziometria che non si aggiorna per niente
 

silop2005

Advanced Member >PLATINUM<
Ciao,
apre il plugin ma non aggiorna. Spaziometria da tempo non mi aggiorna più gli archivi

Vedi l'allegato 2204090
=================================================
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 vers.1.0.9
======================
Ciao Mirapep ,
======================
ti ho scritto una mail con le info
come aggiornare l'archivio del 10L5M su SPMT.
Fammi sapere se ti è arrivata.
Buona giornata a tutto il forum.
======================
stickman.gif
A presto
Silop ;) ;) ;)
 

joe

Advanced Member >PLATINUM PLUS<
Che poi non ho compreso come mai da ArchiviRotanti l'archivio lotto si aggiorna regolarmente, gli altri no perchè dovrebbe rilevarli da spaziometria che non si aggiorna per niente

Lo script presente al Msg 49


per il lotto dovrebbe funzionare.

Ma come ho scritto prima, più si mescolano argomenti, più è difficile trovare soluzioni.

Da quello che avete scritto si ricava che lo script che avevo proposto per il 10eL5min non legge l'archivio.

Ovvero, non scarica il testo dell'archivio ... ma la pagina web.

pertanto il vostro secondo script (poi) non ha i dati corretti dai quali estrarre l'aggiornamento x il 10L5Min.

Cioè a quell'indirizzo non c'è un il testo necessario ma c'è una pagina web con il bottone con cui richiederlo.

Sinceramente non ho proprio idea di come .. e se si possa fare tutto con un solo script.

:)
 
Ultima modifica:

mirapep

Advanced Member >PLATINUM PLUS<
Ciao Silop, grazie per la gentilezza così come a quanti hanno cercato di risolvere il problema.
Purtroppo anche seguendo le tue indicazioni arriva puntualmente lo stesso messaggio di errore
Credo proprio che devo scrivermi una routine vb6.
Vedo prima come vanno le previsioni nella discussione "Speculare con ArchiviRotanti" per il lotto, poi passo al 10elotto 5M per provare la stessa tecnica se il gioco ne vale la candela.

Saluti
 

mirapep

Advanced Member >PLATINUM PLUS<
Ciao Maurizio


Ma1.jpg



Ma2.jpg
Poi non riesco a comprendere come mai nella directory di spaziometria trovo solo un plugin di aggiornamento superenalotto che se mando in esecuzione funziona e scarica le combinazioni ma non comprendo dove le registra. Infatti se lancio l'aggiornamento da spaziometria non solo la schermata plugin è diversa ma da anche errore e l'archivio non risulta aggiornato

Ma3.jpg
 

mirapep

Advanced Member >PLATINUM PLUS<
Buongiorno,
ArchiviRotanti aggiorna il 10elotto 5M da spaziometria e ha sempre dato errore. Ho inserito nella directory di spaziometria un file archivio fornito da silop. Ho provato ad aggiornare da ArchiviRotanti e Sorpresa ha eseguito l'aggiornamento. Non riesco proprio a comprendere. Da spaziometria non si aggiorna.
 

mirapep

Advanced Member >PLATINUM PLUS<
Buongiorno,
ArchiviRotanti aggiorna il 10elotto 5M da spaziometria e ha sempre dato errore. Ho inserito nella directory di spaziometria un file archivio fornito da silop. Ho provato ad aggiornare da ArchiviRotanti e Sorpresa ha eseguito l'aggiornamento. Non riesco proprio a comprendere. Da spaziometria non si aggiorna.
 

druid

Super Member >PLATINUM<
Buongiorno a tutti gli intervenuti.
Non avendo win Xp non posso testare il comando .bat
Codice:
"C:\  --PERCORSO DI WGET--  \wget.exe" --no-check-certificate https://www.lottologia.com/10elotto5minuti/?do=past-draws-archive"&"as=TXT

scarica un file chiamato

index.html@do=past-draws-archive&as=TXT

va rinominato in

"come vuoi" con estensione .txt (esempio: archivio.txt)

Chi puo' provarlo? Grazie.
Ciao
 

joe

Advanced Member >PLATINUM PLUS<
Ciao Druid.

Proverò appena avrò un pc.

:) Grazie.
 
Ultima modifica:

mirapep

Advanced Member >PLATINUM PLUS<
Ciao Druid
eseguito come da istruzioni, l'archivio riferito alle estrazioni del giorno è stato scaricato nella stessa directory di wget, e ora?

grazie
 

mirapep

Advanced Member >PLATINUM PLUS<
In pratica per l'aggiornamento di ArchiviRotanti è necessario aggiornare prima l'archivio 10elotto 5M di spaziometria
 

druid

Super Member >PLATINUM<
In pratica per l'aggiornamento di ArchiviRotanti è necessario aggiornare prima l'archivio 10elotto 5M di spaziometria

Prova questo .bat (scarica gli archivi da Silop), su vista funziona

Codice:
wget -O Basedati.dat --no-check-certificate https://www.silop.it/archivi/lottoItalia/BaseDati.dat
wget -O BaseDati10Elotto5M.Dat --no-check-certificate https://www.silop.it/archivi/lottoItalia/BaseDati10Elotto5M.Dat

con wget messo nella dir di SPMT.

Ciao
 

mirapep

Advanced Member >PLATINUM PLUS<
Il problema è l'aggiornamento in tempo reale. Comunque, aver scaricato la pagina web è già un buon punto di partenza. Ora se si riesce a modificare lo script di messaggio2 bene, altrimenti conoscendo la struttura dati dell'archivio e quello della pagina web creerò un programmino in vb6

Un sentito grazie a tutti
 

mirapep

Advanced Member >PLATINUM PLUS<
Allora Maurizio, passo avanti, i due script non danno più messaggio di errore al lancio. Il primo in output non da niente e il file non risulta aggiornato. Il secondo va in elaborazione, la barra di avanzamento elaborazione si ferma al penultimo rettangolino verde e dopo qualche secondo si apre l'output con la dicitura "elemento non trovato"
 
Ultima modifica:

mirapep

Advanced Member >PLATINUM PLUS<
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
'CAMBIARE PERCORSO DOVE SALVARE IL FILE
Dim sFile: sFile = "C:\Documents and Settings\Pippo\Desktop\Lottologia\Archivio 10eLotto5M.txt"
'

Questo è il percorso che ho indicato
 

mirapep

Advanced Member >PLATINUM PLUS<
Il problema con il wget è che se si utilizza il comando indicato da druid, si scarica nella stessa directory di wget il file index.html@do=past-draws-archive&as=TXT.
Con il comando indicato da Maurizio non viene riconosciuta la directory e il file di destinazione con l'istruzione -o
 

druid

Super Member >PLATINUM<
Ciao a tutti
Ho modificato lo script di Maurizio B.
Non avendo Xp non posso testare lo script ma su Vista funziona....
Codice:
Option Explicit
'https://forums.mydigitallife.net/
Sub Main()
Dim sPercorsoLocale : sPercorsoLocale = " C:\             \SpazioMetria\Archivio.txt"
   Dim sFileEstrazioni : sFileEstrazioni = " C:\                  \SpazioMetria\Archivio10eLotto5M.txt"
   Dim sFile : sFile = "C:\                                                       \SpazioMetria\ftp.bat"
   Call Messaggio("Download Archivio 10eLotto5M")
   
Call LanciaFile(sFile)
   Dim sFileDown: sFileDown=ScegliFile(,".*")
   Call EliminaFile(sPercorsoLocale)

   Call RinominaFile(sFileDown,sPercorsoLocale)
   If FileEsistente(sPercorsoLocale) Then
      Call Messaggio("Lettura file di testo")
      ReDim aRighe(00)
      Dim k,sOut
      Dim nRetNumEstr,sRetData
      Call LeggiRigheFileDiTesto(sPercorsoLocale,aRighe)
      For k = 03 To UBound(aRighe) - 03
         Call aGetScriviArchivio(aRighe,k,sRetData,nRetNumEstr,sOut)
         Call EliminaFile(sFileEstrazioni)
         Call ScriviFile(sFileEstrazioni,sOut)
         Call Messaggio("Colonna : " & k)
         If ScriptInterrotto Then Exit For
         Call AvanzamentoElab(00,UBound(aRighe),k)
      Next
      Call CloseFileHandle(sFileEstrazioni)
      Call LanciaFile(sFileEstrazioni)
      '
      Call LeggiRigheFileDiTesto(sFileEstrazioni,aRighe)
      For k = 000 To UBound(aRighe)
         Call Scrivi(aRighe(k))
      Next
      Call EliminaFile(sFileDown)

   End If
End Sub
Function aGetScriviArchivio(aRighe,k,sRetData,nRetNumEstr,sOut)
   aRighe(k) = Replace(aRighe(k),"-",">")
   aRighe(k) = Replace(aRighe(k),vbTab,">")
   aRighe(k) = Replace(aRighe(k),"/",">")
   aRighe(k) = Replace(aRighe(k)," ",">")
   Do While InStr(aRighe(k),">>")
      aRighe(k) = Replace(aRighe(k),">>",">")
   Loop
   ReDim aValori(000)
   Call SplitByChar(aRighe(k),">",aValori)
   Dim nGiornoCorr,nMeseCorr,nAnnoCorr
   nGiornoCorr = Int(aValori(02))
   nMeseCorr = Int(aValori(01))
   nAnnoCorr = Int(aValori(00))
   sRetData = Format2(nGiornoCorr) & "/" & Format2(nMeseCorr) & "/" & nAnnoCorr
   nRetNumEstr = Int(aValori(03))
   ReDim aRetNumVinc(24) : Dim xx
   For xx = 05 To 24
      aRetNumVinc(xx) = Int(aValori(xx))
   Next
   If IsDate(sRetData) = True Then
      If nRetNumEstr <> 00 Then
         If UBound(aRetNumVinc) = 20 Then
            aGetScriviArchivio = True
            Exit Function
         End If
      End If
   End If
   aGetScriviArchivio = False
   sOut = sRetData & ";" & FormattaStringa(nRetNumEstr,"000") & ";" & StringaNumeri(aRetNumVinc,";",True)
End Function

Il ftp.bat e' quello al post #42 con la raccomandazione di wget inserito nella stessa dir di SPMT.

Ciao
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 16 aprile 2024
    Bari
    49
    10
    76
    62
    26
    Cagliari
    42
    80
    16
    39
    65
    Firenze
    58
    22
    11
    86
    40
    Genova
    79
    14
    36
    51
    44
    Milano
    25
    27
    16
    77
    79
    Napoli
    70
    04
    51
    49
    71
    Palermo
    61
    65
    76
    53
    43
    Roma
    70
    86
    68
    80
    47
    Torino
    17
    71
    64
    72
    40
    Venezia
    22
    42
    39
    72
    30
    Nazionale
    83
    37
    81
    57
    78
    Estrazione Simbolotto
    Genova
    10
    14
    28
    18
    15
Alto