salvo50
Advanced Member >PLATINUM PLUS<
Ho trovato nell'help di spaziometria degli script, nella cartella varie
questo script
Sub Main
Call ScriviEstrazione(8000,True,,True)
End Sub
l'ho lanciato e mi è apparso questo, i puntini li ho messo io altrimenti accavalla i numeri
+--------------------------+
| martedì, dic 16 2008....|
+---------008000------ --+
Bari.........62 48 18 43 44
Cagliari....71 07 60 43 30
Firenze.....48 35 76 60 71
Genova....38 32 14 06 82
Milano......90 84 18 62 76
Napoli......20 86 23 80 81
Palermo....85 41 08 38 23
Roma.......17 89 23 08 02
Torino......80 84 48 44 13
Venezia....69 41 74 24 72
Nazionale.39 08 56 44 53
Allora ho pensato che se gli mettevo un <for-next> con le istruzioni di inizio e fine, quando si esegue lo script dovrebbero apparire tutte le estrazioni in archivio, e l'ho modificato così:
Sub Main
Dim Inizio,fine
Inizio = EstrazioneIni
fine = EstrazioneFin
For k = Inizio To fine
Call ScriviEstrazione(k,True,,True)
Next
End Sub
E funziona, la prima è questa
+--------------------------+
| domenica, set 17 1871..|
+---------000037---------+
Bari...... ..00 00 00 00 00
Cagliari....00 00 00 00 00
Firenze....30 73 05 27 74
Genova....00 00 00 00 00
Milano......82 33 73 12 62
Napoli......74 10 22 54 73
Palermo....88 35 14 01 75
Roma.......26 69 46 60 31
Torino......90 68 25 30 10
Venezia....22 40 74 39 77
Nazionale.00 00 00 00 00
e questa è l'ultima
+--------------------------+
| giovedì, gen 8 2015......|
+---------008949---------+
Bari...........44 65 05 70 52
Cagliari......05 18 12 50 72
Firenze......40 29 77 24 28
Genova......61 86 11 80 53
Milano.......43 76 54 04 34
Napoli........63 18 88 81 05
Palermo.....86 70 51 17 66
Roma........02 34 10 71 74
Torino.......16 18 17 86 78
Venezia.....17 20 52 30 85
Nazionale...08 05 27 64 61
forte vero!
questo script
Sub Main
Call ScriviEstrazione(8000,True,,True)
End Sub
l'ho lanciato e mi è apparso questo, i puntini li ho messo io altrimenti accavalla i numeri
+--------------------------+
| martedì, dic 16 2008....|
+---------008000------ --+
Bari.........62 48 18 43 44
Cagliari....71 07 60 43 30
Firenze.....48 35 76 60 71
Genova....38 32 14 06 82
Milano......90 84 18 62 76
Napoli......20 86 23 80 81
Palermo....85 41 08 38 23
Roma.......17 89 23 08 02
Torino......80 84 48 44 13
Venezia....69 41 74 24 72
Nazionale.39 08 56 44 53
Allora ho pensato che se gli mettevo un <for-next> con le istruzioni di inizio e fine, quando si esegue lo script dovrebbero apparire tutte le estrazioni in archivio, e l'ho modificato così:
Sub Main
Dim Inizio,fine
Inizio = EstrazioneIni
fine = EstrazioneFin
For k = Inizio To fine
Call ScriviEstrazione(k,True,,True)
Next
End Sub
E funziona, la prima è questa
+--------------------------+
| domenica, set 17 1871..|
+---------000037---------+
Bari...... ..00 00 00 00 00
Cagliari....00 00 00 00 00
Firenze....30 73 05 27 74
Genova....00 00 00 00 00
Milano......82 33 73 12 62
Napoli......74 10 22 54 73
Palermo....88 35 14 01 75
Roma.......26 69 46 60 31
Torino......90 68 25 30 10
Venezia....22 40 74 39 77
Nazionale.00 00 00 00 00
e questa è l'ultima
+--------------------------+
| giovedì, gen 8 2015......|
+---------008949---------+
Bari...........44 65 05 70 52
Cagliari......05 18 12 50 72
Firenze......40 29 77 24 28
Genova......61 86 11 80 53
Milano.......43 76 54 04 34
Napoli........63 18 88 81 05
Palermo.....86 70 51 17 66
Roma........02 34 10 71 74
Torino.......16 18 17 86 78
Venezia.....17 20 52 30 85
Nazionale...08 05 27 64 61
forte vero!
Ultima modifica:
