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

[slavezero]

Hi,

danke für die schnelle Antwort. da werde ich mal probieren

sz

[slavezero]

Hi,

also, ich habe natürlich zuerst die Overlay Variante ausprobiert -> funktioniert.
Aber eins ist (für mich) seltsam:
wenn ich das overlay direkt über meinen bD_strg lege, so

Dim Rxdbuffer(130) As Byte At Bd_str Overlay

dann meldet BASCOM: Error : 90 Line : 155 Address out of bounds [RXDBUFFER] , in File : D:\Bascom_Projekte\ .... .bas
schreibe ich aber:

Dim Rxdbuffer(130) As Byte At Rxd_buffer Overlay

geht es.
MM habe ich alles richtig dim:

Dim Bh_str As String * 130
Dim Dk_str As String * 130
Dim Bd_str As String * 130
Dim Rxd_buffer As String * 130
'Dim Rxdbuffer(130) As Byte At Rxd_buffer Overlay
Dim Rxdbuffer(130) As Byte At Bd_str Overlay

eigenartig; na egal, Haupsache es funzt.
@ Chris: vielen Dank für Deine Hilfe

Uwe