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ì 11 luglio 2025
    Bari
    39
    28
    27
    01
    80
    Cagliari
    54
    79
    69
    43
    61
    Firenze
    62
    60
    86
    80
    05
    Genova
    45
    10
    42
    79
    84
    Milano
    28
    59
    23
    46
    11
    Napoli
    01
    55
    52
    50
    39
    Palermo
    75
    17
    74
    82
    54
    Roma
    38
    13
    79
    25
    44
    Torino
    68
    29
    26
    40
    06
    Venezia
    46
    84
    64
    27
    67
    Nazionale
    72
    77
    46
    61
    23
    Estrazione Simbolotto
    Nazionale
    12
    34
    36
    10
    39
Indietro
Alto