Per chi puo aiutarmi

MILONICO · Ieri alle 01:01

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

Cinzia27 · Ieri alle 02:53

Ciao, Milonico,
guarda se va bene.

Codice:

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 · Ieri alle 07:47

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 · Ieri alle 12:01

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

Codice:

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 · Ieri alle 13:17

Ciao,

prova lo script di Cinzia con queste modifiche:

Codice:

Sub Main()
   Dim Ini,Fin,Es,R,P,S,Out,Att,LF
   Ini = 3549 : Fin = EstrazioneFin : LF = Chr(10)
   For Es = Ini To EstrazioneFin ' per NZ imposta 7440
      AvanzamentoElab Ini,Fin,Es
      For R = 1 To 11
         If R = 11 Then R = 12
         Att = ""
         Att = Anno(Es) & "/" & Format2(Mese(Es)) & "/" & Format2(giorno(Es)) & vbTab & SiglaRuota(R)
         For P = 1 To 5
            Att = Att & vbTab & Estratto(Es,R,P)
         Next
         If SommaEstratti(Es,R) > 0 Then Out = Out & Att & LF
      Next
   Next
   Scrivi Out
End Sub

MILONICO · Ieri alle 15:10

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

joe · Ieri alle 15:30

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 · Ieri alle 16:43

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 · Ieri alle 17:27

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 · Ieri alle 19:36

grazie di cuore joe e Cinzia27

joe · Ieri alle 20:00

MILONICO ha scritto:
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 · Oggi alle 00:09

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

joe · Oggi alle 08:25

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

Riassumendo brevemente,

l'unica differenza che posso rilevare tra quell'archivio e quello prodotto dagli script

è nel come sono separate le Estrazioni, cioè le sue righe.

Il VbScript utilizza CR+LF (Windows) mentre altri sistemi solo LF (Unix).

Pertanto ho modificato lo script (quello già presente)

per renderlo più compatibile eliminando questa differenza.

DjNomade · Oggi alle 09:07

Ciauz Buona Domenica

Il file txt scaricabile dalla Lottomatica nomina la Nazionale RN
ed è sotto la ruota di Roma RM
si puo' fare nel listato?
Ciauz

Codice:

2025/08/23    BA    67    5    41    45    12
2025/08/23    CA    29    78    54    88    28
2025/08/23    FI    57    58    15    45    44
2025/08/23    GE    53    33    89    34    77
2025/08/23    MI    9    31    36    3    21
2025/08/23    NA    82    35    45    6    65
2025/08/23    PA    25    40    82    48    62
2025/08/23    RM    21    24    74    52    9
2025/08/23    RN    56    9    42    57    33
2025/08/23    TO    28    78    50    90    84
2025/08/23    VE    38    87    3    25    41

Cinzia27 · Oggi alle 10:23

Non riuscendo a modificare lo script come migliorato da Joe, sono tornata al mio.
Ho anche spostato a sx i numeretti.

Codice:

Sub Main()

For es=10709 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
If r=8 Then rr="RM"
If r=12 Then rr="RN"
If r<12 And r<>8 Then rr=SiglaRuota(r)
Scrivi rr&"      ",0,0
For p=1 To 5
Scrivi FormatSpace (Estratto(es,r,p),2,0)&"      ",0,0
Next
Scrivi
End If
Next
Next

Scrivi

End Sub

DjNomade · Oggi alle 10:56

Ottimo, non resta che capire come inserire la Nazionele=RN
sotto la ruota di Roma=RM invece che sotto la ruota di Venezia

Cinzia27 · Oggi alle 11:09

Ciao, DjNomade.
Non ci avevo fatto caso.

Se ci sono errori, fammi sapere.

Codice:

Sub Main()


For es=10700 To EstrazioneFin ' per NZ imposta 7440


Scrivi Anno(es)&"/"&Format2(Mese(es))&"/"&Format2(giorno(es))&"      ",0,0

Scrivi SiglaRuota(1)&"      ",0,0

For p=1 To 5

Scrivi FormatSpace (Estratto(es,1,p),2,0)&"      ",0,0

Next

Scrivi


