LottoprojectLB alias Spaziolight: errore numero indice annuale

[firefox]

Buonasera a tutti. Nell'aggiornare il software LottoprojectLB in manuale in quanto non si aggiorna via internet (indirizzo variato), ho notato che il numero indice annuale infatti prosegue con 209 con la estrazione del 02.01.2026. Quest'ultimo non è modificabile durante l'inserimento delle estrazioni. Ho provato ad aprire il file con excel 2010, e ho modificato il numero indice da 209 a 1.
Sembrava tutto ok ma la momento dell'avvio del software mi viene fuori un errore che allego come immagine.
Sperando in un aiuto, vi allego il sofware e lascio i miei auguri di un buon 2026 anche se in ritardo
Francesco

Il file InstallazioneUtente_v_1_0_38.rar è disponibile per il download

Clicca per accedere al download di InstallazioneUtente_v_1_0_38.rar (14.0 MB) con TransferNow

www.transfernow.net

 

[druid]

Ciao Francesco,
potresti allegare il tuo file archivio aggiornato?
Ricambio gli auguri....

 

[Lottopython]

buonasera firefox, un saluto,

brevemente:
questo script non mio credo sia ancora qui su lottoced. forse fu mike a generarlo non ricordo bene ,nella sezione che appunto riguarda il programma ,aggiorna anche lottoopen o tutti i programmi con quel tipo di archivio ,necessità solo del tuo percorso cartella archivio .

Option Explicit
Sub Main
   Dim nEstrInizio,nEstrFine
   Dim DataIni,DataFin
   Dim sFile
   Dim sChrSep
   Dim sDirDest
 
   MsgBox "Sostituisci nello script la directory dove verrà creato il file csv" & vbCrLf & "Poi elimina questo messaggio",vbInformation
   sDirDest = "C:\TUOPERCORSO"'<======================================================================= modificare questa riga con il percorso della cartella archivio sul vostro pc
  ' sDirDest = GetDirectoryAppData
 
   If DirectoryEsistente(sDirDest) Then
       sChrSep = ";"
       sFile = AddSlash(sDirDest) & "Lotto.csv"
       If EliminaFile(sFile) Then
       nEstrInizio = 1
       nEstrFine = EstrazioniArchivio
       Call EsportaEstr(nEstrInizio,nEstrFine,sFile,sChrSep)
       End If
   Else
      MsgBox "Directory non trovata" & vbCrLf & sDirDest
   End If
End Sub
Sub EsportaEstr(nEstrInizio,nEstrFine,sFile,sChrSep)
   Dim k,f,idEstr
   Dim sRecord
   Dim nProgr
   Dim sDataCorr
   Dim r,e
 
 
   For k = nEstrInizio To nEstrFine
      Call Messaggio("Estrazione : " & k)
      idEstr = k
      ReDim aNum(0)
      If GetEstrazioneCompleta(idEstr,aNum) Then
         nProgr = nProgr + 1
         sDataCorr = Replace(DataEstrazione(idEstr),".","/")
         sRecord = FormatSpace(nProgr,9,True) & sChrSep
         sRecord = sRecord & FormatSpace(IndiceAnnuale(idEstr),3,True) & sChrSep
         sRecord = sRecord & sDataCorr & sChrSep
     
         For r = 1 To 11
            For e = 1 To 5
               sRecord = sRecord & Format2(aNum(r,e)) & sChrSep
            Next
         Next
         sRecord = RimuoviLastChr(sRecord,sChrSep)
         Call ScriviFile(sFile,sRecord,False,True)
      Else
         Exit For
      End If
      If ScriptInterrotto Then Exit For
      Call AvanzamentoElab(nEstrInizio,nEstrFine,k)
   Next
   Call CloseFileHandle(sFile)
  ' Call LanciaFile(sFile)
  Scrivi "Esportato file " & sFile
  MsgBox "Fine",vbInformation
End Sub

Function AddSlash(s)
   If Right(s,1) <> "\" Then
      AddSlash = s & "\"
   Else
      AddSlash = s
   End If
End Function

 

[firefox]

Per Druid grazie per la risposta, ti ho allegato il file aggiornato al 30.12.
Grazie Lottopython, lo proverò.

Il file Archivio Spaziolight.rar è disponibile per il download

Clicca per accedere al download di Archivio Spaziolight.rar (3.86 MB) con TransferNow

www.transfernow.net

Buona serata e buona domenica
Francesco

 

[druid]

Per Druid grazie per la risposta, ti ho allegato il file aggiornato al 30.12.
Grazie Lottopython, lo proverò.

Il file Archivio Spaziolight.rar è disponibile per il download

Clicca per accedere al download di Archivio Spaziolight.rar (3.86 MB) con TransferNow

www.transfernow.net

Buona serata e buona domenica
Francesco

Ciao,
ho variato solo il primo file e funziona; sostituisci questo a quello che hai:

Lotto.csv

1 file sent via WeTransfer, the simplest way to send your files around the world

we.tl

Per il prossimo anno e/o per agevolarti nell'inserimento di piu' estrazioni mancanti, ti consiglio di scaricare l' editor gratuito notepad++ con cui puoi vedere spazi - caratteri nascosti - fine riga ecc. e uniformare la formattazione, come da img.



Buon lavoro.

 

[firefox]

Grazie Druid e Lottopython. Sempre disponibili
Buona serata
Francesco

 

[CICALOTTO]

Buonasera e buon anno a tutti, con RicercaLunghette, non ho provato lo script ma invece ho utilizzato LottoCSV.exe per aggiornare e adesso nella colonna Num mi segna con sequenza diversa... !!! come risolvo? grazie

così:

 

[CICALOTTO]

ho appena usato lo script del messaggio #3
funziona ed è tornata "normale" la numerazione