Hallo,

was mache ich da eigentlich falsch? Dauern bekomme ich eine Fehlermeldung.

Ich will ein array anlegen in dem ich Daten schreibe.
Das array soll aber keine feste Größe haben, sondern von der Anzahl der Buchstaben in dem Text vorgegeben werden.

Also zum Beispiel:

Bei "Test" soll das das Array in der Form Dim B1(4) angelegt werden,

bei "Testaufgabe" soll das Array die Form Dim B1(11) angelegt werden.

Warum bringt mein Code dauernd Fehlermeldung?

Darf ich als größe der Variable keine Variable angeben?

Code:
$regfile = "m8def.dat"
$crystal = 8000000

$framesize = 256
$swstack = 256
$hwstack = 256

Dim Anzeige As String * 100
Dim Laenge As Byte

Anzeige = "AB"
Laenge = Len(anzeige)

Print "Textlaenge =" ; Laenge

Dim B1(laenge) As Byte
Dim L As Byte
Dim Zeichen As String * 1
Dim Zeichenasc As Byte


   Zeichen = Mid(anzeige , L , 1)

Print "Zeichen=" ; Zeichen

   Zeichenasc = Asc(zeichen)

Print "Ask Wert des Zeichens =" ; Zeichenasc

B1(1) = &B01101111


End
Vielen Dank im Voraus

Rici