VB Byte数组转换为字符串(兼容中英文),VB Byte数组转换为字符串(中英文),VB Byte数组转换为字符串(兼容
中文),VB Byte数组转换为字符串(兼容英文),VB Byte转换为字符串,VB Byte转换字符串,VB Byte转字符串,VB Byte字符串,VB Byte,VB 两个Byte二进制值 合并转换为
中文,VB 两个Byte二进制值 转换为
中文,VB 两个Byte二进制值 合并为
中文,VB 两个二进制值 合并转换为
中文,VB 两个Byte值 合并转换为
中文,VB 两个二进制值合并为
中文,VB 两个Byte转换为
中文,VB Byte转换为
中文,VB Byte
中文。
VB Byte数组转换为字符串(兼容中英文): Public Function BytetoStr(B() As Byte) As String 'Byte数组转字符串 Dim I,Tmp As String For Each I In B '枚举整个数组赋值给I If I > 127 Then '如果为汉字编码.(大于127为汉字,占两个字节) If Tmp <> "" Then '如果临时变量不为空(为空为第一字节) BytetoStr = BytetoStr & Chr(Tmp * 256 + I) '合并两个字节,转换为汉字.累加数据 Tmp = "" '清空临时变量 Else Tmp = I '储存临时变量 End If Else BytetoStr = BytetoStr & Chr(I) '转换为汉字,累加数据 End If Next End Function VB 两个Byte二进制值 合并转换为中文:Chr(Text1.Text * 256 + Text2.Text) |