Per chi puo aiutarmi

MILONICO · 30 Agosto 2025

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

Cinzia27 · 30 Agosto 2025

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 · 30 Agosto 2025

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 · 30 Agosto 2025

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 · 30 Agosto 2025

Ciao,

prova lo script di Cinzia con queste modifiche:

Codice:

Sub Main()
   'x Milonico Aggiornatore Archivio
   'Script By Joe V.3.0 del 30/08/2025
   Dim Ini,Fin,Es,R,P,S,Out,Att,LF,NR
   Ini = 10706 : Fin = EstrazioniArchivio : LF = Chr(10) ' per NZ imposta 7440
   For Es = Ini To EstrazioneFin 
      AvanzamentoElab Ini,Fin,Es
      For S = 1 To 11
         R = S
         If S = 9 Then R = 12
         If S > 9 Then R = S - 1
         NR = UCase(SiglaRuota(R))
         If R = 8 Then NR= "RM"
         If R = 12 Then NR = "RN"
         Att = ""
         Att = Anno(Es) & "/" & Format2(Mese(Es)) & "/" & Format2(giorno(Es)) & vbTab & NR
         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 · 30 Agosto 2025

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

joe · 30 Agosto 2025

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 · 30 Agosto 2025

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 · 30 Agosto 2025

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 · 30 Agosto 2025

grazie di cuore joe e Cinzia27

joe · 30 Agosto 2025

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 · 31 Agosto 2025

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

joe · 31 Agosto 2025

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 · 31 Agosto 2025

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 · 31 Agosto 2025

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 · 31 Agosto 2025

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

Cinzia27 · 31 Agosto 2025

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 · 31 Agosto 2025

Nessun errore, perfetto

DjNomade · 31 Agosto 2025

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 · 31 Agosto 2025

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