PROGRAMMA SPAZIOMETRIA

DANNYGIRL · 6 Luglio 2021

DANNYGIRL ha scritto:
Vedi l'allegato 2217625 Vedi l'allegato 2217626

In passato era proprio successo un problema. analogo e Silop lo aveva risolto.

Oscar · 6 Luglio 2021

Ok Silop funziona alla perfezione grazie

DANNYGIRL · 7 Luglio 2021

joe ha scritto:
Buon giorno a tutte/i.

Giusto quello che scrive Oscar.

Cioè che che c'è l'ultima estrazione.

Però lo script non aggiorna.

Evidentemente o nell'aggiungerla all'archivio o nel trasferirla o nell'ospitarla si è creata qualche piccola differenza.

Buon giorno joe !!!! Stamattina ho cercato di aggiornare il quadro estrazionale, ma si ferma al 3/7/2021. Io purtroppo non so come fare. Aggiornarlo manualmente o tramite script...mi riesce difficile. Per piacere potresti condurmi step by step all'aggiornamento???? GRAZIE per la tua pazienza e a risentirci. BUONA GIORNATA !!!

joe · 7 Luglio 2021

Buon Giorno a tutte/i.

Dannygirl, attualmente non sono disponibili aggiornamenti né da Silop né

sul sito di Oscar al quale si collega lo script precedente. Li non si può aggiornare.

L'archivio in formato csv sempre sul sito di Oscar invece contiene l'ultima estrazione del 6/7/2021.

Dunque eseguendo questo script dovrebbe aggiornare l'archivio fino a questa data.

Codice:

Option Explicit
Sub Main
  Dim sFileLoc
  Dim nEstrTot,sDataLastEstr,k,r,p
  Dim sDataEstr,nNumEstr,nSalvate
  Dim b
  Dim sFileBd
  Dim sLink
  Dim Ia,sVV,x,pp
  sLink = "http://lottoscar.altervista.org/ArchivioLotto.italia.csv"
  b = False
  nSalvate = 0
  sFileBd = GetDirectoryAppData & "BaseDati.dat"
  sFileLoc = GetDirectoryAppData & "temp\"
  If CreaDirectory(sFileLoc) Then
    sFileLoc = sFileLoc & "Estrazioni.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) 'To 0 Step - 1
      'MsgBox (Ubound(aRighe))
        ReDim aV(0)
        Call SplitByChar(aRighe(k),";",aV)
        'ColoreTesto 1 : Scrivi StringaNumeri (aV) : ColoreTesto 0
     
        If UBound(aV) = 56 Then
      
        'For  pp= 2 To 56
        'Scrivi FormatSpace  (aV(pp),2,True) & " ",0,0
        'Next
        'Scrivi
          'If UBound(aV) = 2 Then
            'sDataEstr = Replace (Mid(aV(0),2,10),"/",".")
            sDataEstr = Mid(aV(0),1,10)
          
            'sVV = Right(aRighe(k),110)
          
            If b Then
            Scrivi sDataEstr
            'ColoreTesto 2 : Scrivi sDataEstr,True : ColoreTesto 0
              Ia = Ia + 1 : pp = 1
              nNumEstr =(Ia)
              'ColoreTesto 4 : Scrivi Ia : ColoreTesto 0
              'ColoreTesto 1 : Scrivi sDataEstr : ColoreTesto 0
              'ColoreTesto 2 : Scrivi sVV : ColoreTesto 0
              'If nNumEstr > 0 And IsDate(sDataEstr) Then
                ReDim aEstr(11,5)
                r = 1 : p = 0
                For x = 2 To 56 '110 Step 2
                  p = p + 1 : pp = pp + 1
                  'Scrivi Mid(sVV,x,2) & " ",0,0
                  'If aV(pp) = "" Then aV(pp) = 0
                  aEstr(r,p) = eVal(aV(pp))
                  If p = 5 Then r = r + 1 : p = 0 ': Scrivi
                Next
                'ScriviMatrice(aEstr)
                If SalvaEstrazione(aEstr,sDataEstr,nNumEstr,sFileBd) Then
                  nSalvate = nSalvate + 1
                  Call Messaggio(nSalvate)
                End If
              End If
            'End If
          
            If sDataEstr = sDataLastEstr Then b = True
          'End If
        End If
      
      Next
      If nSalvate > 0 Then AllineaArchivi
    Else
      MsgBox "Errore download verificare il link con il browser"
    End If
    Call Scrivi("")
    Call Scrivi("Sono state aggiunte " & nSalvate & " estrazioni")
    Call Scrivi("")
    Call Scrivi("Estrazioni totali " & QuantitaEstrazioniInFile(sFileBd))
    Call Scrivi("")
    Call Scrivi("Utilizzato archivio del sito " & sLink)
    Call Scrivi("")
    'For k = 0 To UBound(aRighe)
      'Call Scrivi(aRighe(k))
    'Next
  End If
End Sub

Lo script è il (file di) testo appena qui sopra che dovrai copiare ed incollare,

nell'editor degli script di spaziometria. Poi dovrai eseguirlo per aggiornare gli archivi.

e salvarlo per averlo disponibile in futuro.

Nel salvarlo (con nome) è utile che esso ricordardi ed indichi "cosa fa".

Per esempio: Agg_Oscar.ls

Copiare/Aprire/salvare uno script ... è come si fa per un normale file di testo o di word.

La differenza è che per trattarlo invece del word(pad) si usa l'editor di Spaziometria.

Dunque un file di testo si chiama file.txt mentre un file di lottoscript si chiamerà file.ls.

I file *.ls cioè gli script in genere sono archiviati nella cartella Script all'interno della cartella superiore

che contiene Spaziometria ed i dati necessari allo svolgimento del programma.

DANNYGIRL · 7 Luglio 2021

GRAZIE di cuore joe !!! Ma come mai ora ho aggiornato come normalmente faccio e...per miracolo...è aggiornato al 06/07/2021 ???? Non capisco proprio perchè . Mah !!! GRAZIE ancora comunque. Spero di farcela in futuro perchè non sono un asso in queste cose. Anzi sono meno di zero. BUONA SERATA:

DANNYGIRL · 7 Luglio 2021

joe ha scritto:

Buon Giorno a tutte/i.

Dannygirl, attualmente non sono disponibili aggiornamenti né da Silop né

sul sito di Oscar al quale si collega lo script precedente. Li non si può aggiornare.

L'archivio in formato csv sempre sul sito di Oscar invece contiene l'ultima estrazione del 6/7/2021.

Dunque eseguendo questo script dovrebbe aggiornare l'archivio fino a questa data.

Codice:

Option Explicit
Sub Main
  Dim sFileLoc
  Dim nEstrTot,sDataLastEstr,k,r,p
  Dim sDataEstr,nNumEstr,nSalvate
  Dim b
  Dim sFileBd
  Dim sLink
  Dim Ia,sVV,x,pp
  sLink = "http://lottoscar.altervista.org/ArchivioLotto.italia.csv"
  b = False
  nSalvate = 0
  sFileBd = GetDirectoryAppData & "BaseDati.dat"
  sFileLoc = GetDirectoryAppData & "temp\"
  If CreaDirectory(sFileLoc) Then
    sFileLoc = sFileLoc & "Estrazioni.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) 'To 0 Step - 1
      'MsgBox (Ubound(aRighe))
        ReDim aV(0)
        Call SplitByChar(aRighe(k),";",aV)
        'ColoreTesto 1 : Scrivi StringaNumeri (aV) : ColoreTesto 0
    
        If UBound(aV) = 56 Then
     
        'For  pp= 2 To 56
        'Scrivi FormatSpace  (aV(pp),2,True) & " ",0,0
        'Next
        'Scrivi
          'If UBound(aV) = 2 Then
            'sDataEstr = Replace (Mid(aV(0),2,10),"/",".")
            sDataEstr = Mid(aV(0),1,10)
         
            'sVV = Right(aRighe(k),110)
         
            If b Then
            Scrivi sDataEstr
            'ColoreTesto 2 : Scrivi sDataEstr,True : ColoreTesto 0
              Ia = Ia + 1 : pp = 1
              nNumEstr =(Ia)
              'ColoreTesto 4 : Scrivi Ia : ColoreTesto 0
              'ColoreTesto 1 : Scrivi sDataEstr : ColoreTesto 0
              'ColoreTesto 2 : Scrivi sVV : ColoreTesto 0
              'If nNumEstr > 0 And IsDate(sDataEstr) Then
                ReDim aEstr(11,5)
                r = 1 : p = 0
                For x = 2 To 56 '110 Step 2
                  p = p + 1 : pp = pp + 1
                  'Scrivi Mid(sVV,x,2) & " ",0,0
                  'If aV(pp) = "" Then aV(pp) = 0
                  aEstr(r,p) = eVal(aV(pp))
                  If p = 5 Then r = r + 1 : p = 0 ': Scrivi
                Next
                'ScriviMatrice(aEstr)
                If SalvaEstrazione(aEstr,sDataEstr,nNumEstr,sFileBd) Then
                  nSalvate = nSalvate + 1
                  Call Messaggio(nSalvate)
                End If
              End If
            'End If
         
            If sDataEstr = sDataLastEstr Then b = True
          'End If
        End If
     
      Next
      If nSalvate > 0 Then AllineaArchivi
    Else
      MsgBox "Errore download verificare il link con il browser"
    End If
    Call Scrivi("")
    Call Scrivi("Sono state aggiunte " & nSalvate & " estrazioni")
    Call Scrivi("")
    Call Scrivi("Estrazioni totali " & QuantitaEstrazioniInFile(sFileBd))
    Call Scrivi("")
    Call Scrivi("Utilizzato archivio del sito " & sLink)
    Call Scrivi("")
    'For k = 0 To UBound(aRighe)
      'Call Scrivi(aRighe(k))
    'Next
  End If
End Sub

Lo script è il (file di) testo appena qui sopra che dovrai copiare ed incollare,

nell'editor degli script di spaziometria. Poi dovrai eseguirlo per aggiornare gli archivi.

e salvarlo per averlo disponibile in futuro.

Nel salvarlo (con nome) è utile che esso ricordardi ed indichi "cosa fa".

Per esempio: Agg_Oscar.ls

Copiare/Aprire/salvare uno script ... è come si fa per un normale file di testo o di word.

La differenza è che per trattarlo invece del word(pad) si usa l'editor di Spaziometria.

Dunque un file di testo si chiama file.txt mentre un file di lottoscript si chiamerà file.ls.

I file *.ls cioè gli script in genere sono archiviati nella cartella Script all'interno della cartella superiore

che contiene Spaziometria ed i dati necessari allo svolgimento del programma.

DANNYGIRL · 7 Luglio 2021

Dimmi per piacere dove devo cliccare, perchè non capisco proprio. GRAZIE e BUONA SERATA !!

Oscar · 8 Luglio 2021

DANNYGIRL ha scritto:
Dimmi per piacere dove devo cliccare, perchè non capisco proprio. GRAZIE e BUONA SERATA !!

joe · 8 Luglio 2021

Ciao.

Il termine aggiornare implica che una serie di eventi si sussegua

con ordine, senza interruzioni e senza errori.

Quindi è ovvio che debba essere avvenuta la nuova estrazione,

che i dati siano resi pubblici,

siano trasmessi e ricevuti,

siano AGGIUNTI correttamente.

Dunque se su un sito non ci sono i dati o non ci si può collegare ...

con il programma che segue una parte di questa sequenza non si riesce ad aggiornare.

Di lì ad un istante potrebbe funzionare benissimo.

O perché il sito ha pubblicato i dati

O perché si è ristabilita la connessione o perché il nostro computer modem router adsl rete...

