Aiuto x un Listato

[trivellatomariotretre33]

buongiorno avrei bisogno di un listato che mi restituisca,come in tx allegato grazie,

01/10/2011 118 33 54 67 65 45 55 23 58 6 71 22 7 48 18 74 88 51 57 33 39 71 2 13 56 49 83 7 19 9 57 89 56 23 50 15 23 38 30 6 39 4 84 65 55 78 87 39 44 18 40 88 8 68 38 4
04/10/2011 119 8 45 88 46 18 78 84 52 55 49 90 63 76 4 9 29 73 81 47 34 3 77 10 86 61 76 71 7 17 60 53 43 45 4 25 88 53 28 14 30 11 6 27 65 72 7 37 22 40 28 39 17 76 72 20
06/10/2011 120 44 47 77 72 86 62 8 73 80 42 30 68 33 31 15 77 88 17 79 31 66 76 50 32 43 30 31 40 60 46 82 63 1 4 33 27 33 73 32 35 47 83 22 68 15 55 48 60 41 43 32 66 10 89 50
08/10/2011 121 52 30 76 67 51 36 63 31 45 32 66 62 72 12 1 66 1 47 4 19 82 22 34 76 33 23 12 10 78 49 70 41 9 32 71 44 63 5 55 46 24 30 77 7 62 32 80 17 39 7 36 75 13 37 21
11/10/2011 122 75 29 11 86 88 6 47 3 16 8 79 81 20 74 13 34 19 42 21 12 36 51 20 31 34 78 65 17 66 42 50 25 86 23 77 83 13 29 88 86 78 23 60 42 16 66 68 58 72 53 15 63 79 12 56
13/10/2011 123 39 24 49 47 54 37 70 25 88 90 39 29 26 81 59 25 88 75 51 76 90 80 65 58 22 14 9 16 13 44 44 27 58 49 42 37 43 89 48 11 84 82 72 56 28 36 53 83 9 32 22 38 54 1 27
15/10/2011 124 70 23 41 55 53 50 1 56 71 76 81 27 52 25 1 79 17 22 42 3 67 62 15 82 40 59 42 30 82 54 10 76 13 47 74 1 86 15 42 20 21 62 75 43 15 48 87 84 13 67 46 3 37 73 69
18/10/2011 125 74 25 48 10 18 21 76 69 80 81 7 47 14 87 26 66 38 81 62 31 43 4 89 34 40 22 86 21 14 73 4 81 61 12 83 49 84 76 25 18 52 28 42 50 79 73 10 18 32 9 54 31 33 18 56
20/10/2011 126 88 90 53 83 19 3 73 25 46 28 23 75 51 19 17 24 15 77 56 73 18 10 4 82 19 67 2 37 82 42 86 22 30 41 5 3 15 63 2 25 20 74 82 70 81 88 56 81 77 44 89 31 3 71 49
22/10/2011 127 22 28 81 87 34 73 33 27 78 22 63 28 58 48 7 52 59 61 10 19 77 52 36 81 9 14 89 22 11 44 41 59 89 24 8 59 65 29 66 67 77 46 82 66 76 2 55 41 54 35 29 89 27 26 44
25/10/2011 128 77 87 89 8 25 86 46 16 56 57 75 42 27 12 4 55 48 78 65 87 38 83 13 48 47 74 11 35 12 21 11 9 21 7 44 47 24 38 46 25 79 71 4 30 61 2 17 9 23 61 50 26 7 46 20
27/10/2011 129 2 35 82 48 21 84 2 32 50 63 84 21 12 5 38 39 36 11 53 84 57 79 16 10 44 90 77 55 88 12 1 49 36 71 63 72 46 67 42 37 83 87 40 63 52 87 9 76 51 13 78 75 64 43 39
29/10/2011 130 5 66 3 14 23 73 13 90 78 23 82 78 72 67 73 5 14 28 71 26 87 64 39 46 10 21 38 81 76 74 21 62 72 7 49 42 80 8 19 82 32 78 69 41 90 51 55 74 71 79 58 10 32 7 70
02/11/2011 131 6 34 37 71 33 4 63 25 8 16 73 60 47 30 43 37 73 38 4 71 66 74 61 26 67 21 78 59 44 40 73 89 20 32 88 24 30 52 21 34 48 86 14 24 81 41 30 28 12 35 58 86 13 52 24
03/11/2011 132 31 40 15 16 4 57 30 64 4 47 75 41 89 28 87 31 33 25 38 82 44 61 41 38 14 39 10 78 26 47 27 74 72 14 2 66 85 48 77 52 35 84 66 2 60 56 66 1 35 88 3 25 26 55 54
05/11/2011 133 5 68 32 87 11 62 83 87 81 45 18 22 23 86 24 86 62 56 60 79 72 9 42 26 88 20 51 2 26 1 41 61 34 85 17 83 51 6 82 88 2 30 33 80 85 32 47 84 41 27 70 53 36 80 18
08/11/2011 134 67 11 79 76 71 20 71 21 57 42 47 44 46 7 21 16 18 68 78 86 78 5 60 33 49 61 57 4 9 31 60 46 24 43 48 51 85 32 52 42 88 62 78 12 13 58 34 32 27 87 65 2 73 59 43
10/11/2011 135 75 52 50 27 78 72 25 79 76 70 11 69 41 28 62 56 24 19 86 54 79 63 29 57 27 3 78 12 41 32 85 38 26 20 41 85 73 87 66 8 21 62 78 1 24 17 40 34 48 14 15 86 69 38 8

 

