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
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto