PER CHI PUO SCRIPT

[MILONICO]

Ciao a tutti se possibile qualcuno che mi possa aiutare ad avere uno script che mi restituisca le estrazioni come allegato in tx

2024/11/12 BA 66 59 34 63 60
2024/11/12 CA 41 79 87 82 90
2024/11/12 FI 25 43 1 40 47
2024/11/12 GE 80 66 13 87 73
2024/11/12 MI 77 45 12 10 47
2024/11/12 NA 49 72 70 88 29
2024/11/12 PA 41 24 88 47 57
2024/11/12 RM 28 26 67 89 17
2024/11/12 RN 52 72 36 58 74
2024/11/12 TO 8 46 68 53 49
2024/11/12 VE 9 5 6 45 26
2024/11/14 BA 57 43 75 28 29
2024/11/14 CA 2 80 16 50 70
2024/11/14 FI 31 63 59 27 82
2024/11/14 GE 80 78 33 66 1
2024/11/14 MI 19 28 76 3 40
2024/11/14 NA 89 79 61 68 15
2024/11/14 PA 21 37 49 73 18
2024/11/14 RM 53 45 89 85 46
2024/11/14 RN 22 38 3 24 43
2024/11/14 TO 23 15 36 1 63
2024/11/14 VE 18 3 23 14 83
2024/11/15 BA 5 90 61 77 39
2024/11/15 CA 53 62 26 76 22
2024/11/15 FI 70 6 75 1 52
2024/11/15 GE 90 71 23 4 14
2024/11/15 MI 58 69 46 26 20
2024/11/15 NA 61 40 75 49 39
2024/11/15 PA 79 71 54 13 9
2024/11/15 RM 40 17 2 73 13
2024/11/15 RN 57 14 67 1 76
2024/11/15 TO 89 5 49 78 44
2024/11/15 VE 90 47 28 86 6
2024/11/16 BA 17 28 73 90 7
2024/11/16 CA 41 7 61 17 6
2024/11/16 FI 24 88 48 2 16
2024/11/16 GE 13 87 35 62 75
2024/11/16 MI 14 75 67 88 6
2024/11/16 NA 10 9 63 53 78
2024/11/16 PA 48 7 76 86 42
2024/11/16 RM 77 75 6 14 29
2024/11/16 RN 73 21 67 2 84
2024/11/16 TO 29 23 68 70 72
2024/11/16 VE 88 12 9 45 30
2024/11/19 BA 51 20 49 27 67
2024/11/19 CA 14 22 74 60 35
2024/11/19 FI 79 54 17 48 58
2024/11/19 GE 86 87 74 22 25
2024/11/19 MI 12 51 47 88 49
2024/11/19 NA 41 30 70 43 47
2024/11/19 PA 85 15 75 63 81
2024/11/19 RM 49 11 50 66 24
2024/11/19 RN 78 3 36 16 6
2024/11/19 TO 44 15 3 41 84
2024/11/19 VE 50 89 75 47 33
2024/11/21 BA 6 79 30 52 15
2024/11/21 CA 3 85 61 44 25
2024/11/21 FI 30 76 84 34 13
2024/11/21 GE 39 63 6 50 81
2024/11/21 MI 1 34 78 86 36
2024/11/21 NA 63 51 82 61 7
2024/11/21 PA 11 66 9 59 34
2024/11/21 RM 15 26 32 38 89
2024/11/21 RN 85 83 79 12 51
2024/11/21 TO 38 43 77 33 42
2024/11/21 VE 76 60 78 47 31
2024/11/22 BA 27 45 81 17 55
2024/11/22 CA 78 66 45 3 14
2024/11/22 FI 14 90 72 88 55
2024/11/22 GE 33 23 82 81 24
2024/11/22 MI 25 79 13 42 15
2024/11/22 NA 39 35 65 1 14
2024/11/22 PA 25 83 69 50 36
2024/11/22 RM 25 71 22 10 55
2024/11/22 RN 82 60 62 65 59
2024/11/22 TO 59 30 43 74 49
2024/11/22 VE 39 90 77 5 35
2024/11/23 BA 33 80 86 52 25
2024/11/23 CA 67 57 59 5 80
2024/11/23 FI 31 32 58 88 77
2024/11/23 GE 40 39 23 36 81
2024/11/23 MI 28 58 45 25 38
2024/11/23 NA 20 82 23 44 57
2024/11/23 PA 76 56 88 62 31
2024/11/23 RM 12 81 59 74 72
2024/11/23 RN 63 44 78 10 55
2024/11/23 TO 46 53 72 45 23
2024/11/23 VE 4 12 42 64 20
2024/11/26 BA 35 16 24 41 85
2024/11/26 CA 89 30 10 81 72
2024/11/26 FI 38 60 16 13 28
2024/11/26 GE 52 15 80 8 53
2024/11/26 MI 33 77 6 54 73
2024/11/26 NA 1 50 64 35 36
2024/11/26 PA 2 1 19 33 62
2024/11/26 RM 33 48 72 47 68
2024/11/26 RN 2 44 27 86 78
2024/11/26 TO 62 28 18 75 31
2024/11/26 VE 3 54 27 14 71
2024/11/28 BA 52 79 70 83 51
2024/11/28 CA 83 14 82 89 26
2024/11/28 FI 57 35 33 5 14
2024/11/28 GE 38 74 16 88 25
2024/11/28 MI 86 75 87 21 5
2024/11/28 NA 59 7 30 78 29
2024/11/28 PA 30 75 52 57 22
2024/11/28 RM 22 16 3 74 23
2024/11/28 RN 43 23 83 72 2
2024/11/28 TO 28 55 72 53 22
2024/11/28 VE 38 77 85 23 2
2024/11/29 BA 29 22 53 65 12
2024/11/29 CA 90 42 12 44 73
2024/11/29 FI 65 82 32 14 2
2024/11/29 GE 58 79 69 78 13
2024/11/29 MI 88 82 18 40 24
2024/11/29 NA 5 42 6 56 13
2024/11/29 PA 59 2 52 34 84
2024/11/29 RM 48 67 46 18 79
2024/11/29 RN 61 83 42 38 35
2024/11/29 TO 76 48 13 65 88
2024/11/29 VE 22 13 69 35 70
2024/11/30 BA 25 46 41 83 89
2024/11/30 CA 13 80 42 53 51
2024/11/30 FI 87 26 10 34 2
2024/11/30 GE 3 69 74 44 70
2024/11/30 MI 63 55 33 53 15
2024/11/30 NA 90 66 76 69 23
2024/11/30 PA 59 58 66 24 29
2024/11/30 RM 58 43 23 5 50
2024/11/30 RN 25 81 37 30 58
2024/11/30 TO 53 34 17 15 9
2024/11/30 VE 90 73 82 22 39
2024/12/03 BA 38 26 58 36 65
2024/12/03 CA 71 68 61 41 89
2024/12/03 FI 52 65 73 3 50
2024/12/03 GE 37 41 70 40 6
2024/12/03 MI 62 28 70 6 39
2024/12/03 NA 25 50 49 60 52
2024/12/03 PA 6 55 68 11 86
2024/12/03 RM 12 23 16 14 63
2024/12/03 RN 67 27 38 57 19
2024/12/03 TO 16 6 44 14 88
2024/12/03 VE 7 67 1 38 89
2024/12/05 BA 32 35 51 26 82
2024/12/05 CA 66 10 20 59 78
2024/12/05 FI 83 42 28 27 61
2024/12/05 GE 42 20 53 47 6
2024/12/05 MI 18 3 54 88 69
2024/12/05 NA 59 48 66 2 86
2024/12/05 PA 65 8 29 59 47
2024/12/05 RM 49 76 36 90 82
2024/12/05 RN 28 56 50 76 31
2024/12/05 TO 22 15 46 48 18
2024/12/05 VE 64 61 54 57 40
2024/12/06 BA 9 46 16 21 73
2024/12/06 CA 22 72 34 35 23
2024/12/06 FI 56 57 22 67 39
2024/12/06 GE 24 62 16 5 83
2024/12/06 MI 23 17 39 66 38
2024/12/06 NA 69 39 7 71 12
2024/12/06 PA 41 15 74 39 14
2024/12/06 RM 61 33 54 85 87
2024/12/06 RN 87 27 65 86 19
2024/12/06 TO 85 27 73 60 35
2024/12/06 VE 24 13 3 57 33
2024/12/07 BA 37 21 12 79 15
2024/12/07 CA 45 15 59 54 57
2024/12/07 FI 87 6 49 52 28
2024/12/07 GE 27 44 29 81 1
2024/12/07 MI 39 8 79 43 7
2024/12/07 NA 79 90 49 23 38
2024/12/07 PA 90 5 53 56 72
2024/12/07 RM 57 45 20 69 5
2024/12/07 RN 32 53 44 38 45
2024/12/07 TO 65 46 43 77 48
2024/12/07 VE 60 51 9 50 78
2024/12/10 BA 79 15 70 41 49
2024/12/10 CA 50 56 17 53 48
2024/12/10 FI 37 86 35 24 44
2024/12/10 GE 45 83 4 39 1
2024/12/10 MI 64 55 22 69 44
2024/12/10 NA 17 69 4 56 41
2024/12/10 PA 6 86 46 33 80
2024/12/10 RM 31 42 30 46 41
2024/12/10 RN 79 18 36 77 16
2024/12/10 TO 64 11 55 61 44
2024/12/10 VE 1 33 42 14 48
2024/12/12 BA 7 40 58 52 36
2024/12/12 CA 25 10 86 81 33
2024/12/12 FI 36 52 7 82 53
2024/12/12 GE 88 20 19 32 58
2024/12/12 MI 45 29 33 12 19
2024/12/12 NA 40 62 17 24 15
2024/12/12 PA 73 39 65 21 10
2024/12/12 RM 16 70 85 14 76
2024/12/12 RN 55 36 34 84 83
2024/12/12 TO 64 89 85 27 80
2024/12/12 VE 55 59 78 81 76
2024/12/13 BA 66 32 12 33 49
2024/12/13 CA 82 8 9 42 64
2024/12/13 FI 66 52 57 81 8
2024/12/13 GE 62 13 24 39 80
2024/12/13 MI 56 40 28 67 31
2024/12/13 NA 44 29 46 30 56
2024/12/13 PA 10 25 40 41 70
2024/12/13 RM 40 77 19 38 28
2024/12/13 RN 63 36 75 70 52
2024/12/13 TO 9 37 27 80 61
2024/12/13 VE 87 10 45 89 2

 

