Novità

PER SCRYPTER

Ciao Trivellato,

Buona serata a tutte/i.

Ma ... il mese di nome Settembre non può essere scritto

in uno spazio di così pochi caratteri.

Sei sicuro che il formato del testo sia sia giusto?

:)
 
Se può essere di aiuto ho trovato questo, magari modificandolo…..se non ricordo male fatto dal gentilissimo JOE:
Option Explicit
' controllare se lo script fa quanto richiesto
' si è utilizzato formattastringa e format 2 per un incolonnamento regolare
'salvo eventuali bugs sempre possibili
Sub Main
Dim Ini,Fin,IdEstr,R,P,sEstr,sChrSep
sChrSep = ";"
Call ScegliRange(Ini,Fin)
Call ResetTimer
For IdEstr = Ini To Fin
sEstr = DataEstrazione(IdEstr,,,"/") & sChrSep & FormattaStringa(IndiceAnnuale(IdEstr),"000") & sChrSep
For R = 1 To 12
If R = 11 Then R = 12
ReDim aEstr(0)
Call GetArrayNumeriRuota(IdEstr,R,aEstr)
For P = 1 To 5
sEstr = sEstr & Format2(aEstr(P)) & sChrSep
Next
Next
Scrivi RimuoviLastChr(sEstr,sChrSep)
Call AvanzamentoElab(Ini,Fin,IdEstr) ' aumenta il tempo di elaborazione
Next
Dim t:t = TempoTrascorso
If MsgBox("Vuoi visualizzare il tempo di elaborazioni dati?",4,"Opzione Output") = vbYes Then Scrivi t
End Sub
 
x Trivellato) Senza mese ... non si capisce più l'ordine delle estrazioni.

x adispo2000) Ho trovato che potrebbe essere un formato per fotografie

oppure più probabilmente considerando che si è in un forum di lotto potrebbe essere:

A column descriptor (COL) file is an ASCII text file that contains instructions for mapping each column in a source file...
Use a COL file only with tabular ASCII files and worksheet files.

Quindi dovresti provare ad aprire il file con un text-editor o

con il foglio di calcolo che lo ha generato per carpirne i segreti.

x Solare) Lo script se mio (è stato sicuramente manipolato), ma non è questo il problema.

Sembra che sviluppi l'archivio in modo inverso a quello del primo esempio proposto.

Il secondo esempio senza data e troppo piccolo, non permette un confronto (agevole/utile).

Se puoi prendere contatto via mail vorrei farti provare un file.exe per quello che avevi richiesto

sui ritardi nelle decine.

:) Fatemi sapere.
 
Ultima modifica:
CIAO JOE TI ALLEGO TX VA BENE ANCHE COSI.


Bari Cagliari Firenze Genova Milano Napoli Palermo Roma Torino Venezia Nazionale
69.37.70.81.22 74.12.88.77.70 67.14.55.21.34 22.04.35.66.56 59.18.62.72.88 49.67.07.13.26 46.21.39.61.03 79.85.70.34.32 34.53.19.43.90 50.88.62.73.41 17.43.70.86.88
07.76.44.24.67 08.19.38.46.74 76.16.80.53.65 42.70.28.87.02 19.15.79.67.28 50.53.79.68.87 23.67.31.48.62 13.47.86.77.89 85.86.37.29.24 40.74.78.48.16 40.39.10.19.26
59.74.55.12.77 82.39.49.05.71 77.70.58.37.87 07.84.74.51.82 66.57.81.10.89 09.71.52.47.43 49.51.03.59.28 30.90.41.76.48 74.09.13.73.56 85.65.13.48.60 80.81.21.54.74
16.19.24.66.74 73.70.86.83.47 44.28.08.11.33 63.45.21.22.81 29.52.36.56.48 09.08.59.41.34 37.90.03.86.69 35.17.62.15.83 65.05.22.49.81 51.15.44.76.87 16.77.26.20.41
38.40.47.59.80 19.88.12.07.04 19.08.27.28.90 26.39.41.25.62 63.66.05.73.01 25.28.01.12.75 62.19.07.80.25 87.62.85.30.77 03.22.88.39.56 85.81.89.23.02 60.52.32.07.10
 

Allegati

Ciao Trivellato ...

non ho problemi ... ad interpretare la tua richiesta.

Il problema è che probabilmente poi non ti funzionerà.

Questo perché i computer sono "rigidi" e basta uno spazio, una virgola,

in più o in meno e le cose non funzionano più.

Per esempio tra il primo messaggio e quanto hai postato adesso

nel primo il nome delle ruote è separato da "una decina di caratteri" ora "solo uno"

Anche tra le colonne (alcuni ... contro uno).

Se fosse "buono" quest'ultimo i nomi delle ruote non sarebbero sulle

colonne delle varie ruote come il primo esempio.

Tralasciando i titoli ... andrebbe bene così?

:)
 
Ultima modifica:
Codice:
Option Explicit

Sub Main
'Archivio per Trivellato
' Script By Joe
   Dim Ini,Fin,IdEstr,R,P,sEstr,sChr_Num,sChr_Col
   sChr_Num = "."
   sChr_Col = Chr(32)
   Call ScegliRange(Ini,Fin,EstrazioneIni,EstrazioneFin)
   Call ResetTimer
   For IdEstr = Fin To Ini Step - 1
      Call AvanzamentoElab(Ini,Fin,IdEstr)
       sEstr = Data(IdEstr) & sChr_Col
      For R = 1 To 12
         If R = 11 Then R = 12
         ReDim aEstr(0)
         Call GetArrayNumeriRuota(IdEstr,R,aEstr)
         For P = 1 To 5
            sEstr = sEstr & CStr(Format2(aEstr(P)))
            If P < 5 Then sEstr = sEstr & sChr_Num
         Next
         sEstr = sEstr & sChr_Col
      Next
      Scrivi sEstr
   Next
End Sub

Function Data(Es)
   Dim D,M
   D = DataEstrazione(Es)
   M = Mese(Es)
   Data = Left(D,2) &space(1) & Left(MeseNome(M),3) & Space(1) & Anno(Es)
End Function
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 18 luglio 2025
    Bari
    48
    38
    01
    78
    24
    Cagliari
    87
    33
    22
    13
    19
    Firenze
    14
    27
    71
    11
    50
    Genova
    40
    14
    77
    76
    17
    Milano
    26
    17
    90
    64
    69
    Napoli
    40
    89
    06
    23
    84
    Palermo
    62
    51
    36
    86
    26
    Roma
    76
    33
    75
    83
    47
    Torino
    83
    19
    82
    79
    89
    Venezia
    20
    31
    13
    12
    87
    Nazionale
    74
    29
    28
    32
    78
    Estrazione Simbolotto
    Nazionale
    39
    18
    27
    28
    20
Indietro
Alto