请问如何将一个字符串型的数据转换为字节型数据呢？

Question

请问如何将一个字符串型的数据转换为字节型数据呢？

Answer 1

Dim strData As String
Dim bytData() As BytestrData = "中国ABC"Redim bytData(LenB(StrConv(strData, vbFromUnicode)) - 1)
bytData = StrConv(strData, vbFromUnicode)

Answer 2

StrConv(strData,   vbFromUnicode)   正确

Answer 3

那请大家看看我这个怎么样？
Dim data(0) As Byte
    'data = StrConv("ef", vbFromUnicode)
    data(0) = "&H" & "ef"
    MSComm1.Settings = "19200,O,8,1"     'TB8=1
    MSComm1.InputLen = 0
    If Not MSComm1.PortOpen Then
        MSComm1.CommPort = 1
        MSComm1.PortOpen = True
    End If
       MSComm1.OutBufferCount = 0
    MSComm1.Output = data
    Print data  

Answer 4

Dim   data(0)   As   Byte 
 
        data(0)   =   &Hef 
        MSComm1.Settings   =   "19200,O,8,1"           'TB8=1 
        MSComm1.InputLen   =   0 
        If   Not   MSComm1.PortOpen   Then 
                MSComm1.CommPort   =   1 
                MSComm1.PortOpen   =   True 
        End   If 
        MSComm1.OutBufferCount   =   0 
        MSComm1.Output   =   data 
        Print   Hex(data) 

Answer 5

Private Sub Command1_Click()
    Dim data(2) As Byte
    Dim i As Integer
    data(0) = "&H" & "ef"
    data(1) = 45
    data(2) = 54
    MSComm1.Settings = "19200,O,8,1"               'TB8=1
    MSComm1.InputLen = 0
    If Not MSComm1.PortOpen Then
        MSComm1.CommPort = 1
        MSComm1.PortOpen = True
    End If
    MSComm1.OutBufferCount = 0
    MSComm1.Output = data
    For i = 0 To UBound(data)
    Print data(i)
    Next
End Sub