ich habe heute mit einem 2-dimensionalen Array gearbeitet...zumindest hatte ich es vor
jedoch gab es ein Problem beim Redimensionieren. Das ist der Teil vom Programm:
In der Zeile "'redimensionieren des Arrays" gibt es beim 1. Einlesen(1,i) kein Problem, jedoch beim 2. Durchgang sagt er mir "Subscript out od range", aber woran liegt das????
jedoch gab es ein Problem beim Redimensionieren. Das ist der Teil vom Programm:
Visual Basic-Quellcode
- Open cd.FileName For Input As #fh1
- Do While (Not EOF(fh1))
- j = j + 1
- ReDim Preserve zeile(j)
- Input #fh1, zeile(j)
- Input #fh1, temp
- ReDim Preserve anz(j)
- Input #fh1, anz(j)
- For i = 1 To anz(j)
- ReDim Preserve kreis(j, i) 'redimensionieren des Arrays
- Input #fh1, kreis(j, i).f 'werte einlesen
- Input #fh1, kreis(j, i).xl
- Input #fh1, kreis(j, i).xc
- Input #fh1, kreis(j, i).z
- Next i
- Input #fh1, temp 'leerzeichen einlesen
- Input #fh1, temp
- Loop
- Close (fh1)
In der Zeile "'redimensionieren des Arrays" gibt es beim 1. Einlesen(1,i) kein Problem, jedoch beim 2. Durchgang sagt er mir "Subscript out od range", aber woran liegt das????