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 <= 30
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
Joe
