PROGRAMMA SPAZIOMETRIA

firefox · 22 Agosto 2023

Io ho aggiornato da Silop e poi con lo script che aggiorna da lottologia che allego

Option Explicit
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)
If EstrazioniArchivio = 0 Then nAnnoPart = 1871 : b = True
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
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

ciao a tutti
Francesco

DjNomade · 22 Agosto 2023

I resoconti L8+ e Lottodesk ho visto ora
l'avevo fatti con archivio impostato da estrazione n.3575 del 08-07-39 alla 10286 del 19-08-23

mentre Spaziometria da n. 1 07-01-1871 alla 10286 del 19-08-23

questi sotto invece da estraz. n. 1 07-01-1871 alla 10286 del 19-08-23
aggiornamenti fatti col copiaincolla da televideo o dal sito lotto-italia

L8+ 6.1 rev.34
1118.728.1114.762.1114.1169.1116.1163.1188.1069.318.133
1237.688.1129.783.1254.1126.1099.1245.1213.1179.319.158
1121.706.1189.773.1085.1218.1150.1140.1157.1136.345.162
1099.689.1160.754.1222.1140.1165.1127.1164.1175.321.96
1113.752.1160.755.1029.1168.1210.1108.1201.1162.311.90
1137.792.1136.755.1155.1111.1162.1051.1115.1257.303.20
1117.738.1281.727.1194.1193.1164.1180.1143.1156.331.11
1041.812.1204.804.1142.1138.1178.1132.1086.1176.316.46
1142.802.1201.767.1222.1143.1174.1239.1122.1185.298.4

Lottodesk 1.2 rev.6
1118.728.1114.762.1115.1169.1116.1163.1188.1069.319.133
1237.688.1129.783.1254.1126.1099.1245.1213.1179.319.158
1121.706.1189.773.1085.1218.1150.1140.1157.1136.345.162
1099.689.1160.754.1222.1140.1165.1127.1164.1175.321.96
1112.752.1160.755.1029.1168.1210.1108.1201.1162.309.90
1137.792.1136.755.1155.1111.1162.1051.1115.1257.303.20
1117.738.1281.727.1194.1193.1164.1180.1143.1156.331.11
1041.811.1205.804.1142.1138.1178.1132.1086.1176.316.46
1142.802.1201.767.1222.1143.1174.1239.1122.1185.298.4

silop2005 · 22 Agosto 2023

joe ha scritto:
Dj le tue tabelle lasciano immaginare che specie in L8 manchino delle estrazioni.

Spaziometria e Lottodesk hanno piccole differenze.

Cinzia, al confronto, in cosa hai pubblicato e quanto aveva inserito dj trovo queste differenze:

Vedi l'allegato 2266316

Silop se riesco domani provo lo script sul vecchio PC.

Ma non ho capito. NON funziona con L8 ?

========================================

SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vs.1.0.9 e RicercaLunghetta vers.1.0.31 e LottoOpen v.1.0.62 e SpazioLight.net V.1.0.38

======================

Ciao Joe ,

======================

no, non ha funzionato il tuo script per SPMT

su L8+6.1 rev.3

ho provato a modificarlo ma non ci sono riuscito.

Per questo ti ho chiesto la modifica per poterlo adoperare su L8+6.1 rev.3

Comunque ecco le immagini dell'errore:

=====================

======================

Ho copiato il tuo script dal forum Lottoced

e incollato su notepad

e poi lo incollato nel "Lottoscript"

Attendo lo script per il controllo dell'archivio, grazie.

======================

Buon martedì a tutto il forum.

======================

A presto

Silop

joe · 23 Agosto 2023

Ciao Silop, ok, ho capito qual'è il problema.

Non è che non funziona lo script ... non funziona nelle vecchia versioni di L8.

Non ho possibilità di provarlo ... ma dovrebbe essere apposto così:

Codice:

Option Explicit
Sub Main
   Dim N,R,K,F,Nu(10),Ru(1),Out
   For N = 1 To 90
      K = K + 1
      Nu(K) = N
      If K = 10 Then
         Out = ""
         For R = 1 To 12 : If R = 11 Then R = 12
            Ru(1) = R
            F = SerieFreq(1,10286,Nu,Ru,2)
            If R > 1 And R <= 12 Then Out = Out & "."
            Out = Out &(F)
         Next
         Out = Out & "." & SerieRitardo(1,10286,Nu,Ru,3)
         Scrivi Out
         K = 0
      End If
   Next
End Sub

silop2005 · 23 Agosto 2023

joe ha scritto:
Ciao Silop, ok, ho capito qual'è il problema.

Non è che non funziona lo script ... non funziona nelle vecchia versioni di L8.

Non ho possibilità di provarlo ... ma dovrebbe essere apposto così:

Codice:

Option Explicit Sub Main Dim N,R,K,F,Nu(10),Ru(1),Out For N = 1 To 90 K = K + 1 Nu(K) = N If K = 10 Then Out = "" For R = 1 To 12 : If R = 11 Then R = 12 Ru(1) = R F = SerieFreq(1,10286,Nu,Ru,2) If R > 1 And R <= 12 Then Out = Out & "." Out = Out &(F) Next Out = Out & "." & SerieRitardo(1,10286,Nu,Ru,3) Scrivi Out K = 0 End If Next End Sub

