Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
=================================================Ciao,
apre il plugin ma non aggiorna. Spaziometria da tempo non mi aggiorna più gli archivi
Vedi l'allegato 2204090
|
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. |
====================== |
A presto |
Silop |
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
"C:\ --PERCORSO DI WGET-- \wget.exe" --no-check-certificate https://www.lottologia.com/10elotto5minuti/?do=past-draws-archive"&"as=TXT
In pratica per l'aggiornamento di ArchiviRotanti è necessario aggiornare prima l'archivio 10elotto 5M di spaziometria
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
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