𝗔𝗴𝗴𝗶𝗼𝗿𝗻𝗮𝘁𝗼 𝗟𝗼𝘁𝘁𝗼𝗣𝗿𝗼𝗷𝗲𝗰𝘁 𝗟𝗕 𝟭.𝟬𝟭

[Lottopython]

aggiornato l'archivio LottoProject LB 1.01 sembra essere tutto in ordine.
l'aggiornamento automatico sembra avere qualche problema
si aggiorna con un copia incolla nel file excel lotto.csv è semplicissimo


virustotal:
Verifica exe virustotal

programma:
Download

 

[claudio8]

aggiornato l'archivio LottoProject LB 1.01 sembra essere tutto in ordine.
l'aggiornamento automatico sembra avere qualche problema
si aggiorna con un copia incolla nel file excel lotto.csv è semplicissimo

altre versioni successive con supporto per script deduco successive a questa postatela pure.

ricordo gli script del compianto Mike58 splendida persona e sempre molto disponibile anche in altri forum
che troverete andando qui

virustotal:
Verifica exe virustotal

programma:
Download

Ti voglio informare che da quanto mi risulta il sig, Mike58 è ancora vegeto.

CI spieghi a che sevono i collegamnenti virustotal: e programma: .. grazie

 

[Lottopython]

grazie felice di essermi sbagliato e contento che sia ancora tra noi .

 

[claudio8]

CI spieghi a che sevono i collegamnenti virustotal: e programma: .. grazie

 

[Lottopython]

francamente non capisco cosa vuoi dire o cosa ci sarebbe da spiegare .
ti infastidisce il post?

 

[*blacklotto*]

francamente non capisco cosa vuoi dire o cosa ci sarebbe da spiegare .
ti infastidisce il post?

Claudio8 è fatto così, è la sua natura.

 

[Pandit]

Probabilmente non funziona bene perchè è una delle prime versioni, l'ultima e la 1.0.38..

 

[Lottopython]

Probabilmente non funziona bene perchè è una delle prime versioni, l'ultima e la 1.0.38..

il problema riguarda anche la versione 1.0.38 facilmente risolvibile (script aggiornamento estrazioni mike58/luigib)....inserire percorso

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:\Users\percorso\Desktop\Release\Archivio" '<========== 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

 

[claudio8]

francamente non capisco cosa vuoi dire o cosa ci sarebbe da spiegare .
ti infastidisce il post?

Non sono infastidito dal post, ma dal fatto che metti dei link a "scatola chiusa" senza spiegare di che trattano e cosa si scaricherebbe.

Comunque chiedere è lecito, rispondere è cortesia.
Saluti

 

[Ciccio90]

Non sono infastidito dal post, ma dal fatto che metti dei link a "scatola chiusa" senza spiegare di che trattano e cosa si scaricherebbe.

Comunque chiedere è lecito, rispondere è cortesia.
Saluti

Leggo ora, e ti rispondo
non sapevo neanche del mio like , forse e" successo involontariamente con il dito non so , scusatemi.