ha smesso di fare i capricci.

Purtroppo con il telefonino adesso ho difficoltà ad inserire immagini.

E... fortunatamente Oscar ... vi ha provveduto.

Nella barra in alto trovi gestione script e poi nuovo che apre l'editor.

Nell' editor incolli lo script.

E come da immagine di Oscar il pulsante a forma di fulmine giallo

ne avvia l'esecuzione.

DANNYGIRL · 8 Luglio 2021

Cari Joe e Oscar...che dire...GRAZIE di cuore del vostro preziosissimo aiuto e soprattutto della vostra pazienza con una profana come me. Ora proverò ad agire come voi mi suggerite e vi saprò dire. Un affettuoso saluto ad entrambi e BUONA SERATA !!!

DANNYGIRL · 8 Luglio 2021

Oscar ha scritto:
Vedi l'allegato 2217683

Ecco cosa mi viene fuori.

DANNYGIRL · 8 Luglio 2021

joe ha scritto:
Ciao.

Il termine aggiornare implica che una serie di eventi si sussegua

con ordine, senza interruzioni e senza errori.

Quindi è ovvio che debba essere avvenuta la nuova estrazione,

che i dati siano resi pubblici,

siano trasmessi e ricevuti,

siano AGGIUNTI correttamente.

Dunque se su un sito non ci sono i dati o non ci si può collegare ...

con il programma che segue una parte di questa sequenza non si riesce ad aggiornare.

Di lì ad un istante potrebbe funzionare benissimo.

O perché il sito ha pubblicato i dati

O perché si è ristabilita la connessione o perché il nostro computer modem router adsl rete...

ha smesso di fare i capricci.

Purtroppo con il telefonino adesso ho difficoltà ad inserire immagini.

E... fortunatamente Oscar ... vi ha provveduto.

Nella barra in alto trovi gestione script e poi nuovo che apre l'editor.

Nell' editor incolli lo script.

E come da immagine di Oscar il pulsante a forma di fulmine giallo

ne avvia l'esecuzione.

Ecco cosa mi viene fuori

DANNYGIRL · 8 Luglio 2021

Ho visto l'errore. Corretto. Funziona perfettamente e vi ringrazio di cuore. Buona serata.

DANNYGIRL · 11 Luglio 2021

Buon giorno !!!! Scusatemi per la mia continua insistenza, ma le estrazioni non mi si aggiornano. Le ho pure aggiornate manualmente, ma NULLA !!! Chiedo gentilmente un'illuminazione. GRAZIE e BUONA GIORNATA !!!

joe · 11 Luglio 2021

DANNYGIRL ha scritto:
Buon giorno !!!! Scusatemi per la mia continua insistenza, ma le estrazioni non mi si aggiornano. Le ho pure aggiornate manualmente, ma NULLA !!! Chiedo gentilmente un'illuminazione. GRAZIE e BUONA GIORNATA !!!

Ho provato adesso (11/07/2021 h 12:52) lo script che ti avevo proposto

pochi messaggi fa e che preleva le estrazioni dall' archivio.csv

reso disponibile da Oscare e funziona correttamente.

Codice:

10/07/2021

Sono state aggiunte 1 estrazioni

Estrazioni totali 9949

Utilizzato archivio del sito http://lottoscar.altervista.org/ArchivioLotto.italia.csv

Devi specificare chiaramente cosa non funziona.

Perché sono molte le cose necessarie affinché " funzioni" ...

... mentre basta che ci sia un elemento guasto nel lungo elenco

di operazioni necessarie al funzionamento per rendere il tutto inutilizzabile.

Non funzionante. (Cioè si deve correggere il guato in quel elemento specifico).

Come ho detto e documentato il sito ha i dati per aggiornare ...

questi dati sono compatibili con lo script in uso e se non ci sono problemi di collegamento,

del sistema operativo e di installazione del programma spaziometria ... lo script dovrebbe aggiornare.

In sintesi ti consiglio di provare ad eseguire lo script ... osservare e descrivere ... quali problemi ci sono.