========================

SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vs.1.0.9 e RicercaLunghetta vers.1.0.31 e LottoOpen v.1.0.62 e SpazioLight.net V.1.0.38

======================

Ciao Joe ,

======================

Ok adesso ha funzionato

ho come risultato lo stesso output avuto con SPMT

ecco il risultato:

=====================

output di SPMT

elaborazione da 1 alla 10286

=====================

'1118.728.1114.762.1114.1169.1116.1163.1188.1069.317.133

'1237.688.1129.783.1254.1126.1099.1245.1213.1179.319.158

'1121.706.1189.773.1085.1218.1150.1140.1157.1136.345.162

'1099.689.1160.754.1222.1140.1165.1127.1164.1175.321.96

'1113.752.1160.755.1029.1168.1210.1108.1201.1162.311.90

'1137.792.1136.755.1155.1111.1162.1051.1115.1257.303.20

'1117.738.1281.727.1194.1193.1164.1180.1143.1156.331.11

'1041.812.1204.804.1142.1138.1178.1132.1086.1176.316.46

'1142.802.1201.767.1222.1143.1174.1239.1122.1185.298.4

=====================

output di L8+6.1 rev.3

elaborazione da 1 alla 10286

=====================

'1118.728.1114.762.1114.1169.1116.1163.1188.1069.317.133

'1237.688.1129.783.1254.1126.1099.1245.1213.1179.319.158

'1121.706.1189.773.1085.1218.1150.1140.1157.1136.345.162

'1099.689.1160.754.1222.1140.1165.1127.1164.1175.321.96

'1113.752.1160.755.1029.1168.1210.1108.1201.1162.311.90

'1137.792.1136.755.1155.1111.1162.1051.1115.1257.303.20

'1117.738.1281.727.1194.1193.1164.1180.1143.1156.331.11

'1041.812.1204.804.1142.1138.1178.1132.1086.1176.316.46

'1142.802.1201.767.1222.1143.1174.1239.1122.1185.298.4

=====================

Silop

=====================

Anche l'immagine dell'output di L8+6.1 rev.3:

=====================

======================

Buona continuazione….

======================

Buon mercoledì a tutto il forum.

======================

A presto

Silop

milla2904 · 3 Settembre 2023

