String nach Array umwandeln (?)

[Che Guevara]

Hallo,

hab hier schnell was zusammengetippt, sollte aber funktionieren:

Dim Lenght As Word
Dim Receive_ar(130) As Byte
Dim Rxd_buffer As String * 130
Dim Tmp As Word


'...
'...

Lenght = Len(rxd_buffer)
For Tmp = 1 To Lenght
   Receive_ar(tmp) = Mid(rxd_buffer , Tmp , 1)
Next Tmp

Auch wenn diese Variante nicht die schnellste ist, funktionieren tuts
Oder aber evtl. mittels Overlay:

Dim Rxd_buffer As String * 130
Dim Receive_ar(130) As Byte At Rxd_buffer Overlay

Dabei stehen dann die Werte automatisch im Array, da es streng genommen gar kein Array gibt, sondern du die Bytes, aus denen der String besteht, nur indirekt darüber ansprichst. Hat aber den Nachteil, dass wenn du das Array veränderst, du auch gleichzeitig den String veränderst. Außerdem musst du dann selbst herausfinden, wann der String zu Ende ist, sofern er nicht automatisch sowieso immer 130 Zeichen lang ist.... Diese Variante ist deutlich schneller, da sie eig gar keine Rechenzeit benötigt

Gruß
Chris