Novità

Aiuto per archivio File DAT per cortesia LuigiB e chi può

Chiedo cortesemente a chi puo aiutarmi mi mancano 10 anni di estrazioni ,il file è in formato DAT estrazio.dat, generale .dat ,
non si trova nulla su internet se qualcuno riesce ad aggiornare i due file mi farebbe una gradita cortesia vi ringrazio .

Lo caricato in formato txt archivio lotto italiano non me li faceva caricare diversamente poi io lo copio nei file dat chi riesce ad aggiornarlo grazie
Che dire....
Quando si nasce con la camicia.....
saluti
 
Grazie Luigi.

Normalmente, negli script più vecchi utilizzavo, il FSO,

non ricordavo, però di aver visto esempi con append,

Considerato che lo script terminava la creazione dell'archivio, in un paio di minuti

Che tutto sommato un tempo ragionevole ...

Svogliatamente non mi sono impegnato nel cercare il necessario. L'8.

Conserverò sicuramente questo tuo UTILE ED ISTRUTTIVO buon esempio.

:)
 
Ciao Joe , la cosa importante è che l oggetto dispone sia dei metodi write che writeline
In questo caso bisogna usare write che scrive solo i dati che gli passiamo senza aggiungere i terminatori di riga propri dei file di testo.
Si è dovuto usarlo proprio per questa ragione.
 
ciao , per scrivere quel file non vanno bene le istruzioni dello spazio script , perche aggiungono i caratteri di fine linea e ritorno a capo ad ogni linea che si scrive.
Vanno invece usati dei metodi apposta per scrivere il file senza aggiungere byte non voluti.
Questo Script è molto simile a quell odi joe , la differenza è che scrive il file usanndo l'oggetto textstream istanziato per l'occorrenza , notare che si usa il metodo write e non il metodo writeline che invece aggiungerebbe i caratteri ascii 13 e 10.
Inoltre è possibile in questo modo non dover accodare idati alla stessa stringa che piano piano rallenta il processo.

Lo script ogni volta ricrea il file mettendo tutte le estrazioni disponibili in spaziometria.
Va cambiato il nome del fie con le proprie esigenze , eventualmente puntando direttamente al file dat del programma che lo usa.


Codice:
Option Explicit


Sub Main
 
  Dim sFileArchivio
  Dim idEstr,nEstrTot,r,e
  Dim sRecord
  Dim oFSO,outFile
 
  '==================================================================================================================
  ' ATTENZIONE CAMBIARE IL PERCORSO IN BASE ALLE PROPRIE ESIGENZE
 
  ' IL FILE VIENE RICREATO QUINDI IL VECCHIO ANDRA' PERSO
 
  ' nel file verraqnno scritte  le estrazioni dell'archivio di spaziometria dalla prima fino all'ultima disponibile
 
 
  sFileArchivio = "C:\Users\luigi\Downloads\archivio.txt"
 
  '===================================================================================================================
 
 
 
  nEstrTot = EstrazioniArchivio
  EliminaFile sFileArchivio
  Set oFSO = CreateObject("Scripting.FileSystemObject")
  Set outFile = oFSO.OpenTextFile(sFileArchivio,8,True)
 
  For idEstr = 1 To EstrazioniArchivio
 
     sRecord = ""
     For r = 1 To 10
        For e = 1 To 5
           sRecord = sRecord & Format2(Estratto(idEstr,r,e))
        Next
     Next
     sRecord = sRecord & Format2(giorno(idEstr)) & "-" & NomeMese(Mese(idEstr)) & "-" & Anno(idEstr) & FormatSpace(IndiceAnnuale(idEstr),4)
 
     outFile.write(sRecord)
 
     Call AvanzamentoElab(1,nEstrTot,idEstr)
  Next
 
  Set oFSO = Nothing
  outFile.Close
  Set outFile = Nothing
 
  Scrivi "Fine processo"
 
 
  Call LanciaFile(sFileArchivio)
 
End Sub
Function NomeMese(id)
   Select Case id
   Case 1
      NomeMese = "Gen"
   Case 2
      NomeMese = "Feb"
   Case 3
      NomeMese = "Mar"
   Case 4
      NomeMese = "Apr"
   Case 5
      NomeMese = "Mag"
   Case 6
      NomeMese = "Giu"
   Case 7
      NomeMese = "Lug"
   Case 8
      NomeMese = "Ago"
   Case 9
      NomeMese = "Set"
   Case 10
      NomeMese = "Ott"
   Case 11
      NomeMese = "Nov"
   Case 12
      NomeMese = "Dic"
   End Select
  
End Function
Ciao Luigi,
ho scaricato il programma Spaziometria Ver. 1.6.34, volevo chiederti come si lancia in esecuzione uno script all'interno del programma ?
Grazie per il software e per la risposta.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 30 settembre 2025
    Bari
    14
    59
    63
    72
    68
    Cagliari
    05
    42
    65
    20
    30
    Firenze
    64
    61
    33
    56
    31
    Genova
    16
    38
    14
    31
    17
    Milano
    67
    80
    18
    26
    90
    Napoli
    56
    46
    13
    88
    20
    Palermo
    12
    68
    09
    26
    14
    Roma
    81
    80
    31
    84
    01
    Torino
    84
    69
    47
    12
    10
    Venezia
    74
    79
    06
    53
    81
    Nazionale
    83
    81
    47
    13
    66
    Estrazione Simbolotto
    Palermo
    41
    40
    45
    13
    10

Ultimi Messaggi

Indietro
Alto