コード: 全て選択
Dim H As String
H=Ex"\r\0\n\0\r\n\0 \0\t\0\0"
MsgBox 0, Str$(H[2]) ' H[2]は関係のない値が出る
しかしEx表記の文字列をConst定義したものをBytePtr型に当ててやった場合はうまくいきません。
コード: 全て選択
Dim H As BytePtr
H=Ex"\r\0\n\0\r\n\0 \0\t\0\0"
MsgBox 0, Str$(Len(H))+","+Str$(H[2]) ' H[2]は「10」になる
Const SPACECHAR = Ex"\r\0\n\0\r\n\0 \0\t\0\0"
Dim I As BytePtr
I=SPACECHAR
MsgBox 0, Str$(Len(I))+","+Str$(I[2]) ' I[2]はは関係のない値が出る