Novità

SpazioLight.net

i legend

Premium Member
Un grandissimo saluto ai programmatori luigi ed Edoardo che ci hanno regalato questo software e il tempo che ci hanno dedicato . grazie
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao , toon, Bogotà, Deve essere cambiata la pagina della lottomatica e monopoli.
Per ora l'aggiornamento è funzionante sempre da televideo, ma siccome possiamo non aggiornare frequentemente riscihamo di dover intervenire manualmente.

Per evitare il tutto con uno script lanciato da spaziometria possiamo aggiornare le colonne in formato csv per spaziolight.

Indicando il percorso della directory archivio.
in questa righa

sDirDest = "C:\Users\****tuo computer*****\Desktop\SpazioLight\Archivio" '<========== modificare questa riga con il percorso della cartella archivio sul vostro pc

script

Codice:
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\****tuo computer*****\Desktop\SpazioLight\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
 

antonino7629

Junior Member
Occorre modificare l'indirizzo di download delle estrazioni... vi allego il file modificato.. p.s. il file ha come estensione txt, dovrete rinominarlo in .exe..
 

Allegati

  • LottoProjectLB.txt
    1,1 MB · Visite: 92
Ciao , toon, Bogotà, Deve essere cambiata la pagina della lottomatica e monopoli.
Per ora l'aggiornamento è funzionante sempre da televideo, ma siccome possiamo non aggiornare frequentemente riscihamo di dover intervenire manualmente.

Per evitare il tutto con uno script lanciato da spaziometria possiamo aggiornare le colonne in formato csv per spaziolight.

Indicando il percorso della directory archivio.
in questa righa

sDirDest = "C:\Users\****tuo computer*****\Desktop\SpazioLight\Archivio" '<========== modificare questa riga con il percorso della cartella archivio sul vostro pc

script

Codice:
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\****tuo computer*****\Desktop\SpazioLight\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
risolto ,grazie @Mike58 sempre top.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 26 aprile 2024
    Bari
    65
    67
    84
    22
    77
    Cagliari
    38
    09
    83
    18
    20
    Firenze
    76
    24
    78
    30
    40
    Genova
    50
    56
    61
    90
    57
    Milano
    87
    21
    15
    12
    79
    Napoli
    13
    66
    86
    25
    49
    Palermo
    72
    60
    68
    74
    09
    Roma
    23
    15
    43
    07
    75
    Torino
    82
    79
    31
    41
    64
    Venezia
    66
    89
    18
    80
    41
    Nazionale
    04
    24
    10
    69
    73
    Estrazione Simbolotto
    Genova
    33
    03
    16
    35
    32

Ultimi Messaggi

Alto