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 druid avrai letto tutto ecco che ne pensi cosa posso fare è possibile rimediare..?Ben fatto Silop e grazie di avermi anticipato nella risposta.
Option Explicit
Sub Main
'Agg_Arc_Wget_3 By Joe
Dim sCommand,sPercorsoWget,sDirFileDestLocal,sFileBackup,sUrl,sFileBat,DataIni,b,nTimeoutSec
sDirFileDestLocal = GetDirectoryTemp & "Archivio.txt"
sFileBackup = sDirFileDestLocal & ".bak"
sPercorsoWget = GetDirectoryAppData & "wget.exe"
sUrl = "sLink = https://www.silop.it/Archivio(televideo)/Archivio.txt"
sCommand = """" & sPercorsoWget & """" & " -O " & """" & sDirFileDestLocal & """" & " --no-check-certificate " & sUrl
nTimeoutSec = 60
If FileEsistente(sPercorsoWget) Then
If FileEsistente(sDirFileDestLocal) Then
b = RinominaFile(sDirFileDestLocal,sFileBackup)
Else
b = True
End If
If b Then
sFileBat = GetDirectoryTemp & "Download.bat"
Call ScriviFile(sFileBat,sCommand,True,False)
Call LanciaFile(sFileBat)
Messaggio "Analisi Estrazioni"
DataIni = Now
Do While FileEsistente(sDirFileDestLocal) = False
If DateDiff("s",DataIni,Now) > nTimeoutSec Then Exit Do
Loop
If FileEsistente(sDirFileDestLocal) Then
Call EliminaFile(sFileBackup)
Call EliminaFile(sFileBat)
CloseFileHandle(sUrl)
AGG_S_III(sDirFileDestLocal)
Else
Scrivi "Attenzione !!!"
Scrivi "Il file delle estrazioni non è stato scaricato in " & GetDirectoryAppData
Call RinominaFile(sFileBackup,sDirFileDestLocal)
End If
Else
Scrivi "Attenzione !!!"
Scrivi "Non è stato possibile creare il backup delle estrazioni"
End If
Else
Scrivi "Attenzione !!!"
Scrivi "Il file wget.exe versione 1.19.4 deve essere presente nel percorso: " & GetDirectoryAppData
End If
End Sub
Sub AGG_S_III(sDirFileDestLocal)
'MsgBox sDirFileDestLocal
Dim sFileLoc
Dim nEstrTot,sDataLastEstr,k,r,e
Dim sDataEstr,nNumEstr,nSalvate
Dim b
Dim sFileBd
Dim sLink
Dim Ia,N,sVV,X,T,D
Dim CfrData
'sLink = "https://www.silop.it/Archivio(televideo)/Archivio.txt"
b = False : N = False
nSalvate = 0
sFileBd = GetDirectoryAppData & "BaseDati.dat"
sFileLoc = GetDirectoryAppData & "temp\"
'If CreaDirectory(sDirFileDestLocal) Then
Messaggio "Lettura Archivio Remoto ..."
If FileEsistente(sDirFileDestLocal) Then
T = Now
Do While D <= 10
D = DateDiff("s",T,Now)
AvanzamentoElab 1,10,D
Loop
nEstrTot = EstrazioniArchivio
sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
Ia = IndiceAnnuale(nEstrTot)
ReDim aRighe(0)
Call LeggiRigheFileDiTesto(sDirFileDestLocal,aRighe)
'MsgBox (UBound(aRighe))
For k = 1 To UBound(aRighe) 'To 0 Step - 1
ReDim aV(0) ': Scrivi Len(aRighe(k))
If Len(aRighe(k)) = 118 Then
sDataEstr = Left(aRighe(k),2) & "/" & Mid(aRighe(k),3,2) & "/" & Mid(aRighe(k),5,4) ': Scrivi sDataEstr
sVV = Right(aRighe(k),110) ': Scrivi sVV
If b Then
If(Right(sDataEstr,4) <> Right(sDataLastEstr,4)) Then Ia = 0
If sDataEstr <> sDataLastEstr Then
Ia = Ia + 1
nNumEstr =(Ia)
'ColoreTesto 4 : Scrivi Ia : ColoreTesto 0
'ColoreTesto 1 : Scrivi sDataEstr : ColoreTesto 0
'ColoreTesto 2 : Scrivi sVV : ColoreTesto 0
If nNumEstr > 0 And IsDate(sDataEstr) Then
ReDim aEstr(11,5)
r = 1 : e = 0
For X = 1 To 110 Step 2
e = e + 1
'Scrivi Mid(sVV,x,2) & " ",0,0
aEstr(r,e) = Mid(sVV,X,2)
If e = 5 Then r = r + 1 : e = 0 ': Scrivi
Next
'ScriviMatrice(aEstr)
If CfrData <> Left(sDataEstr,5) Then
If SalvaEstrazione(aEstr,sDataEstr,nNumEstr,sFileBd) Then
CfrData = Left(sDataEstr,5)
nSalvate = nSalvate + 1
Call Messaggio(nSalvate)
End If
Else
ColoreTesto 2
Scrivi "ATTENZIONE " & sDataEstr & " ESTRAZIONE DUPLICATA",True
ColoreTesto 0
End If
End If
sDataLastEstr = sDataEstr
End If
End If
If sDataEstr = sDataLastEstr Then b = True
End If
Next
If nSalvate > 0 Then AllineaArchivi
Else
MsgBox "Errore download verificare il link con il browser"
End If
Call Scrivi("")
ColoreTesto 1 : Call Scrivi("PlugIn per Spaziometria V.3.0 By Joe ",True) : ColoreTesto 0
Call Scrivi("")
Call Scrivi("Sono state aggiunte " & nSalvate & " estrazioni")
Call Scrivi("")
Call Scrivi("Estrazioni totali " & QuantitaEstrazioniInFile(sFileBd))
Call Scrivi("")
Call Scrivi("Utilizzato Archivio del sito www.silop.it")
Call Scrivi("")
'End If
End Sub
Ciao Sandrina,Ciao druid avrai letto tutto ecco che ne pensi cosa posso fare è possibile rimediare..?
si lo avevo scritto anche in un messaggio precedente che però si era sovrapposto ai vostri , perciò ho replicatoOk grazie,
Chiarissimo il mio dubbio era sull'eventuale ricorso ad un altro archivio.
Nel frattempo ho visto che l'eseguibile si riferisce al sito di Silop ...
Dunque ora è tutto chiaro.
Grazie per il know-how.
ciao joe ho fatto ma quando cerco di eseguirlo mi da questoProva a cercare con google
Tutorial Spaziometria Roy o qualcosa di simile.
Il programma per eseguirlo è Spaziometria.
A grandi linee ed in estrema sintesi devi incollare il testo del programma (cioè lo script)
nella finestra dell'editor ed in ultimo eseguirlo lanciandolo.
HO RIFATTO LA PROCEDURA E MI SI è APERTA QUESTA FINESTRACiao
prova questo script :
Codice:Option Explicit Sub Main 'Agg_Arc_Wget_3 By Joe Dim sCommand,sPercorsoWget,sDirFileDestLocal,sFileBackup,sUrl,sFileBat,DataIni,b,nTimeoutSec sDirFileDestLocal = GetDirectoryTemp & "Archivio.txt" sFileBackup = sDirFileDestLocal & ".bak" sPercorsoWget = GetDirectoryAppData & "wget.exe" sUrl = "sLink = https://www.silop.it/Archivio(televideo)/Archivio.txt" sCommand = """" & sPercorsoWget & """" & " -O " & """" & sDirFileDestLocal & """" & " --no-check-certificate " & sUrl nTimeoutSec = 60 If FileEsistente(sPercorsoWget) Then If FileEsistente(sDirFileDestLocal) Then b = RinominaFile(sDirFileDestLocal,sFileBackup) Else b = True End If If b Then sFileBat = GetDirectoryTemp & "Download.bat" Call ScriviFile(sFileBat,sCommand,True,False) Call LanciaFile(sFileBat) Messaggio "Analisi Estrazioni" DataIni = Now Do While FileEsistente(sDirFileDestLocal) = False If DateDiff("s",DataIni,Now) > nTimeoutSec Then Exit Do Loop If FileEsistente(sDirFileDestLocal) Then Call EliminaFile(sFileBackup) Call EliminaFile(sFileBat) CloseFileHandle(sUrl) AGG_S_III(sDirFileDestLocal) Else Scrivi "Attenzione !!!" Scrivi "Il file delle estrazioni non è stato scaricato in " & GetDirectoryAppData Call RinominaFile(sFileBackup,sDirFileDestLocal) End If Else Scrivi "Attenzione !!!" Scrivi "Non è stato possibile creare il backup delle estrazioni" End If Else Scrivi "Attenzione !!!" Scrivi "Il file wget.exe versione 1.19.4 deve essere presente nel percorso: " & GetDirectoryAppData End If End Sub Sub AGG_S_III(sDirFileDestLocal) 'MsgBox sDirFileDestLocal Dim sFileLoc Dim nEstrTot,sDataLastEstr,k,r,e Dim sDataEstr,nNumEstr,nSalvate Dim b Dim sFileBd Dim sLink Dim Ia,N,sVV,X,T,D Dim CfrData 'sLink = "https://www.silop.it/Archivio(televideo)/Archivio.txt" b = False : N = False nSalvate = 0 sFileBd = GetDirectoryAppData & "BaseDati.dat" sFileLoc = GetDirectoryAppData & "temp\" 'If CreaDirectory(sDirFileDestLocal) Then Messaggio "Lettura Archivio Remoto ..." If FileEsistente(sDirFileDestLocal) Then T = Now Do While D <= 10 D = DateDiff("s",T,Now) AvanzamentoElab 1,10,D Loop nEstrTot = EstrazioniArchivio sDataLastEstr = DataEstrazione(nEstrTot,,,"/") Ia = IndiceAnnuale(nEstrTot) ReDim aRighe(0) Call LeggiRigheFileDiTesto(sDirFileDestLocal,aRighe) 'MsgBox (UBound(aRighe)) For k = 1 To UBound(aRighe) 'To 0 Step - 1 ReDim aV(0) ': Scrivi Len(aRighe(k)) If Len(aRighe(k)) = 118 Then sDataEstr = Left(aRighe(k),2) & "/" & Mid(aRighe(k),3,2) & "/" & Mid(aRighe(k),5,4) ': Scrivi sDataEstr sVV = Right(aRighe(k),110) ': Scrivi sVV If b Then If(Right(sDataEstr,4) <> Right(sDataLastEstr,4)) Then Ia = 0 If sDataEstr <> sDataLastEstr Then Ia = Ia + 1 nNumEstr =(Ia) 'ColoreTesto 4 : Scrivi Ia : ColoreTesto 0 'ColoreTesto 1 : Scrivi sDataEstr : ColoreTesto 0 'ColoreTesto 2 : Scrivi sVV : ColoreTesto 0 If nNumEstr > 0 And IsDate(sDataEstr) Then ReDim aEstr(11,5) r = 1 : e = 0 For X = 1 To 110 Step 2 e = e + 1 'Scrivi Mid(sVV,x,2) & " ",0,0 aEstr(r,e) = Mid(sVV,X,2) If e = 5 Then r = r + 1 : e = 0 ': Scrivi Next 'ScriviMatrice(aEstr) If CfrData <> Left(sDataEstr,5) Then If SalvaEstrazione(aEstr,sDataEstr,nNumEstr,sFileBd) Then CfrData = Left(sDataEstr,5) nSalvate = nSalvate + 1 Call Messaggio(nSalvate) End If Else ColoreTesto 2 Scrivi "ATTENZIONE " & sDataEstr & " ESTRAZIONE DUPLICATA",True ColoreTesto 0 End If End If sDataLastEstr = sDataEstr End If End If If sDataEstr = sDataLastEstr Then b = True End If Next If nSalvate > 0 Then AllineaArchivi Else MsgBox "Errore download verificare il link con il browser" End If Call Scrivi("") ColoreTesto 1 : Call Scrivi("PlugIn per Spaziometria V.3.0 By Joe ",True) : ColoreTesto 0 Call Scrivi("") Call Scrivi("Sono state aggiunte " & nSalvate & " estrazioni") Call Scrivi("") Call Scrivi("Estrazioni totali " & QuantitaEstrazioniInFile(sFileBd)) Call Scrivi("") Call Scrivi("Utilizzato Archivio del sito www.silop.it") Call Scrivi("") 'End If End Sub
Fammi sapere quando lo hai scaricato, e se funziona, così eventualmente,
lo tolgo o lo correggo .... affinché non si crei inutile confusione.
HO RIFATTO LA PROCEDURA E MI SI è APERTA QUESTA FINESTRA
Ciao Gigio allora dovrei copiare questo script e incollarlo su "gestione scrpt" di spaziometria ? grazie ciaociao Joe , per renderlo semplice a Sandrina ho semplicemente creato l'eseguibile dallo script già noto, facendo una modifica affinche usasse il wget presente nello stesso path dell'eseguibile.
Questa versione di wget anche se datata ha il pregio di essere compilata in modo "static" ovvero contiene interamente le librerie esterne di cui ha bisogno , è a 32 bit e quindi funziona su tutti i sistemi in modo "stand alone".
Forse si poteva trovare una versione piu recente sempre compilata static , io ho fatto delle prove e siccome questa ha funzionato l'ho tenuta.
Scaricata da qui
GNU Wget 1.21.4 for Windows
Windows version of wget, the non-interactive download tooleternallybored.org