[MILONICO]

Ciao Buongiorno qualcuno che mi potrebbe fare il listato sopra grazie ,
Per Mike58, Joe, Salvo50

 

[claudio8]

Ciao Buongiorno qualcuno che mi potrebbe fare il listato sopra grazie ,
Per Mike58, Joe, Salvo50

Devi meglio specificare il formato data dei mesi da 1 cifra ( gennaio.. settembre) ed i giorni ad 1 cifra ( 1..9)
Comunque io ho considerato di mettere la cifra in formato 2spazi e lasciare la spaziatura vuota a dx come per i numeri presenti nel file TX .txt
Vedi questo output e fammi satere se va bene,

( ps controlla sul tuo archivio. txt da inizio anno 2025)

 

[MILONICO]

ciao Claudio8 ti o allegato l'intero archivio basta togliere estenzione txt e rinominarlo rar

 

[claudio8]

Eccoti lo script che fa quanto richiesto al post 1
HAI UN ELENCO RUOTE DIVERSO DA SPTM.... lo ho sistemato e ripostato

Anticipazione (Spoiler): script archivio formattato

Option Explicit
Option Explicit 
Sub Main
     Dim Ini,a,m,g
     Ini = EstrazioneFin - 3
     Dim Es,R,P
     For Es = Ini To EstrazioneFin
          a = Anno(Es)
          m = Mese(Es)
          g = giorno(Es)
          For R = 1 To 7
               Scrivi a & "/" & Format2(m) & "/" & Format2(g) & vbTab & SiglaRuota(R),,False
               For P = 1 To 5
                    Scrivi vbTab & FormatSpace(Estratto(Es,R,P),2,False),,False
               Next
               Scrivi
          Next
          Scrivi a & "/" & Format2(m) & "/" & Format2(g) & vbTab & "RM",,False
          For P = 1 To 5
               Scrivi vbTab & FormatSpace(Estratto(Es,R,P),2,False),,False ' per i non pratici :
               ''ho lasciato R perchè il suo valore in uscita dal ciclo For R = 1 To 7 è 8.
          Next
          Scrivi
          Scrivi a & "/" & Format2(m) & "/" & Format2(g) & vbTab & "RN",,False
          For P = 1 To 5
               Scrivi vbTab & FormatSpace(Estratto(Es,12,P),2,False),,False
          Next
          Scrivi
          For R = 9 To 10
               Scrivi a & "/" & Format2(m) & "/" & Format2(g) & vbTab & SiglaRuota(R),,False
               For P = 1 To 5
                    Scrivi vbTab & FormatSpace(Estratto(Es,R,P),2,False),,False
               Next
               Scrivi
          Next
     Next
End Sub

Archivi a confronto

Controlla, che l'output sia corretto.
Saluti

 

[MILONICO]

Perfetto Claudio8 ti invio una stretta di mano chilometrica. Grazie

 

[claudio8]

Grazie per la stretta di mano. . .
Sarei + contento con un ambo di 2 numeri su ruota.....
ciao