Novità

AIUTO SCRIPT

Così dovrebbero essere uguali
Ciao


Codice:
Sub Main()
	'script By Black
	ini = 4123 '7 Gennaio 1950
	fin = EstrazioneFin
	For es = ini To fin
		Call AvanzamentoElab(ini,fin,es)
		r1 = 1
		r2 = 2
		r3 = 3
		r4 = 4
		r5 = 5
		r6 = 6
		r7 = 7
		r8 = 8
		r9 = 9
		r10 = 10
		Scrivi DataEstrazione(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," ")
		If ScriptInterrotto Then Exit For
	Next
End Sub
 
grazie Blackmore scusa va bene l'archivio ma non me lo legge perche linizio di ogni estrazzione deve avere uno spazio fino alla fine deve essere cosi
07\01\1950 56 57 12 77 62 35 82 48 34 08 49 67 04 02 57 22 56 28 39 89 29 85 44 72 88 47 40 50 79 35 36 56 33 27 45 66 01 65 12 11 60 16 13 70 09 83 45 71 53 65
14\01\1950 47 60 36 04 51 16 68 47 64 60 41 60 67 48 17 53 48 60 86 77 59 88 81 47 84 11 70 62 44 63 06 05 22 51 40 68 15 70 02 60 08 46 73 80 79 07 84 29 18 44
21\01\1950 02 36 39 76 10 38 04 40 02 30 19 06 17 28 09 57 46 44 72 62 80 04 07 15 17 55 80 66 84 78 49 86 52 01 67 67 49 26 32 43 07 34 64 72 54 89 08 61 46 38
 
Ultima modifica:
grazie Blackmore scusa va bene l'archivio ma non me lo legge perche linizio di ogni estrazzione deve avere uno spazio fino alla fine deve essere cosi
07\01\1950 56 57 12 77 62 35 82 48 34 08 49 67 04 02 57 22 56 28 39 89 29 85 44 72 88 47 40 50 79 35 36 56 33 27 45 66 01 65 12 11 60 16 13 70 09 83 45 71 53 65
14\01\1950 47 60 36 04 51 16 68 47 64 60 41 60 67 48 17 53 48 60 86 77 59 88 81 47 84 11 70 62 44 63 06 05 22 51 40 68 15 70 02 60 08 46 73 80 79 07 84 29 18 44
21\01\1950 02 36 39 76 10 38 04 40 02 30 19 06 17 28 09 57 46 44 72 62 80 04 07 15 17 55 80 66 84 78 49 86 52 01 67 67 49 26 32 43 07 34 64 72 54 89 08 61 46 38
 
Ultima modifica:
Ecco qui... Ciao


Codice:
Sub Main()
	'script By Black
	ini = 4123 '7 Gennaio 1950
	fin = EstrazioneFin
	For es = ini To fin
		Call AvanzamentoElab(ini,fin,es)
		r1 = 1
		r2 = 2
		r3 = 3
		r4 = 4
		r5 = 5
		r6 = 6
		r7 = 7
		r8 = 8
		r9 = 9
		r10 = 10
		Scrivi DataEstrazione(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," ")
		If ScriptInterrotto Then Exit For
	Next
End Sub
 
grazie Blackmore scusa va bene l'archivio ma non me lo legge perche linizio di ogni estrazzione deve avere uno spazio fino alla fine deve essere cosi
07\01\1950 56 57 12 77 62 35 82 48 34 08 49 67 04 02 57 22 56 28 39 89 29 85 44 72 88 47 40 50 79 35 36 56 33 27 45 66 01 65 12 11 60 16 13 70 09 83 45 71 53 65
14\01\1950 47 60 36 04 51 16 68 47 64 60 41 60 67 48 17 53 48 60 86 77 59 88 81 47 84 11 70 62 44 63 06 05 22 51 40 68 15 70 02 60 08 46 73 80 79 07 84 29 18 44
21\01\1950 02 36 39 76 10 38 04 40 02 30 19 06 17 28 09 57 46 44 72 62 80 04 07 15 17 55 80 66 84 78 49 86 52 01 67 67 49 26 32 43 07 34 64 72 54 89 08 61 46 38

Mi stai facendo ammattire :D :D
Così ?


Codice:
Sub Main()
	'script By Black
	ini = 4123 '7 Gennaio 1950
	fin = EstrazioneFin
	For es = ini To fin
		Call AvanzamentoElab(ini,fin,es)
		r1 = 1
		r2 = 2
		r3 = 3
		r4 = 4
		r5 = 5
		r6 = 6
		r7 = 7
		r8 = 8
		r9 = 9
		r10 = 10
		Scrivi " "& DataEstrazione(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," ")
		If ScriptInterrotto Then Exit For
	Next
End Sub
 
O così...

Codice:
Sub Main()
	'script By Black
	ini = 4123 '7 Gennaio 1950
	fin = EstrazioneFin
	For es = ini To fin
		Call AvanzamentoElab(ini,fin,es)
		r1 = 1
		r2 = 2
		r3 = 3
		r4 = 4
		r5 = 5
		r6 = 6
		r7 = 7
		r8 = 8
		r9 = 9
		r10 = 10
		Scrivi " "& DataEstrazione(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," ")
		If ScriptInterrotto Then Exit For
	Next
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 23 agosto 2025
    Bari
    67
    05
    41
    45
    12
    Cagliari
    29
    78
    54
    88
    28
    Firenze
    57
    58
    15
    45
    44
    Genova
    53
    33
    89
    34
    77
    Milano
    09
    31
    36
    03
    21
    Napoli
    82
    35
    45
    06
    65
    Palermo
    25
    40
    82
    48
    62
    Roma
    21
    24
    74
    52
    09
    Torino
    28
    78
    50
    90
    84
    Venezia
    38
    87
    03
    25
    41
    Nazionale
    56
    09
    42
    57
    33
    Estrazione Simbolotto
    Nazionale
    41
    44
    04
    07
    21
Indietro
Alto