[BaffoBlù]

buongiorno avrei bisogno di un listato che mi restituisca,come in tx allegato grazie,

01/10/2011 118 33 54 67 65 45 55 23 58 6 71 22 7 48 18 74 88 51 57 33 39 71 2 13 56 49 83 7 19 9 57 89 56 23 50 15 23 38 30 6 39 4 84 65 55 78 87 39 44 18 40 88 8 68 38 4
04/10/2011 119 8 45 88 46 18 78 84 52 55 49 90 63 76 4 9 29 73 81 47 34 3 77 10 86 61 76 71 7 17 60 53 43 45 4 25 88 53 28 14 30 11 6 27 65 72 7 37 22 40 28 39 17 76 72 20
06/10/2011 120 44 47 77 72 86 62 8 73 80 42 30 68 33 31 15 77 88 17 79 31 66 76 50 32 43 30 31 40 60 46 82 63 1 4 33 27 33 73 32 35 47 83 22 68 15 55 48 60 41 43 32 66 10 89 50
08/10/2011 121 52 30 76 67 51 36 63 31 45 32 66 62 72 12 1 66 1 47 4 19 82 22 34 76 33 23 12 10 78 49 70 41 9 32 71 44 63 5 55 46 24 30 77 7 62 32 80 17 39 7 36 75 13 37 21
11/10/2011 122 75 29 11 86 88 6 47 3 16 8 79 81 20 74 13 34 19 42 21 12 36 51 20 31 34 78 65 17 66 42 50 25 86 23 77 83 13 29 88 86 78 23 60 42 16 66 68 58 72 53 15 63 79 12 56
13/10/2011 123 39 24 49 47 54 37 70 25 88 90 39 29 26 81 59 25 88 75 51 76 90 80 65 58 22 14 9 16 13 44 44 27 58 49 42 37 43 89 48 11 84 82 72 56 28 36 53 83 9 32 22 38 54 1 27
15/10/2011 124 70 23 41 55 53 50 1 56 71 76 81 27 52 25 1 79 17 22 42 3 67 62 15 82 40 59 42 30 82 54 10 76 13 47 74 1 86 15 42 20 21 62 75 43 15 48 87 84 13 67 46 3 37 73 69
18/10/2011 125 74 25 48 10 18 21 76 69 80 81 7 47 14 87 26 66 38 81 62 31 43 4 89 34 40 22 86 21 14 73 4 81 61 12 83 49 84 76 25 18 52 28 42 50 79 73 10 18 32 9 54 31 33 18 56
20/10/2011 126 88 90 53 83 19 3 73 25 46 28 23 75 51 19 17 24 15 77 56 73 18 10 4 82 19 67 2 37 82 42 86 22 30 41 5 3 15 63 2 25 20 74 82 70 81 88 56 81 77 44 89 31 3 71 49
22/10/2011 127 22 28 81 87 34 73 33 27 78 22 63 28 58 48 7 52 59 61 10 19 77 52 36 81 9 14 89 22 11 44 41 59 89 24 8 59 65 29 66 67 77 46 82 66 76 2 55 41 54 35 29 89 27 26 44
25/10/2011 128 77 87 89 8 25 86 46 16 56 57 75 42 27 12 4 55 48 78 65 87 38 83 13 48 47 74 11 35 12 21 11 9 21 7 44 47 24 38 46 25 79 71 4 30 61 2 17 9 23 61 50 26 7 46 20
27/10/2011 129 2 35 82 48 21 84 2 32 50 63 84 21 12 5 38 39 36 11 53 84 57 79 16 10 44 90 77 55 88 12 1 49 36 71 63 72 46 67 42 37 83 87 40 63 52 87 9 76 51 13 78 75 64 43 39
29/10/2011 130 5 66 3 14 23 73 13 90 78 23 82 78 72 67 73 5 14 28 71 26 87 64 39 46 10 21 38 81 76 74 21 62 72 7 49 42 80 8 19 82 32 78 69 41 90 51 55 74 71 79 58 10 32 7 70
02/11/2011 131 6 34 37 71 33 4 63 25 8 16 73 60 47 30 43 37 73 38 4 71 66 74 61 26 67 21 78 59 44 40 73 89 20 32 88 24 30 52 21 34 48 86 14 24 81 41 30 28 12 35 58 86 13 52 24
03/11/2011 132 31 40 15 16 4 57 30 64 4 47 75 41 89 28 87 31 33 25 38 82 44 61 41 38 14 39 10 78 26 47 27 74 72 14 2 66 85 48 77 52 35 84 66 2 60 56 66 1 35 88 3 25 26 55 54
05/11/2011 133 5 68 32 87 11 62 83 87 81 45 18 22 23 86 24 86 62 56 60 79 72 9 42 26 88 20 51 2 26 1 41 61 34 85 17 83 51 6 82 88 2 30 33 80 85 32 47 84 41 27 70 53 36 80 18
08/11/2011 134 67 11 79 76 71 20 71 21 57 42 47 44 46 7 21 16 18 68 78 86 78 5 60 33 49 61 57 4 9 31 60 46 24 43 48 51 85 32 52 42 88 62 78 12 13 58 34 32 27 87 65 2 73 59 43
10/11/2011 135 75 52 50 27 78 72 25 79 76 70 11 69 41 28 62 56 24 19 86 54 79 63 29 57 27 3 78 12 41 32 85 38 26 20 41 85 73 87 66 8 21 62 78 1 24 17 40 34 48 14 15 86 69 38 8

ciao

Questo è ovviamente un archivio.

ho già visto tante volte questo tipo di formattazione.

per quale programma ti serve?

Forse ci sono soluzioni più interessanti e rapide per quello che vorresti fare...

 

[trivellatomariotretre33]

ciao Baffoblu e un archivio mi serve TREND v0.3

 

[BaffoBlù]

ciao Baffoblu e un archivio mi serve TREND v0.3

Non conosco TREND V0.3

MA se riesci a postare qui l'archivio nel formato originale
forse si può fare una piccola magia...

 

[trivellatomariotretre33]

ECCO BaffoBlù

 

[BaffoBlù]

ECCO BaffoBlù

ok, visto

ma l'originale si chiama proprio così Estratti.txt ???

non è aggiornato dal 1990 ???

ma come si chiama esattamente il programma lotto?

 

[claudio8]

ciao Baffo
buon lavoro....

 

[BaffoBlù]

ciao Baffo
buon lavoro....

Buon lavoro?...

sono a piedi!

Dim "Posta" a qualcuno non funziona...

 

[BaffoBlù]

Eccoti lo script

Devi avere il prog. Spaziometria aggiornato con le estrazioni ovviamente...

Copia l'output in un file di testo (senza formato a capo automatico)

Rinominalo come ti pare/serve/ interessa...

