Gentilmente un altro aiutino se possibile con Spaziometria
- Creatore Discussione Ufrenk
- Data di inizio
Baciccia4251
Super member
Caro Ufrenk saluti!
Prima di tutto per cercare e trovare i file nel computer con facilità scarica il file Everything (c'è sia installabile che portable)
lo trovi in questo sito: https://www.voidtools.com/
Poi, a questo punto, disinstalla Spaziometria. Devi eliminare tutti i file che lo riguardano sul computer (Everything ti aiuta).
Non sarebbe male eliminarlo anche dal Registro di Windows, però, se non sai come si fa, lascia perdere.
A questo punto reinstalla Spaziometria. Lo apri, e prima di tutto, controlli che l'imbutino sia verde (quello che ti ha indicato Osyman).
Poi esegui Aggiornamento Lotto da Web come indicato, sempre, da Osyman in un post precedente.
Ora, se non funziona ancora hai tre alternative:
1) andare a Lourdes
2) spedirmi il Computer che te lo sistemo
3) trovare qualcuno che scherzi meno di me e riesca ad aiutarti
A parte gli scherzi, prova e se non riesci vedremo, assieme ad altri più preparati, di risolvere il tuo problema
Buon Non Compleanno
Baciccia
Prima di tutto per cercare e trovare i file nel computer con facilità scarica il file Everything (c'è sia installabile che portable)
lo trovi in questo sito: https://www.voidtools.com/
Poi, a questo punto, disinstalla Spaziometria. Devi eliminare tutti i file che lo riguardano sul computer (Everything ti aiuta).
Non sarebbe male eliminarlo anche dal Registro di Windows, però, se non sai come si fa, lascia perdere.
A questo punto reinstalla Spaziometria. Lo apri, e prima di tutto, controlli che l'imbutino sia verde (quello che ti ha indicato Osyman).
Poi esegui Aggiornamento Lotto da Web come indicato, sempre, da Osyman in un post precedente.
Ora, se non funziona ancora hai tre alternative:
1) andare a Lourdes
2) spedirmi il Computer che te lo sistemo
3) trovare qualcuno che scherzi meno di me e riesca ad aiutarti
A parte gli scherzi, prova e se non riesci vedremo, assieme ad altri più preparati, di risolvere il tuo problema
Buon Non Compleanno
Baciccia
Ciao Baciccia
grazie per l'interessamento
Allora spaziometria mesi e mesi fa lo disinstallai e installai di nuovo ma non andava,finche' mi venne l'idea di installarlo in un altro percorso e finalmente riuscii.
ora di punto in bianco da un po di estrazioni che non ne vuole sapere l'aggiornamento via web.
Ho fatto come ha detto Osyman ma nulla.
Sinceramente mi rompe il fatto che ogni volta bisogna fare tutta sta procedura,ma se e' l'unica soluzione provero' come dici tu e ti faro' sapere,grazie
grazie per l'interessamento
Allora spaziometria mesi e mesi fa lo disinstallai e installai di nuovo ma non andava,finche' mi venne l'idea di installarlo in un altro percorso e finalmente riuscii.
ora di punto in bianco da un po di estrazioni che non ne vuole sapere l'aggiornamento via web.
Ho fatto come ha detto Osyman ma nulla.
Sinceramente mi rompe il fatto che ogni volta bisogna fare tutta sta procedura,ma se e' l'unica soluzione provero' come dici tu e ti faro' sapere,grazie
ciao, se ti può essere utile io uso questo script per aggiornare l'archivio ogni volta:
Option Explicit
Sub Main
'Agg_Silop V.3.3 del 6/05/2023
'Script per Spaziometria By Joe.
Dim sFileLoc
Dim nEstrTot,sDataLastEstr,k,r,e
Dim sDataEstr,nNumEstr,nSalvate
Dim b
Dim sFileBd
Dim sLink
Dim Ia,N,sVV,x
Dim CfrData
sLink = "https://www.silop.it/Archivio(televideo)/Archivio.txt"
b = False : N = False
nSalvate = 0
sFileBd = GetDirectoryAppData & "BaseDati.dat"
Scrivi sFileBd,1,,,2 : Scrivi
sFileLoc = GetDirectoryAppData & "ArcTlv\"
Messaggio "Script By Joe"
If CreaDirectory(sFileLoc) Then
sFileLoc = sFileLoc & "Archivio.txt"
If DownloadFromWeb(sLink,sFileLoc) Then
nEstrTot = EstrazioniArchivio
sDataLastEstr = DataEstrazione(nEstrTot,,,"/")
Ia = IndiceAnnuale(nEstrTot)
ReDim aRighe(0)
Call LeggiRigheFileDiTesto(sFileLoc,aRighe)
For k = 1 To UBound(aRighe)
AvanzamentoElab 1,UBound(aRighe),k
ReDim aV(0)
If Len(aRighe(k)) = 118 Then
sDataEstr = Left(aRighe(k),2) & "/" & Mid(aRighe(k),3,2) & "/" & Mid(aRighe(k),5,4)
sVV = Right(aRighe(k),110)
If b Then
If N = False And(Right(sDataEstr,4) <> Right(sDataLastEstr,4)) Then Ia = 0 : N = True
If Left(sDataEstr,4) <> Left(sDataLastEstr,4) Then
Ia = Ia + 1
nNumEstr =(Ia)
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
aEstr(r,e) = Mid(sVV,x,2)
If e = 5 Then r = r + 1 : e = 0
Next
If CfrData <> Left(sDataEstr,5) Then
If SalvaEstrazione(aEstr,sDataEstr,nNumEstr,sFileBd) Then
CfrData = Left(sDataEstr,5)
nSalvate = nSalvate + 1
End If
Else
ColoreTesto 2
Scrivi "ATTENZIONE " & sDataEstr & " ERRORE NELLE DATE",True
ColoreTesto 0
End If
End If
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("Sono state aggiunte " & nSalvate & " estrazioni")
Call Scrivi("")
Call Scrivi("Estrazioni totali " & QuantitaEstrazioniInFile(sFileBd))
Call Scrivi("")
Call Scrivi("Sito Archivio " & Left(sLink,20))
Call Scrivi("")
End If
Call Scrivi("Tempo Trascorso " & TempoTrascorso)
End Sub
sono contenta che son riuscita ad aiutare qualcuno.....
Pandit
Member
Ma è lo stesso script che ti avevo messo nel 3D "Chiedo gentilmente uno script" precedente, quello del grandissimo Joe?????
Ultima estrazione Lotto
-
Estrazione del lotto
martedì 20 agosto 2024Bari5275452009Cagliari4323314157Firenze0207318046Genova2750640665Milano5654076041Napoli4364133211Palermo4969266240Roma2042703278Torino6157710403Venezia3025462101Nazionale4910374470Estrazione Simbolotto
Nazionale
0843073603
