Option Explicit
'Script per Spaziometria V.4.0 di LuigiB & Giomi Rev. By Joe
Sub Main
Dim sDirTemp
Dim sLink
Dim nAnnoPart,nAnnoCorr,sNuovaData
Dim k
Dim id
Dim sDataEstr,sCData,nSalvate,sFileBd
Dim sV,r,e,x
Dim b,nEstrTot,sDataLastEstr,iA,z
nAnnoPart = Year(Now) - 2
nAnnoCorr = Year(Now)
sFileBd = GetDirectoryAppData & "BaseDati.dat"
sDirTemp = GetDirectoryTemp & "lottologia.txt"
Call EliminaFile(sDirTemp)
For sNuovaData = nAnnoPart To nAnnoCorr
If ScriptInterrotto Then Exit For
Call Messaggio(sNuovaData)
Call AvanzamentoElab(nAnnoPart,nAnnoCorr,sNuovaData)
sLink = "https://www.lottologia.com/lotto/archivio-estrazioni/?as=TXT&year=" & sNuovaData
If DownloadFromWeb(sLink,sDirTemp) Then
nEstrTot = EstrazioniArchivio
If nEstrTot = 0 Then nAnnoPart = 1871 : b = True
sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
z = Right(sDataLastEstr,4)
id = IndiceAnnuale(nEstrTot)
ReDim aRighe(0)
If LeggiRigheFileDiTesto(sDirTemp,aRighe) Then
If EliminaFile(sDirTemp) Then
If Trim(aRighe(k)) <> "" Then
For k = UBound(aRighe) - 3 To 2 Step - 1
aRighe(k) = Replace(aRighe(k),vbTab,"")
aRighe(k) = Replace(aRighe(k),"-","")
'Call Scrivi(id & " ",0,0)
sDataEstr = Mid(aRighe(k),7,2) & "/" & Mid(aRighe(k),5,2) & "/" & Left(aRighe(k),4)
If z <> Left(aRighe(k),4) Then id = 0 : z = Left(aRighe(k),4)
'Call Scrivi(sDataEstr)
sV = Right(aRighe(k),110)
'Call Scrivi (sV)
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(sV,x,2)
If e = 5 Then r = r + 1 : e = 0
Next
'ScriviMatrice(aEstr)
If b = True Then
If sCData <> sDataEstr Then
id = id + 1
If SalvaEstrazione(aEstr,sDataEstr,id,sFileBd) Then
sCData = sDataEstr
nSalvate = nSalvate + 1
Call Messaggio(nSalvate)
End If
Else
ColoreTesto 2
Scrivi "ATTENZIONE " & sDataEstr & " ESTRAZIONE DUPLICATA",True
ColoreTesto 0
End If
End If
If sDataEstr = sDataLastEstr Then b = True
'
Next
End If
End If
End If
End If
If ScriptInterrotto Then Exit For
Next
If nSalvate > 0 Then
AllineaArchivi
Call Scrivi()
Call Scrivi("Script per Spaziometria V.4.0 di LuigiB & Giomi Rev. By Joe",True,,,vbBlue)
Call Scrivi()
Call Scrivi("Sono state aggiunte " & nSalvate & " estrazioni")
Call Scrivi("")
Call Scrivi("Estrazioni totali " & EstrazioniArchivio)
Call Scrivi()
Call Scrivi("Utilizzato Archivio del sito
www.lottologia.com")
Call Scrivi()
Else
Call Scrivi("NON HO TROVATO NUOVE ESTRAZIONI !",1,,,2)
End If
End Sub