Option Explicit
Sub Main()
   Dim es,Ini,Fin,Tm
   Dim ruote(11)
   Dim r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11
   r1 = 1
   r2 = 2
   r3 = 3
   r4 = 4
   r5 = 5
   r6 = 6
   r7 = 7
   r8 = 8
   r9 = 9
   r10 = 10
   r11 = 12
   Tm = CInt(InputBox(" Da Quale Estrazione Vuoi Partire ? ",,"10363")) '  10363 inizio 2024 / 10024 inizio 2022 / 10181 inizio 2023 ...
   Ini = Tm
   Fin = EstrazioneFin
   For es = Ini To Fin
      Scrivi DataEstrazione(es,,,"/") & " " & IndiceAnnuale(es) & " " & StringaEstratti(es,r1," ") & " " & StringaEstratti(es,r2," ") & " " & StringaEstratti(es,r3," ") & " " & StringaEstratti(es,r4," ") & " " & StringaEstratti(es,r5," ") & " " & StringaEstratti(es,r6," ") & " " & StringaEstratti(es,r7," ") & " " & StringaEstratti(es,r8," ") & " " & StringaEstratti(es,r9," ") & " " & StringaEstratti(es,r10," ") & " " & StringaEstratti(es,r11," "),1,,,,2
   Next
End Sub

Nota : una volta ottenuto l'output sul file di testo

devi correggerlo per essere perfettamente adattabile agli scopi

l'archivio che ti serve non utilizza lo "Zero" davanti ai numeretti

lo script invece te li da con lo zero davanti

una fesseria con blocco note, fare trova e sostituisci

esempio per il N° 01

Trova (Spazio Vuoto,01,spazio vuoto)

sostituisci con : (Spazio Vuoto,1,spazio vuoto)

e così per gli altri numeretti.

e otterrai quello che vuoi.






,

 

[trivellatomariotretre33]

grazie BaffoBlù ti faro sapere grazie
sono ancora a lavoro.

 

[BaffoBlù]

grazie BaffoBlù ti faro sapere grazie
sono ancora a lavoro.

Prego.

Lo script è rudimentale, ma ottiene lo scopo

se poi segui la nota otterrai precisamente quello che ti serve

Sono sicuro che si può fare molto meglio...

Qualcuno potrebbe farti lo script che ti aggiorna in automatico le estrazioni che ti mancano
anche dopo un anno che non usi più quel prog.

se veramente l'archivio è un semplice file di testo, non vedo ostacoli di nessun tipo

 

[DjNomade]

Ne ho appena trovato uno in archivio del mitico Joe che ho adattato per l'occorrenza,
in alternativa prova questo
Ciauz

Option Explicit
' Script per Spaziometria By Joe
Sub Main
   Dim Ini,Fin,Es,R,P,Tm,Riga
   Tm = CInt(InputBox(" Da Quale Estrazione Vuoi Partire ? ",,"3549")) '  10363 inizio 2024 / 10024 inizio 2022 / 10181 inizio 2023 ...
   Ini = Tm
   Fin = EstrazioniArchivio
   For Es = Ini To Fin
      AvanzamentoElab Ini,Fin,Es
'*********************************************************************
     ' Riga = Left(DataEstrazione (Es,True),3)'CON GIORNO SETTIMANA
     ' Riga = Riga & DataEstrazione(Es)
'*********************************************************************
      Riga =  Format2(Giorno(es))&"/"&Format2(Mese(es))&"/"&Anno(es)&" "&IndiceAnnuale(es)&""   'SENZA GIORNO SETTIMANA
'*********************************************************************

      For R = 1 To 12
         If R = 11 Then R = 12
         For P = 1 To 5
            Riga = Riga &" "& (Estratto(Es,R,P))
            'Riga = Riga & Format2(Estratto(Es,R,P))' originale
         Next
      Next
      Call Scrivi(Riga)
   Next
End Sub

 

[trivellatomariotretre33]

con tutti e due mi da errore

 

[DjNomade]

Bho
nel caso non digerisca l'aggiunta del venerdi prova a fermare l'archivio
in data 06-07-2023 n.10260
magari.......
Ciauz

 

[BaffoBlù]

Ne ho appena trovato uno in archivio del mitico Joe che ho adattato per l'occorrenza,
in alternativa prova questo
Ciauz

Option Explicit
' Script per Spaziometria By Joe
Sub Main
   Dim Ini,Fin,Es,R,P,Tm,Riga
   Tm = CInt(InputBox(" Da Quale Estrazione Vuoi Partire ? ",,"3549")) '  10363 inizio 2024 / 10024 inizio 2022 / 10181 inizio 2023 ...
   Ini = Tm
   Fin = EstrazioniArchivio
   For Es = Ini To Fin
      AvanzamentoElab Ini,Fin,Es
'*********************************************************************
     ' Riga = Left(DataEstrazione (Es,True),3)'CON GIORNO SETTIMANA
     ' Riga = Riga & DataEstrazione(Es)
'*********************************************************************
      Riga =  Format2(Giorno(es))&"/"&Format2(Mese(es))&"/"&Anno(es)&" "&IndiceAnnuale(es)&""   'SENZA GIORNO SETTIMANA
'*********************************************************************

      For R = 1 To 12
         If R = 11 Then R = 12
         For P = 1 To 5
            Riga = Riga &" "& (Estratto(Es,R,P))
            'Riga = Riga & Format2(Estratto(Es,R,P))' originale
         Next
      Next
      Call Scrivi(Riga)
   Next
End Sub

DjNomade il tuo va bene, solo che gli "zeri" dovrebbero essere formattati Format2()..

poi sarà identico all'archivio richiesto

 

[DjNomade]

L'ho levata la formattazione perche nel suo archivio non c'era
ho controllato il risultato e mi sebra uguale

suo
07/01/1939 1 58 22 47 49 69 0 0 0 0 0 27 57 81 43 61 0 0 0 0 0 40 38 57 67 7 85 44 48 88 55 73 80 39 58 57 73 24 4 39 22 19 43 10 31 27 9 43 61 14 75 0 0 0 0 0

mio
07/01/1939 1 58 22 47 49 69 0 0 0 0 0 27 57 81 43 61 0 0 0 0 0 40 38 57 67 7 85 44 48 88 55 73 80 39 58 57 73 24 4 39 22 19 43 10 31 27 9 43 61 14 75 0 0 0 0 0

 

[claudio8]

con tutti e due mi da errore

Il software non è niente di che, a quel tempo feci uno script che dava gli stessi risutati.....
se non ricord male cerca i frequenti in un range di estrazione e li propone in previsione e dovrebbe essere stato onserito da Luigi tra i Plugin di Spaziometria in alcune versioni di quel periodo

Saluti

 

[BaffoBlù]

L'ho levata la formattazione perche nel suo archivio non c'era
ho controllato il risultato e mi sebra uguale

suo
07/01/1939 1 58 22 47 49 69 0 0 0 0 0 27 57 81 43 61 0 0 0 0 0 40 38 57 67 7 85 44 48 88 55 73 80 39 58 57 73 24 4 39 22 19 43 10 31 27 9 43 61 14 75 0 0 0 0 0

mio
07/01/1939 1 58 22 47 49 69 0 0 0 0 0 27 57 81 43 61 0 0 0 0 0 40 38 57 67 7 85 44 48 88 55 73 80 39 58 57 73 24 4 39 22 19 43 10 31 27 9 43 61 14 75 0 0 0 0 0

scusa hai ragione hi hi hi...vedo i doppi zeri...

 

[BaffoBlù]

con tutti e due mi da errore

Eccoti il tuo archivio

però dal 1950.

estrazioni controllate verificate senza buchi.



Provo ad allegare il file direttamente che forse è meglio

 

[trivellatomariotretre33]

CIAO BaffoBlù STESSO NON VA NEANCHE COSI