ab.com コミュニティ

Dim ab As BytePtr
ab = Ex"1\02"

もっと短くmemcpy(ab, Ex"1\02\0", 4)やmemcpy(ab, Ex"1\02", 4)とも書けます。
Ex付きの文字列では\0がChr$(0)相当に扱われます。

さらに，これ以降abの中身を書き換えることが無ければ，abをBytePtr型にして，こうにも書けます。
[code]Dim ab As BytePtr
ab = Ex"1\02"[/code]

Dim ab[3] As Byte
Dim str As String
str=Chr$(&H31)+Chr$(0)+Chr$(&H32)+Chr$(0)
memcpy(ab As BytePtr,StrPtr(str),4)

[quote]> Dim ab As String
> ab = Chr$(&H31)+ Chr$(0)+Chr$(&H32)+ Chr$(0)
>
> 上記と同じ事を、Byte配列で行いたいのですが、
>
> Dim ab[3] As Byte
> lstrcpy(ab As BytePtr,Chr$(&H31)+ Chr$(0)+Chr$(&H32)+ Chr$(0))
>
> としても、NULLが入りません。
> どうすれば良いのでしょう？[/quote]


さてさて、どうしてlstrcpyを使用したときにうまくいかないと思いますか？

この問いの答えは簡単で、lstrcpy関数はコピーしようとする文字列にNULL文字が含まれている場合、その場でコピーを止めてしまうんですね。

これをどうやって回避するかといいますとコピーしようとする文字の長さを予め指定してコピーしてやればよいということになります。

とはいっても、lstrcpy関数には文字の長さを指定することが出来ませんのでメモリ関連の操作にしようするmemcpy関数を変わりに使ってやります。

[code]Dim ab[3] As Byte
Dim str As String
str=Chr$(&H31)+Chr$(0)+Chr$(&H32)+Chr$(0)
memcpy(ab As BytePtr,StrPtr(str),4)[/code]

Dim ab As String
ab = Chr$(&H31)+ Chr$(0)+Chr$(&H32)+ Chr$(0)

上記と同じ事を、Byte配列で行いたいのですが、

Dim ab[3] As Byte
lstrcpy(ab As BytePtr,Chr$(&H31)+ Chr$(0)+Chr$(&H32)+ Chr$(0))

としても、NULLが入りません。
どうすれば良いのでしょう？