R
Roby
Guest
Salve a tutti
avrei un problema con questo script della grande Rosanna se qualcuno ha tempo e voglia di risolverlo, sempre se possibile
ringrazio anticipatamente.
Sub main()
'Rosanna
'rif. 0901_41b SISTEMA importato automaticamente
Dim fso, tr 'servono per FileSystemObject
Dim n(200),sis(200,5),vett(5),num(90),ru(1),poste(2),nu(1),numeri(90,2)
'---------------------------------------------------------------------------
'ATTENZIONE dimensionare:
'- n al numero di Serie (cioè le righe del SISTEMA)
'- vett alla lunghezza delle Serie
'- sis() al numero serie come righe e alla lunghezza delle serie come colonne)
'num() al numero di numeri da sistemare nel SISTEMA
'-----------------------------------------------------------------------------
'Il sistema elaborato col generatore va salvato in formato txt in
'c:\programmi\L8+61\sviluppo_sistema.txt
'ATTENZIONE AL NOME FILE = sviluppo_sistema.txt
'------------------------------------IMPORTANTE IMPOSTARE I DATI DEL SISTEMA!!!
serie=200 'numero delle serie (righe)
lun=5 'lunghezza delle combinazioni da giocare
nn=90 'numero di numeri
'-------------------------------------------------------------------------------
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set tr = fspenTextFile("c:\prova2.txt", ForReading)
For i= 1 To serie
a=tr.readline 'leggo ciascuna riga del file
n(i)=Chr(34)&chr(46)&a&chr(46)&chr(34)
m= split(n(i),".") 'effettuo lo split di ogni stringa
For x= 1 To lun
sis(i,x)=CInt(m(x)) 'carico i vari valori sulla matrice sis
Next
Next
tr.close
'-----------------------------------------------OUTPUT DELLA MATRICE DEL SISTEMA
ColoreTesto 2
'Scrivi " SISTEMA DI PROVA",1
ScriviMatrice sis
ColoreTesto 0
'----------------------------------------------------ORA IL LISTATO
End Sub
IL listato legge un file txt prcedentemente salvato in una directory (in qesto caso "c:\prova2.txt" )
questo è l'output
69 16 12 33 61
58 89 37 56 64
73 38 5 54 25
75 82 27 1 29
60 42 87 39 25
21 66 89 20 80
5 46 11 27 53
79 16 14 64 65
29 57 41 28 73
83 40 32 48 82
81 57 68 73 49
72 33 11 12 44
41 47 37 43 63
86 38 52 76 57
9 46 70 7 90
85 56 71 33 26
54 82 22 11 45
18 46 48 67 34
12 41 24 10 8
6 4 35 84 53
37 2 74 3 12
19 88 84 34 31
41 53 37 8 66
22 11 6 7 56
26 81 7 35 12
7 67 85 39 5
56 21 80 55 1
64 9 11 65 10
30 2 71 78 83
40 5 35 58 67
22 60 41 12 11
2 52 84 31 26
28 64 61 90 6
9 74 85 42 47
60 18 61 7 38
8 42 54 55 7
69 52 87 3 88
64 42 7 45 68
40 5 58 19 86
34 40 33 15 27
89 24 26 16 76
90 9 84 30 46
66 44 13 48 14
77 85 47 60 51
43 2 47 68 30
20 43 5 37 47
51 67 77 65 83
78 25 16 11 81
11 56 64 65 25
71 2 30 21 28
5 11 66 23 35
87 20 23 2 37
81 7 37 45 32
21 28 87 5 31
90 70 43 37 75
21 87 30 17 4
37 31 84 19 6
72 62 80 49 28
8 7 85 34 9
15 60 12 33 42
7 47 80 2 32
61 56 81 82 9
73 82 71 3 56
12 72 61 64 18
62 35 23 30 19
60 76 20 46 39
avrei un problema con questo script della grande Rosanna se qualcuno ha tempo e voglia di risolverlo, sempre se possibile
ringrazio anticipatamente.
Sub main()
'Rosanna
'rif. 0901_41b SISTEMA importato automaticamente
Dim fso, tr 'servono per FileSystemObject
Dim n(200),sis(200,5),vett(5),num(90),ru(1),poste(2),nu(1),numeri(90,2)
'---------------------------------------------------------------------------
'ATTENZIONE dimensionare:
'- n al numero di Serie (cioè le righe del SISTEMA)
'- vett alla lunghezza delle Serie
'- sis() al numero serie come righe e alla lunghezza delle serie come colonne)
'num() al numero di numeri da sistemare nel SISTEMA
'-----------------------------------------------------------------------------
'Il sistema elaborato col generatore va salvato in formato txt in
'c:\programmi\L8+61\sviluppo_sistema.txt
'ATTENZIONE AL NOME FILE = sviluppo_sistema.txt
'------------------------------------IMPORTANTE IMPOSTARE I DATI DEL SISTEMA!!!
serie=200 'numero delle serie (righe)
lun=5 'lunghezza delle combinazioni da giocare
nn=90 'numero di numeri
'-------------------------------------------------------------------------------
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set tr = fspenTextFile("c:\prova2.txt", ForReading)
For i= 1 To serie
a=tr.readline 'leggo ciascuna riga del file
n(i)=Chr(34)&chr(46)&a&chr(46)&chr(34)
m= split(n(i),".") 'effettuo lo split di ogni stringa
For x= 1 To lun
sis(i,x)=CInt(m(x)) 'carico i vari valori sulla matrice sis
Next
Next
tr.close
'-----------------------------------------------OUTPUT DELLA MATRICE DEL SISTEMA
ColoreTesto 2
'Scrivi " SISTEMA DI PROVA",1
ScriviMatrice sis
ColoreTesto 0
'----------------------------------------------------ORA IL LISTATO
End Sub
IL listato legge un file txt prcedentemente salvato in una directory (in qesto caso "c:\prova2.txt" )
questo è l'output
69 16 12 33 61
58 89 37 56 64
73 38 5 54 25
75 82 27 1 29
60 42 87 39 25
21 66 89 20 80
5 46 11 27 53
79 16 14 64 65
29 57 41 28 73
83 40 32 48 82
81 57 68 73 49
72 33 11 12 44
41 47 37 43 63
86 38 52 76 57
9 46 70 7 90
85 56 71 33 26
54 82 22 11 45
18 46 48 67 34
12 41 24 10 8
6 4 35 84 53
37 2 74 3 12
19 88 84 34 31
41 53 37 8 66
22 11 6 7 56
26 81 7 35 12
7 67 85 39 5
56 21 80 55 1
64 9 11 65 10
30 2 71 78 83
40 5 35 58 67
22 60 41 12 11
2 52 84 31 26
28 64 61 90 6
9 74 85 42 47
60 18 61 7 38
8 42 54 55 7
69 52 87 3 88
64 42 7 45 68
40 5 58 19 86
34 40 33 15 27
89 24 26 16 76
90 9 84 30 46
66 44 13 48 14
77 85 47 60 51
43 2 47 68 30
20 43 5 37 47
51 67 77 65 83
78 25 16 11 81
11 56 64 65 25
71 2 30 21 28
5 11 66 23 35
87 20 23 2 37
81 7 37 45 32
21 28 87 5 31
90 70 43 37 75
21 87 30 17 4
37 31 84 19 6
72 62 80 49 28
8 7 85 34 9
15 60 12 33 42
7 47 80 2 32
61 56 81 82 9
73 82 71 3 56
12 72 61 64 18
62 35 23 30 19
60 76 20 46 39