Novità

Script aggiornamento 10elotto 5 min

mirapep

Advanced Member >PLATINUM<
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
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<
Ciao Druid.

Proverò appena avrò un pc.

:) Grazie.
 
Ultima modifica:

mirapep

Advanced Member >PLATINUM<
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<
In pratica per l'aggiornamento di ArchiviRotanti è necessario aggiornare prima l'archivio 10elotto 5M di spaziometria
 

druid

Super member
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<
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
 
da provare
posta il file che scarica questo
dal sito lottomatica
controlla i percorsi che siano esatti e corrispondenti con i tuoi
 

Allegati

  • 5.txt
    2,4 KB · Visite: 15

mirapep

Advanced Member >PLATINUM<
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<
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
'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<
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
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:

mirapep

Advanced Member >PLATINUM<
Ciao,
allora il wget va bene, lo lancia, e scarica anche la pagina web nella directory di spaziometria. Poi mi chiede di selezionare un file

druid.jpg

seleziono la pagina web scaricata e

druid1.jpg
 

druid

Super member
Ciao ho modificato lo script, riscaricalo.
Dalla dir di SPTM elimina i file html creati.
Rilancia lo script.
Ciao
 

mirapep

Advanced Member >PLATINUM<
Dà sempre lo stesso errore. Quando chiede di selezionare un file devo cliccare su index........?
E se ho compreso le istruzioni poi dovrebbe chiedere di rinominarlo e dovrei selezionare Archivio.txt

Comunque si blocca al primo step
 

druid

Super member
Dà sempre lo stesso errore. Quando chiede di selezionare un file devo cliccare su index........?
E se ho compreso le istruzioni poi dovrebbe chiedere di rinominarlo e dovrei selezionare Archivio.txt

Comunque si blocca al primo step

Si, devi selezionare quello; la rinomina la fa in automatico.
 

mirapep

Advanced Member >PLATINUM<
Sarà un'istruzione così ignorante che non riesco a trovarla.
Ho letto qualcosa sul wget e l'istruzione per rinominare un file è -O. Non comprendo perchè non la esegue così come indicato da Maurizio, ho posto anche le " che mancavano.
Ormai è una questione di tigna :mad::mad::mad::ROFLMAO:
 

Ultima estrazione Lotto

  • Estrazione del lotto
    Thursday 29 October 2020
    Bari
    26
    78
    70
    83
    51
    Cagliari
    62
    21
    12
    11
    44
    Firenze
    48
    38
    85
    90
    79
    Genova
    81
    57
    25
    32
    34
    Milano
    13
    49
    15
    82
    27
    Napoli
    31
    09
    27
    24
    33
    Palermo
    08
    25
    31
    86
    40
    Roma
    10
    06
    39
    57
    85
    Torino
    77
    39
    71
    74
    22
    Venezia
    67
    76
    29
    28
    56
    Nazionale
    30
    40
    42
    26
    16
    Estrazione Simbolotto
    08
    19
    11
    28
    37

Ultimi Messaggi

Alto