Novità

PER SCRYPTER

trivellatomariotretre33

Super Member >PLATINUM<
MI SERVIREBBE UN LISTATO CHE MI FACESSE COME SEGUE IN TX PER AGGIORNARE L' ACHIVIO GRAZIE A CHI SI CIMENTA.
O CARICATO TX ESMPIO GRAZIE ANCORA.
 

Allegati

  • 2017_archivio.txt
    6 KB · Visite: 0

joe

Advanced Member >PLATINUM PLUS<
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?

:)
 

trivellatomariotretre33

Super Member >PLATINUM<
Joe scusami per il ritardo va bene anche senza mese ti o allegato immagine Joe grazie di cuore.
 

Allegati

  • x.png
    x.png
    28,2 KB · Visite: 1
  • 2017_archivio.txt
    1,1 KB · Visite: 0
Ultima modifica:

solare

Advanced Member >PLATINUM<
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
 

joe

Advanced Member >PLATINUM PLUS<
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:

trivellatomariotretre33

Super Member >PLATINUM<
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

  • 2017_archivio.txt
    956 bytes · Visite: 0

joe

Advanced Member >PLATINUM PLUS<
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:

joe

Advanced Member >PLATINUM PLUS<
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ì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto