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 02 agosto 2025
    Bari
    65
    06
    49
    14
    01
    Cagliari
    16
    20
    15
    28
    45
    Firenze
    39
    10
    83
    09
    16
    Genova
    52
    74
    79
    63
    59
    Milano
    44
    88
    57
    34
    80
    Napoli
    20
    29
    78
    84
    79
    Palermo
    76
    68
    60
    64
    02
    Roma
    80
    84
    27
    78
    57
    Torino
    25
    50
    41
    49
    69
    Venezia
    85
    33
    60
    45
    84
    Nazionale
    05
    02
    64
    79
    37
    Estrazione Simbolotto
    Nazionale
    41
    07
    11
    17
    22
Indietro
Alto