Per chi puo aiutarmi

[MILONICO]

Ciao avrei bisogno di un listato che mi possa restituire archivio tx come in allegato Senza Nazionale grazie.

 

[Cinzia27]

Ciao, Milonico,
guarda se va bene.

Sub Main()

For es=3549 To EstrazioneFin

For r=1 To 10
If Estratto(es,r,1)>0 Then
Scrivi Anno(es)&"/"&Format2(Mese(es))&"/"&Format2(giorno(es))&"    ",0,0
Scrivi SiglaRuota(r)&"    ",0,0
For p=1 To 5
Scrivi FormatSpace(Estratto(es,r,p),2,1)&"    ",0,0
Next
Scrivi
End If
Next
Next

Scrivi

End Sub

 

[MILONICO]

ciao Buongiorno Cinzia27 quello sopra non funziona non me lo legge deve essere come il file che ti ho allegato file originale,togli estenzione pdf ,
P.S MI PUOI AGGIUNGERE ANCHE LA NAZIONALE .

 

[Cinzia27]

Ciao, Milonico.
Lo script ti dà l'output da copiare.
Poi il file lo crei tu nel formato che vuoi.
Ti ho aggiunto Nz.

Sub Main()

For es=3549 To EstrazioneFin ' per NZ imposta 7440

For r=1 To 11
If r=11 Then r=12
If Estratto(es,r,1)>0 Then
Scrivi Anno(es)&"/"&Format2(Mese(es))&"/"&Format2(Giorno(es))&"    ",0,0
Scrivi SiglaRuota(r)&"    ",0,0
For p=1 To 5
Scrivi FormatSpace(Estratto(es,r,p),2,1)&"    ",0,0
Next
Scrivi
End If
Next
Next

Scrivi

End Sub

 

[joe]

Ciao,

prova lo script di Cinzia con queste modifiche:

Sub Main()
   Dim Es,R,P,S,Out
   S = vbTab
   For Es = 3549 To EstrazioneFin ' per NZ imposta 7440
      For R = 1 To 11
         If R = 11 Then R = 12
         Out = ""
         If Estratto(Es,R,1) > 0 Then
            'Scrivi Anno(es)&"/"&Format2(Mese(es))&"/"&Format2(giorno(es))&"    ",0,0
            Out = Anno(Es) & "/" & Format2(Mese(Es)) & "/" & Format2(giorno(Es)) & S & SiglaRuota(R)
            'Scrivi SiglaRuota(r)&"    ",0,0
            For P = 1 To 5
               'Scrivi FormatSpace(Estratto(es,r,p),2,1)&"    ",0,0
               Out = Out & S & Format2(Estratto(Es,R,P))
            Next
         End If
         If Out <> "" Then Scrivi Out
      Next
   Next
End Sub

 

[MILONICO]

o provato Cinzia e joe ma non devono essere in colonna ma consecutivi come posto foto ,e come in allegato tx

 

[joe]

Il file di testo che hai allegato contiene LF al temine di ogni linea.

Mentre nell'immagine che hai allegato, il 5° Estratto di ogni ruota non è separato dalla data della ruota successiva.

Anche la lunghezza delle estrazioni è variabile perchè i numeretti sembra non abbiano lo zero.

A seguito di questo ogni estrazione può avere lunghezza variabile e non si sa come separarla dalla precedente / successiva.

Dunque avendo alcune variabili indefinite ed indicazioni contrastanti tra lo loro è difficile e soprattutto improbabile,

azzeccare il formato corretto da assegnare all'output.

In sintesi si tratterebbe di avere "il formato reale" della struttura e non quello manipolato dall'editor del testo o

dal come l'html e/o la trasmissione via web lo ripropone modificato nel PC remoto.

 

[MILONICO]

ok grazie joe e grazie Cinzia27
P.S (SE PUOI) SCRIPT GRAZIE
A FINALE ERA L'ARCHIVIO STORICO , CHE MI SERVE PER VARI PROGRAMMI LOTTO , MI SERVIVA LO SCRIPT A QUESTO LINK https://www.lotto-italia.it/lotto/estratti-ruote
COME IN FOTO ALLEGATA

 

[joe]

Si ma ... come ho detto e come potrei ripetere facendo mie proprie le parole di Cinzia,

gli script fanno esattamente quello che hai chiesto e quello che proponi.

Infatti il file che hai indicato ha:



*Linee di lunghezza variabile

* numeretti ad una sola cifra

* linee che terminano con il LineFeed

Non si può fare diversamente dal farlo così a meno che non si specifichi cosa si vuole di diverso.

 

[MILONICO]

grazie di cuore joe e Cinzia27

 

[joe]

grazie di cuore joe e Cinzia27

Prego.

Ma la curiosità nel capire cosa volevi non è soddisfatta!

Perché c'è un paradosso logico.

Se volevi esattamente quell'archivio, potevi usare quell'archivio.

Se invece l'archivio deve essere diverso, non può essere uguale.

Mi sembra, che da queste 2 ipotesi, non se ne esca, semplicemente, ringraziando.

 

[MILONICO]

joe perche l'archivio nel link della lottomatica e fermo al 23 agosto e non posso aggiornare