PER SCRYPTER

[trivellatomariotretre33]

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.

 

[joe]

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?

 

[adispo2000]

ciao joe...si possono convertire file .txt in .col...grazie

 

[trivellatomariotretre33]

Joe scusami per il ritardo va bene anche senza mese ti o allegato immagine Joe grazie di cuore.

 

[solare]

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]

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.

 

[trivellatomariotretre33]

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

 

[trivellatomariotretre33]

GRAZIE SOLARE PER IL TUO AIUTO O PROVATO ANCHE IL LISTATO POSTATO MA NON MI FUNGE X LA MIA ESIGENZA CIAO.

 

[joe]

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ì?

 

[trivellatomariotretre33]

Joe vanno bene entrambi grazie o provato.

 

[joe]

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

 

[trivellatomariotretre33]

ottimo Joe sei bravissimo come sempre ti invio una stretta di mano chilometrica e grazie.