PER JOE O PER CHI PUO

[MILONICO]

CIAO AVREI BISOGNO DI UNO SCRIPT CHE MI POSSA RESTITUIRE COME IN ALLEGATO TX . ALLEGO COME IN TX, GRAZIE.

7095;06/05/2025;Bari;6;44;88;74;39
7095;06/05/2025;Cagliari;72;46;55;69;7
7095;06/05/2025;Firenze;84;82;56;39;5
7095;06/05/2025;Genova;77;53;57;42;49
7095;06/05/2025;Milano;40;71;11;2;64
7095;06/05/2025;Napoli;12;78;75;59;38
7095;06/05/2025;Palermo;16;47;26;56;5
7095;06/05/2025;Roma;20;19;55;1;72
7095;06/05/2025;Nazionale;46;52;67;78;59
7095;06/05/2025;Torino;54;83;78;71;41
7095;06/05/2025;Venezia;71;41;55;35;63
7096;08/05/2025;Bari;87;43;9;33;5
7096;08/05/2025;Cagliari;40;13;86;28;56
7096;08/05/2025;Firenze;71;66;87;8;30
7096;08/05/2025;Genova;72;38;29;22;40
7096;08/05/2025;Milano;71;12;15;39;75
7096;08/05/2025;Napoli;9;71;20;53;10
7096;08/05/2025;Palermo;88;58;80;85;15
7096;08/05/2025;Roma;32;1;25;16;82
7096;08/05/2025;Nazionale;9;35;40;16;36
7096;08/05/2025;Torino;78;89;72;60;55
7096;08/05/2025;Venezia;68;27;44;54;67
7097;09/05/2025;Bari;23;87;53;62;33
7097;09/05/2025;Cagliari;16;38;41;62;87
7097;09/05/2025;Firenze;19;52;85;23;13
7097;09/05/2025;Genova;1;61;85;60;48
7097;09/05/2025;Milano;87;80;7;41;50
7097;09/05/2025;Napoli;53;32;83;31;78
7097;09/05/2025;Palermo;12;58;56;50;82
7097;09/05/2025;Roma;6;48;17;12;75
7097;09/05/2025;Nazionale;68;44;32;49;83
7097;09/05/2025;Torino;89;26;30;1;20
7097;09/05/2025;Venezia;32;21;20;82;49
7098;10/05/2025;Bari;13;59;6;79;87
7098;10/05/2025;Cagliari;72;15;60;8;41
7098;10/05/2025;Firenze;33;12;20;40;43
7098;10/05/2025;Genova;46;1;70;16;19
7098;10/05/2025;Milano;69;55;2;44;20
7098;10/05/2025;Napoli;33;10;38;87;72
7098;10/05/2025;Palermo;79;55;11;62;10
7098;10/05/2025;Roma;43;29;79;5;31
7098;10/05/2025;Nazionale;56;46;38;41;74
7098;10/05/2025;Torino;25;26;61;75;63
7098;10/05/2025;Venezia;47;33;64;31;20
7099;13/05/2025;Bari;57;8;71;83;65
7099;13/05/2025;Cagliari;6;43;60;53;65
7099;13/05/2025;Firenze;4;76;30;20;73
7099;13/05/2025;Genova;11;50;61;23;49
7099;13/05/2025;Milano;54;50;3;34;37
7099;13/05/2025;Napoli;63;17;76;85;7
7099;13/05/2025;Palermo;6;68;35;31;13
7099;13/05/2025;Roma;63;15;57;82;3
7099;13/05/2025;Nazionale;59;51;84;75;6
7099;13/05/2025;Torino;60;30;87;63;3
7099;13/05/2025;Venezia;52;43;17;14;25

 

[lotto_tom75]

Option Explicit
Sub Main
   Dim es
   Dim ruota
   Dim Inizio
   Dim Av
   Dim s
   Inizio = EstrazioneIni
   For es = EstrazioneIni To EstrazioneFin
      For ruota = 1 To 10
         If ruota = 11 Then
            ruota = 12
         End If
         Av = Split(DataEstrazione(es),".")
         s = Av(2) & "/" & Av(1) & "/" & Av(0)
         'Scrivi s
         Scrivi s & "  " & SiglaRuota(ruota) & "  " & StringaEstratti(es,ruota,"  ")
         If ScriptInterrotto Then Exit For
      Next 'x ruota
      If ScriptInterrotto Then Exit For
   Next ' x es
End Sub