AIUTO SCRIPT

[trivellatomariotretre33]

AVREI BISOGNO DI UNO SCRIPT CHE MI CREI QUESTE ESTRAZIONI COME ALLEGATO FILE DAL 07\01\1950 A OGGI GRAZIE ATUTTI

 

[Roby]

Così dovrebbero essere uguali
Ciao

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

 

[trivellatomariotretre33]

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

 

[trivellatomariotretre33]

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

 

[Roby]

Ecco qui... Ciao

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

 

[trivellatomariotretre33]

Blackmore scusa come il file (cosi) devono essere le estrazioni grazie e scusami ancora
come vedi non me la cavo bene a spiegarmi

 

[Roby]

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
Così ?

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

 

[Roby]

O così...

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

 

[trivellatomariotretre33]

SCUSA GRAZIE SEI GRANDE VA BENE
UNA STRETTA DI MANO CHILOMETRICA GRAZIE Blackmore

 

[Roby]

Hehehe OK... Ciao