un consiglio

[vincenzo4221]

Buonasera amici,
spaziometria si è persa la ruota di roma ,..ogni elaborazione di script salta la ruota di roma , che non appare neanche nel tabellone analitico.
Sarà il nuovo plugin di aggiornamento di lottopyton? o sarà altro?
devo reinstallare?..grazie a chi vorrà intervenire.

 

[vincenzo4221]

Buonasera amici,
spaziometria si è persa la ruota di roma ,..ogni elaborazione di script salta la ruota di roma , che non appare neanche nel tabellone analitico.
Sarà il nuovo plugin di aggiornamento di lottopyton? o sarà altro?
devo reinstallare?..grazie a chi vorrà intervenire.

..mi appare solo l'ultima estrazione del 28 febbraio 2026

 

[joe]

Nella ultima riga in basso è possibile selezionare e deselezionare le ruote.



Il Tabellone Analitico di conseguenza elabora quanto si è scelto.

Ma ci sono anche altri menù di Spaziometria che possono aver escluso la ruota.

Questo piccolo script dovrebbe verificare se il tuo archivio contiene gli Estratti di Roma fino al 28/02/2026.

SubMain ()
Scrivi StringaEstratti (10814,RO_)
End Sub

 

[vincenzo4221]

...come dicevo mi appare solo l'ultima riga , cioè 10814 , se nel tu script scrivo 10813 appare 00.-
...no... in quel menù da te indicato è tutto nella norma, quali sono gli altri menù?

 

[vincenzo4221]

...come dicevo mi appare solo l'ultima riga , cioè 10814 , se nel tu script scrivo 10813 appare 00.-
...no... in quel menù da te indicato è tutto nella norma, quali sono gli altri menù?

CIAO JOE

 

[vincenzo4221]

 

[joe]

Sembra essere un problema dell'archivio.

Prova a troncare una decina delle ultime estrazioni e poi

Esegui questo script.

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) - 1
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