VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板

　　　　　サンプル投稿用掲示板　　 VB2005 ～用トップページ　　 VB6.0 用トップページ

バイト型配列への変換方法(VB6.0) ( No.0 ) 　[親スレッドへ]

日時： 2009/12/27 15:32
名前： 花ちゃん: ***********************************************************************************
* カテゴリー：[応用コード][文字列処理][]   　　                                   *
* キーワード：構造体,型変換,ユーザ定義型,Byte型,,                                 *
***********************************************************************************

始めまして、はらだと申します。（同じ悩みを抱えてました。）
こういう方法があります。ご参考まで。
＃ただし、LSetのVBリファレンスには
＃「予期せぬ結果があるかも…」と記述されていました。

Type Rec1
     B1(3) As Byte '"1234"
     B2(5) As Byte '"あいう"
     B3(3) As Byte '"えお"
End Type
Type RecB
     B0(255) As Byte
End Type

Declare Sub MoveMem Lib "kernel32" Alias "RtlMoveMemory" _
(pDest As Any, pSource As Any, ByVal ByteLen As Long)

Function LeftSet()
    Dim LC_C   As String
    Dim LC_X() As Byte
    Dim LC_1   As Rec1
    Dim LC_1L  As Long
    Dim LC_B   As RecB
    Dim LC_2() As Byte

    ReDim LC_X(LenB(StrConv(LC_C, vbFromUnicode)))
    LC_1L = LenB(LC_1)
    ReDim LC_2(LC_1L)
    Erase LC_2()

    '文字列→ユーザー定義型
    LC_C = "1234あいうえお"
    LC_X = StrConv(LC_C, vbFromUnicode)
    MoveMem LC_1, LC_X(0), LenB(StrConv(LC_C, vbFromUnicode))
    Debug.Print StrConv(LC_1.B1, vbUnicode)
    Debug.Print StrConv(LC_1.B2, vbUnicode)
    Debug.Print StrConv(LC_1.B3, vbUnicode)
    'ユーザー定義型→バイト型配列
    LSet LC_B = LC_1
    LC_2 = LeftB(LC_B.B0, LC_1L)
    Debug.Print StrConv(LC_2, vbUnicode)
End Function