Buongiorno a tutti..ho un grande problema con Spaziometria.Causa virus ho dovuto ripristinare win 10 ad una data precedente,di qualche mese prima.Fatto questo spaziometria ha cpminciato a funzionare male,mi da' le estrazioni in modo sballato e non riesco a disinstallarlo per mettere la nuova versione,Se lo faccio mi da' sempre date sballate(come si vede da immagine in basso:

Vorrei gentilmente chiedervi se esiste un programma apposito per disinstallare completamente spaziometria (con windows non ci si riesce) per poter reinstallare nuova versione,Grazie e buona domenica

Rafele ‘o Ruoss’ · 3 Settembre 2023

milla2904 ha scritto:
Buongiorno a tutti..ho un grande problema con Spaziometria.Causa virus ho dovuto ripristinare win 10 ad una data precedente,di qualche mese prima.Fatto questo spaziometria ha cpminciato a funzionare male,mi da' le estrazioni in modo sballato e non riesco a disinstallarlo per mettere la nuova versione,Se lo faccio mi da' sempre date sballate(come si vede da immagine in basso:
Vedi l'allegato 2267006

Vorrei gentilmente chiedervi se esiste un programma apposito per disinstallare completamente spaziometria (con windows non ci si riesce) per poter reinstallare nuova versione,Grazie e buona domenica

Ciao
hai diverse opzioni di aggiornamento
1 aggiorna da web non ricordo se funziona sulla tua versione
2 si puo' utilizzare lo script di joe

cosa che consiglio
reinstalla con ultima versione 1.6.54
personalmente non ho avuto alcun problema d'installazione.

in futuro per protezioni leggere ed efficaci : F-SECURE con periodo prova 3 mesi

ad-guard , per filtrare al meglio qualsiasi pubblicità io lo trovo eccezionale

antivirus ottimo l'antivir di window altri appesantiscono inutilmente.

milla2904 · 3 Settembre 2023

Rafele ‘o Ruoss’ ha scritto:
Ciao
hai diverse opzioni di aggiornamento
1 aggiorna da web non ricordo se funziona sulla tua versione
2 si puo' utilizzare lo script di joe

cosa che consiglio
reinstalla con ultima versione 1.6.54
personalmente non ho avuto alcun problema d'installazione.

in futuro per protezioni leggere ed efficaci : F-SECURE con periodo prova 3 mesi

ad-guard , per filtrare al meglio qualsiasi pubblicità io lo trovo eccezionale

antivirus ottimo l'antivir di window altri appesantiscono inutilmente.

Buongiorno..grazie davvero,,allora io ho fatto cosi'..avevo un veccio backup del file archivio Basedati.dat ,l'ho sovrascritto nella cartella giusta ed e' ritornato "normale"..poi ho eseguito lo script di Joe e si e' magicamente aggiornato:

ora come devo fare per passare alla nuova versione?io ho la 1.6.3.4..la installo sopra a questa?perche' windows non mi trova spaziometria nei programmi che posso togliere..oppure lascio questa e aggiorno sempre estrazioni con script di joe?scusate ma e' un bel programma..vorrei continuare ad usarlo..

Rafele ‘o Ruoss’ · 3 Settembre 2023

milla2904 ha scritto:
Buongiorno..grazie davvero,,allora io ho fatto cosi'..avevo un veccio backup del file archivio Basedati.dat ,l'ho sovrascritto nella cartella giusta ed e' ritornato "normale"..poi ho eseguito lo script di Joe e si e' magicamente aggiornato:
Vedi l'allegato 2267015

ora come devo fare per passare alla nuova versione?io ho la 1.6.3.4..la installo sopra a questa?perche' windows non mi trova spaziometria nei programmi che posso togliere..oppure lascio questa e aggiorno sempre estrazioni con script di joe?scusate ma e' un bel programma..vorrei continuare ad usarlo..

per quanto concerne l'aggiornamento io ho eseguito il dw e installato la nuova pur avendo la vecchia installata ,non ho avuto nessun problema,ho seguito semplicemente poi le indicazioni per l'aggiornamento delle estrazioni alla data ultima .
Per quanto riguarda il percorso è semplice trovarlo non è nella cartella programmi ma bensi ti allego uno screen
Non conosco le tue esigenze per quanto concerne il programma poi va in base all'utilizzo molti conservano la 1.6.34 sicruamente l'aggiornamento alla nuova porta delle migliorie a questo stupendo programma gratuito di @LuigiB .
Tecnicamente lui in primis e altri potranno esserti piu' di aiuto nello specificità del programma.
saluti

milla2904 · 3 Settembre 2023

ok--ho installato nuova versione..che link devo mettere qui'..mi sono perso..grazie

Rafele ‘o Ruoss’ · 3 Settembre 2023

milla2904 · 5 Settembre 2023

Rafele ‘o Ruoss’ ha scritto:
Vedi l'allegato 2267019

ok funziona il tutto,,grazie..qualcuno sa come rimuoverlo,che programma usare ?windows quando l'ha disinstallato ha lasciato nel sistema molte librerie che nei messaggi era pericoloso togliere..potrebbe essere utile anche per qualcun'altro,magari per rimettere una versione pulita e perfettamente stabile..ma solo per sapere..grazie ancora

joe · 5 Settembre 2023

Buon giorno a tutte/i.

Posso aggiungere che nelle ultime versioni Luigi ha reso nuovamente funzionante l' aggiornamento del Lotto. Dunque si può aggiornare anche senza lo script che avevo fatto. Adesso l'aggiornamento di Spaziometria funziona bene ma abbiamo esperienza del fatto che potrebbe smettere improvvisamente di funzionare. Dunque consiglio di utilizzare quanto ha fatto Luigi ed è accessibile dal menu di Spaziometria. In caso di problemi provare ad utilizzare lo script.

LUKAS · 15 Settembre 2023

Ciao buongiorno, nell'archivio del lotto manca un estrazione del 29 agosto 2023 come si può ovviare, ngrazie.

Oscar · 15 Settembre 2023

LUKAS ha scritto:
Ciao buongiorno, nell'archivio del lotto manca un estrazione del 29 agosto 2023 come si può ovviare, ngrazie.

Sei sicuro io ce l'ho

claudio8 · 15 Settembre 2023

LUKAS ha scritto:
Ciao buongiorno, nell'archivio del lotto manca un estrazione del 29 agosto 2023 come si può ovviare, ngrazie.

segui questa procedura :
base dati -> aggiornamento lotto -> tronca archivio
posizionati all'estrazione precedente alla mancante

clicca su "escludi le successive alla selezionata" ed Esegui.
L'archivio a questo punto sarà troncato alla data del 26/08/2023
Esequi quindi un nuovo aggiornamento e tiverranno reinserite le estrazioni che mancano.
Saluti

claudio8 · 15 Settembre 2023

per @LuigiB
Ciao ( è lo sfaticato che scrive ....)
Ho notato che aprendo questa finestra di tronca archivio e scorrendo la barra delle estrazioni della finestra Tronca archivio, in data 31/08/2023 ed altre seguenti, invece di esserci il numero il numero generale 10292 c'è erroneamente 6749 mentre il numero annuale è corretto :

GRazie

LuigiB · 15 Settembre 2023

prego ,,

LUKAS · 15 Settembre 2023

Grazie claudio8 risolto.

alessandro63 · 23 Settembre 2023

chiedo aiuto, come posso aggiornare spaziometria 1.6.54 GRAZIE.

PROGRAMMA SPAZIOMETRIA

Super Member >GOLD<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Junior Member

Banned

Junior Member

Banned

Junior Member

Banned

Junior Member

Advanced Member >PLATINUM PLUS<

Junior Member

Advanced Member >GOLD<

Premium Member

Premium Member

LuigiB

Guest

Junior Member

Member