DANNYGIRL · 11 Luglio 2021

Caro joe, proprio caro e paziente con una profana come me !!!!! Ora ho fatto tutto e per incanto si è aggiornato. Boh !!! Stamattina entrando nel manuale, la data era già 10/07/2021 e l'aggiornamento da web si fermava al 08/10/2021. Dopo vari tentativi, visto che la data era ferma e l'aggiornamento da web non si verificava.....dopo aver lanciato lo script e salvato....ti ho scritto disperata. Ora prima di leggerti, ho rifatto tutto per bene e l'aggiornamento da web mi portava finalmente la data giusta 10/07/2021. Speriamo bene !!!! SCUSA ancora e ancora GRAZIE di cuore per la tua presenza e pazienza soprattutto !! BUONA SERATA !!!

joe · 11 Luglio 2021

Da quello che scrivi ...
è possibile che tu abbia 2 archivi.

Se è risolto così tanto meglio.

Tengo solo a precisare che è tutto giusto quello che ha scritto Silop.

Dunque se funziona il suo sito e si è abituati ad utilizzare quello, è meglio continuare come si fa normalmente.

Io ho proposto un qualcosa di alternativo.

E ... quanto ho scritto è alternativo ...

da provarsi se non si riesce ad aggiornare.

Cioè ho proposto una procedura alternativa che non vuole essere sostitutiva.

Semplicemente perché è utile avere alternative funzionanti.

claudio8 · 13 Luglio 2021

DANNYGIRL ha scritto:
Vedi l'allegato 2217625 Vedi l'allegato 2217626

Ciao Silop
Sto aggiornando sul mio XP usando direttamente su Firefox il link https://www.silop.it/archivi/lottoItalia/BaseDati.dat
va direttamente a sostituire, previo confrema di salvataggio e sostituzione, il file archivio "BaseDati.dat" nella cartella Spaziometria.

Un saluto a tutti e grazie per la tua disponibilità.

silop2005 · 13 Luglio 2021

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

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

Ciao a TUTTI ,

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

ATTENZIONE

COMUNICAZIONE A TUTTI GLI "AMICI VIRTUALI" CHE UTILIZZANO

Aggiornamento archivi via web da SPMT

dallo spazio/web di Silop

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

in questi giorni sto cercando di ripristinare gli aggiornamenti via web col vecchio pc, a volte ci riesco e a volte no,

come qualcuno ha potuto vedere ed aggiornare

ma comunque il mio pc sta per … lasciarmi… abbandonarmi… (dopo 5 anni)

quindi l'unica soluzione è di prendere un new pc

e "trasferire" TUTTI i miei programmi e cartelle su di esso

prima che sia troppo tardi.

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

Fare questo trasferimento, per me, è sempre molto complesso

ma piano piano cercherò di rimettermi in gareggiata.

Sperando che la vecchia utility (2017) di LuigiB funzionerà anche sul nuovo pc.

Rimanete sintonizzati.

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

Ringrazio gli amici Joe e Oscar per i loro interventi.

Un saluto a Claudio e DannyGirl e a tutti quelli che hanno messo "mi piace" al mio post del 30/06/2021, grazie.

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

Buon martedì a tutto il forum.

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

A presto

Silop

PS.

Per TUTTI coloro che aggiornano dallo spazio web silop con il plugin di Joe

comunico che anche l'archivio del LOTTO del vecchio programma L8+

è aggiornato all'ultima estrazione del 10/07/2021.

PROGRAMMA SPAZIOMETRIA

Super member

Super member

Oscar

Guest

Super member

Advanced Member >PLATINUM PLUS<

Super member

Super member

Allegati

Super member

Oscar

Guest

Advanced Member >PLATINUM PLUS<

Super member

Super member

Allegati

Super member

Allegati

Super member

Super member

Advanced Member >PLATINUM PLUS<

Super member

Advanced Member >PLATINUM PLUS<

Premium Member

Advanced Member >PLATINUM<