problema L8+6.1

[Robinson]

Buongiorno a tutti, ho dovuto reinstallare il Prog. L8 e anche spaziometria, (a parte che ancora non sono riuscito a scaricare gli archivi aggiornati, mi succede che su L8, quando lancio uno script invece di partire mi fà uscire dal programma, su spaziometria invece non scarica le estrazioni del venerdì,
ammetto la mia inesperienza e chiedo un consiglio . grazie anticipatamente RBSN

 

[Baciccia4251]

Buongiorno a tutti, ho dovuto reinstallare il Prog. L8 e anche spaziometria, (a parte che ancora non sono riuscito a scaricare gli archivi aggiornati, mi succede che su L8, quando lancio uno script invece di partire mi fà uscire dal programma, su spaziometria invece non scarica le estrazioni del venerdì,
ammetto la mia inesperienza e chiedo un consiglio . grazie anticipatamente RBSN

Un Robinson che ha problemi con Venerdì , mi ricorda qualcosa...
Vediamo se col mio aiuto riusciamo, prima di tutto, ad installare Spaziometria.
L8 non lo uso da tre vite e non ricordo nulla di questo programma
Andiamo per gradi.
Prima di tutto disinstalli completamente i due programmi.
Faccia una bella pulizia approfondita, in modo che non rimanga, sul computer nessun file, impostazione, ecc.
Se ha bisogno di dritte per fare questo chieda pure.
Una volta finita questa prima parte, procederemo all'installazione di Spaziometria.
Mi faccia sapere quando è pronto.
Se qualcuno altro vuole intervenire coi suoi suggerimenti, è il benvenuto.
Più siamo meno cavolate facciamo
Baciccia

 

[Robinson]

Un Robinson che ha problemi con Venerdì , mi ricorda qualcosa...
Vediamo se col mio aiuto riusciamo, prima di tutto, ad installare Spaziometria.
L8 non lo uso da tre vite e non ricordo nulla di questo programma
Andiamo per gradi.
Prima di tutto disinstalli completamente i due programmi.
Faccia una bella pulizia approfondita, in modo che non rimanga, sul computer nessun file, impostazione, ecc.
Se ha bisogno di dritte per fare questo chieda pure.
Una volta finita questa prima parte, procederemo all'installazione di Spaziometria.
Mi faccia sapere quando è pronto.
Se qualcuno altro vuole intervenire coi suoi suggerimenti, è il benvenuto.
Più siamo meno cavolate facciamo
Baciccia

(Se ha bisogno di dritte per fare questo chieda pure.)
infatti ho bisognissimo, perchè quando smanetto x conto mio faccio solo confusione,
intanto grazie per l'interessamento Baciccia e grazie anche a Silop e a quanti vorranno dare consigli o dritte.
cordialmente RBSN

 

[Baciccia4251]

(Se ha bisogno di dritte per fare questo chieda pure.)
infatti ho bisognissimo, perchè quando smanetto x conto mio faccio solo confusione,
intanto grazie per l'interessamento Baciccia e grazie anche a Silop e a quanti vorranno dare consigli o dritte.
cordialmente RBSN

OK! Partiamo

Per prima cosa deve, se già non li ha, procurarsi alcuni programmi che ci aiuteranno nell'arduo tentativo di riuscire a fare in sedici anni quello che altri farebbero in tre minuti (scherzo).
1) Iobit Uninstaller: https://www.iobit.com/it/advanceduninstaller.php
quando lo installa, questo maledetto, le installerà programmi non voluti. Non si preoccupi. Li elimineremo proprio con Uninstaller
2) Evrything Portable: https://www.voidtools.com/downloads/
Potentissimo programma per cercare file sul disco rigido
3) Windows repair toolbox: https://windows-repair-toolbox.com/
ottima suite gratuita per risolvere molti problemi di Windows. Il download è a metà pagina del sito:

C'è scritto, se non conosce l'inglese, che cliccando su DOWNLOAD si scarica il programma.
Sull'uso, poi ne parliamo

