Messages

Devo impostare per tutti i docenti solo tre ore di lezione per il lunedì e il venerdì.
Che vincoli posso impostare?

Questa macro prevede il controllo e si ferma sul 100 docente

'---   docenti
ndoc = 0
t_a = aa$: t_i = "<Teachers_List>":   t_f = "</Teachers_List>"
trovadati
perdoc = t_res
trovadoc = InStr(perdoc, "<Name>")
indd = 0
     Do While trovadoc > 0
        t_a = perdoc: t_i = "<Name>": t_f = "</Name>"
        trovadati
        indd = indd + 1
        docenti(indd) = t_res
'Stop
perdoc = t_a
     trovadoc = InStr(perdoc, "<Name>")
If indd > 99 Then Stop
Loop
ndoc = indd


HO MODIFICATO QUI :

Sub legge()
'MODIFICATO 100
Dim docenti(120)
Dim attivita(1500, 6) As String
'  0=docente   1=classe  2=materia  3=aula  4 giorno  5 ora 6 durata
Dim miste(200, 10, 7) As String
'  0=docente   1=classe  2=materia  3=aula  4 giorno 5 ora  6 durata  7=INDICE IN attivita
Dim trdoc(20)
Dim trcla(20)
Dim giorni(15)
Dim ore(12)
Dim classi(200)
'MODIFICATO 100
'Dim cattedre(100, 20, 1)
'Dim cattedreh(100, 20) As Integer
Dim cattedre(120, 20, 1)
Dim cattedreh(120, 20) As Integer

Ora gestisce sino a 120

Grazie

E' presente il limite di 99 docenti nel file di conversione?