Scrivi Anno(es)&"/"&Format2(Mese(es))&"/"&Format2(giorno(es))&"      ",0,0

Scrivi SiglaRuota(2)&"      ",0,0

For p=1 To 5

Scrivi FormatSpace (Estratto(es,2,p),2,0)&"      ",0,0

Next

Scrivi


Scrivi Anno(es)&"/"&Format2(Mese(es))&"/"&Format2(giorno(es))&"      ",0,0

Scrivi SiglaRuota(3)&"      ",0,0

For p=1 To 5

Scrivi FormatSpace (Estratto(es,3,p),2,0)&"      ",0,0

Next

Scrivi



Scrivi Anno(es)&"/"&Format2(Mese(es))&"/"&Format2(giorno(es))&"      ",0,0

Scrivi SiglaRuota(4)&"      ",0,0

For p=1 To 5

Scrivi FormatSpace (Estratto(es,4,p),2,0)&"      ",0,0

Next

Scrivi



Scrivi Anno(es)&"/"&Format2(Mese(es))&"/"&Format2(giorno(es))&"      ",0,0

Scrivi SiglaRuota(5)&"      ",0,0

For p=1 To 5

Scrivi FormatSpace (Estratto(es,5,p),2,0)&"      ",0,0

Next

Scrivi


Scrivi Anno(es)&"/"&Format2(Mese(es))&"/"&Format2(giorno(es))&"      ",0,0

Scrivi SiglaRuota(6)&"      ",0,0

For p=1 To 5

Scrivi FormatSpace (Estratto(es,6,p),2,0)&"      ",0,0

Next

Scrivi


Scrivi Anno(es)&"/"&Format2(Mese(es))&"/"&Format2(giorno(es))&"      ",0,0

Scrivi SiglaRuota(7)&"      ",0,0

For p=1 To 5

Scrivi FormatSpace (Estratto(es,7,p),2,0)&"      ",0,0

Next

Scrivi


Scrivi Anno(es)&"/"&Format2(Mese(es))&"/"&Format2(giorno(es))&"      ",0,0

Scrivi "RM      ",0,0

For p=1 To 5

Scrivi FormatSpace (Estratto(es,8,p),2,0)&"      ",0,0

Next

Scrivi


Scrivi Anno(es)&"/"&Format2(Mese(es))&"/"&Format2(giorno(es))&"      ",0,0

Scrivi  "RN      ",0,0

For p=1 To 5

Scrivi FormatSpace (Estratto(es,12,p),2,0)&"      ",0,0

Next

Scrivi


Scrivi Anno(es)&"/"&Format2(Mese(es))&"/"&Format2(giorno(es))&"      ",0,0

Scrivi SiglaRuota(9)&"      ",0,0

For p=1 To 5

Scrivi FormatSpace (Estratto(es,9,p),2,0)&"      ",0,0

Next

Scrivi


Scrivi Anno(es)&"/"&Format2(Mese(es))&"/"&Format2(giorno(es))&"      ",0,0

Scrivi SiglaRuota(10)&"      ",0,0

For p=1 To 5

Scrivi FormatSpace (Estratto(es,10,p),2,0)&"      ",0,0

Next

Scrivi


Next


End Sub

DjNomade · Oggi alle 12:03

Nessun errore, perfetto

DjNomade · Oggi alle 13:15

Urca.... unico problema è che copiando l'estrazioni mancanti
poi il programma non parte mentre se copio quelle dal listato di Joe è va, anche se c'è il problema della Nazionale sotto Venezia .
Credo che il problema sia quello evidenziato da Joe che l'archivio contiene LF al termine di ogni linea
sicuramente Joe sapra' come sistemarlo appena puo'.
Grazieeeeee

Cinzia27 · Oggi alle 13:28

Di nulla.
Sicuramente ci pensa Joe, anche perché non ho capito cosa sia questo LF.

Per chi puo aiutarmi

Member

Allegati

Premium Member

Member

Allegati

Premium Member

Advanced Member >PLATINUM PLUS<

Member

Allegati

Advanced Member >PLATINUM PLUS<

Member

Allegati

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Premium Member

Advanced Member >PLATINUM PLUS<

Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Premium Member