【VB】VB Byte数组转换为字符串(兼容中英文)

admin 2021年4月3日18:59:48评论46 views字数 1320阅读4分24秒阅读模式

    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)

文章来源于lcx.cc:【VB】VB Byte数组转换为字符串(兼容中英文)

相关推荐: 天天团购系统0DAY - PHP团购程序漏洞

    作者:心灵     也是那句,最后能拿到WEBSHELL都统称0DAY。o(∩_∩)o 哈哈。     经典对白看代码,首先是本地包含。 ajax.php: require_once MOD_PATH.$this->SetEvent($confi…

  • 左青龙
  • 微信扫一扫
  • weinxin
  • 右白虎
  • 微信扫一扫
  • weinxin
admin
  • 本文由 发表于 2021年4月3日18:59:48
  • 转载请保留本文链接(CN-SEC中文网:感谢原作者辛苦付出):
                   【VB】VB Byte数组转换为字符串(兼容中英文)http://cn-sec.com/archives/319508.html

发表评论

匿名网友 填写信息