for i = 0 to UBound(myArray)
I detta läge så har du inte skapat myArray.
Borde inte villkoret vara att du skall läsa tills dess att du kommer till slutet på filen?
Frågan#1
Halloi!
Jag skulle vilja ha en slinga som returnerar ett obestämt antal varor (det kan vara från 1 till n). Slinga innehåller i sin tur Array som ska splitra raden varor i olika delar.
Jag försökte lösa det på det här sättet:
for i = 0 to UBound(myArray)
varor = MinFil.ReadLine
myArray = Split(varor,",")
produkt = myArray(0)
antal = myArray(1)
levdatum = myArray(2)
next
Får följande felmeddelande:
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'UBound'
Kan nån tipsa var skon klämmer.
Katja