4) Ccleaner: https://www.ccleaner.com/it-it
Per la pulizia da file inutili e non solo (Esiste un programma migliore che è Kerish Doctor, però la versione di prova dura solo 15 giorni. Personalmente ho fatto l'abbonamento triennale perché lo considero un prodotto molto valido)

Se poi dovessero servire le suggerirò altri programmi.

Li scarichi, se già non li ha, e li installi.
In caso di problemi chieda pure. Le risponderò il prima possibile.

Ha scritto: infatti ho bisognissimo, perché quando smanetto x conto mio faccio solo confusione,
Non creda che io ne sappia molto più di lei. Ho solo la capacità di usare Internet per cercare le soluzioni ai diversi problemi che si presentano.
Gli esperti, quelli veri, non sono le persone che fanno cadere dall'alto quel poco che sanno, sono quelli come me e lei che non capiscono una mazza ma si impegnano per cercare di capire, ricorrendo, quando serve a piccoli aiuti. A volte riescono a volte no. Non è meraviglioso tutto questo?
Quindi si armi di pazienza, di voglia di riuscire e via elencando e... all'arembaggio. Tremate stiamo arrivando.
Baciccia

 

[Baciccia4251]

OK! Partiamo

Per prima cosa deve, se già non li ha, procurarsi alcuni programmi che ci aiuteranno nell'arduo tentativo di riuscire a fare in sedici anni quello che altri farebbero in tre minuti (scherzo).
1) Iobit Uninstaller: https://www.iobit.com/it/advanceduninstaller.php
quando lo installa, questo maledetto, le installerà programmi non voluti. Non si preoccupi. Li elimineremo proprio con Uninstaller
2) Evrything Portable: https://www.voidtools.com/downloads/
Potentissimo programma per cercare file sul disco rigido
3) Windows repair toolbox: https://windows-repair-toolbox.com/
ottima suite gratuita per risolvere molti problemi di Windows. Il download è a metà pagina del sito:
Vedi l'allegato 2289445
C'è scritto, se non conosce l'inglese, che cliccando su DOWNLOAD si scarica il programma.
Sull'uso, poi ne parliamo

