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
    martedì 08 luglio 2025
    Bari
    29
    56
    53
    47
    86
    Cagliari
    31
    25
    53
    71
    76
    Firenze
    24
    12
    70
    90
    16
    Genova
    84
    79
    48
    81
    51
    Milano
    54
    73
    46
    53
    64
    Napoli
    64
    48
    73
    81
    47
    Palermo
    05
    60
    43
    63
    33
    Roma
    15
    82
    55
    13
    68
    Torino
    83
    13
    39
    53
    74
    Venezia
    52
    66
    24
    08
    41
    Nazionale
    76
    14
    90
    09
    12
    Estrazione Simbolotto
    Nazionale
    33
    27
    20
    14
    11

Ultimi Messaggi

Indietro
Alto