Array
26.06.2007 11:39:00
eres
möchte ein 1 dimensionales Array (arrayD1) in ein 2 dimensionales (arrayD2) überführen, wobei das eindimensionale durch Einlesen einer Textdatei gefüllt wird:
Sub willi()
Open Input_File For Binary As #1
strhelp = Space(LOF(1))
' die komplette Textdatei in einen String einlesen.
Get #1, , strhelp
' Nun diesen String splitten, also die einzelnen Zeilen herausarbeiten,
arrayD1 = Split(strhelp, vbLf)
Close #1
Dim arrayD2(0 To UBound(arrayD1, 0), 0 To 0)
For i = 0 to UBound(arrayD1, 0)
arrayD2(i, 0) = arrayD1(i)
Next i
End Sub
Hier bekomme ich beim Kompilieren die Fehlermeldung "Konstanter Ausdruck erforderlich", wobei hier innerhalb der Dim-Zeile für das 2-dimensionale array "UBound(arrayD1, 0)" markiert ist.
Ersetze ich diese Zeile durch Dim arrayD2()
erhalte ich innerhalb der For-Next - Schleife die Fehlermeldung "Index ausserhalb des gültigen Bereichs".
Es wäre toll, wenn mir hier jemand helfen könnte.
Vielen Dank im voraus.
Gruss
erwin