4) Ccleaner: https://www.ccleaner.com/it-it
Per la pulizia da file inutili e non solo (Esiste un programma migliore che è Kerish Doctor, però la versione di prova dura solo 15 giorni. Personalmente ho fatto l'abbonamento triennale perché lo considero un prodotto molto valido)

Se poi dovessero servire le suggerirò altri programmi.

Li scarichi, se già non li ha, e li installi.
In caso di problemi chieda pure. Le risponderò il prima possibile.

Ha scritto: infatti ho bisognissimo, perché quando smanetto x conto mio faccio solo confusione,
Non creda che io ne sappia molto più di lei. Ho solo la capacità di usare Internet per cercare le soluzioni ai diversi problemi che si presentano.
Gli esperti, quelli veri, non sono le persone che fanno cadere dall'alto quel poco che sanno, sono quelli come me e lei che non capiscono una mazza ma si impegnano per cercare di capire, ricorrendo, quando serve a piccoli aiuti. A volte riescono a volte no. Non è meraviglioso tutto questo?
Quindi si armi di pazienza, di voglia di riuscire e via elencando e... all'arembaggio. Tremate stiamo arrivando.
Baciccia

Mi sono dimenticato una cosa importante.
Prima di disinstallare faccia una prova con lo Script di aggiornamento
indicato in altro posto, non ricordo da chi.
Ora, al cellulare, non riesco a cercarlo. Se non lo trova, appena posso lo cerco al computer.
Saluti
Baciccia

 

[scrignobianco]

script per estrazioni aggiornate spaziometria..dovrebbe essere questo



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

 

[Baciccia4251]

script per estrazioni aggiornate spaziometria..dovrebbe essere questo



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

Mi sembra questo. Grazie scrignobianco.
Ora Robinson dovrebbe provare ad utilizzarlo e vedere se funziona. Questo risparmierebbe un bel po' di tempo.
E risolverebbe uno dei suoi problemi.
L'unione fa la forza e fa risparmiare tempo

Che Windows vi risparmi uno dei suoi centomila problemi
Baciccia

 

[Robinson]

Mi sembra questo. Grazie scrignobianco.
Ora Robinson dovrebbe provare ad utilizzarlo e vedere se funziona. Questo risparmierebbe un bel po' di tempo.
E risolverebbe uno dei suoi problemi.
L'unione fa la forza e fa risparmiare tempo

Che Windows vi risparmi uno dei suoi centomila problemi
Baciccia

Spaziometria Risolto !!!! archivio scaricato compresi i venerdì grazie a tutti x i consigli Baciccia Scrignobianco Silop Joe

ora resta L8 L'ho riscaricato ma non carica il setup....impossibile eseguire.

 

[Baciccia4251]

Spaziometria Risolto !!!! archivio scaricato compresi i venerdì grazie a tutti x i consigli Baciccia Scrignobianco Silop Joe

ora resta L8 L'ho riscaricato ma non carica il setup....impossibile eseguire.

Bene. Fuori uno.

L8. Che Windows usi?
Hai provati a lanciarlo in modo "Compatibilità"?

Rendere compatibili app o programmi meno recenti con l'ultima versione di Windows - Supporto tecnico Microsoft

Scopri come eseguire app o programmi meno recenti in Windows 10 o Windows 11 modificando le impostazioni di compatibilità.

support.microsoft.com

Dacci qualche informazione in più
Baciccia

 

[Robinson]

Bene. Fuori uno.

L8. Che Windows usi?
Hai provati a lanciarlo in modo "Compatibilità"?

Rendere compatibili app o programmi meno recenti con l'ultima versione di Windows - Supporto tecnico Microsoft

Scopri come eseguire app o programmi meno recenti in Windows 10 o Windows 11 modificando le impostazioni di compatibilità.

support.microsoft.com

Dacci qualche informazione in più
Baciccia

Windows 10 ,

 

[Robinson]

Windows 10 ,prima avevo xp e qualcosa la masticavo, ora buio totale e tanto nervosismo

 

[Baciccia4251]

In questo momento sono in piena crisi. La mia testa vaga per l'Universo, e i miei pensieri si sciolgono come un gelato nelle mani accaldate di un bambino.
Se l'Alzheimer pensa d' averla vinta facilmente, non mi conosce
Domani, se starò un po' meglio ti darò qualche dritta.
Nessuno di noi nasce IMPARATO, ma con pazienza e buona volontà, assieme a qualche piccolo aiuto, può riuscire in qualunque cosa.
Ogni occasione è buona per apprendere qualcosa di nuovo.
Se, da bimbi, non sapendo nulla, abbiamo appreso a camminare, parlare ecc., ora che siamo adulti, anche se con più fatica possiamo apprendere tutto.
Quindi pensa a Windows come a un libro, sfogliato, ma non veramente letto. Trova la voglia di leggere e cerca su Internet quei siti che aiutano a comprendere e utilizzare Windows e altri programmi, qualsiasi altro programma.
Quando mi restituiranno il cervello ti indicherò alcuni siti interessanti, se già non li avrai trovati.
In tempi più rapidi di quanto puoi pensare, scoprirai che Windows, o altro programma, non è quella bestia nera che appare.
E' tempo ben speso. Apprendere cose nuove, farle nostre ci aiuta a crescere e a comprendere meglio anche noi stessi.
Quindi positività, perché, anche se non lo sai, sei un genio.
A quando mi riapproprierò del mio cervello. A proposito, l'hai visto?
Ciao
Baciccia

(Rivisto e corretto by il mio Angelo Custode)

 

[Robinson]

Buongiorno ; risolti tutti i problemi di installazione e ripristino archivi, un ringraziamento a chi mi ha aiutato ; Baciccia Scrignobianco e specialmente Silop, che con grande pazienza mi ha assistito nei vari passaggi, e nella mia imbranataggine
Una cosa ancora non ho capito.. gli script sono in formato blok notes e quando li lancio (per le mie ricerche) chiudono il prog. c'è qualche anima pia che sa il perchè??????????
Saluti RBSN