ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 支持中文的把普通字符串转成二进制字符串的函数(转)

支持中文的把普通字符串转成二进制字符串的函数(转)

原创 Linux操作系统 作者:jcszjswkzhou 时间:2019-04-08 21:54:06 0 删除 编辑
支持中文的把普通字符串转成二进制字符串的函数

'把普通字符串转成二进制字符串
Function str2bin(varstr)
 str2bin=""
 For i=1 To Len(varstr)
   varchar=mid(varstr,i,1)
   varasc = Asc(varchar)
   If varasc<0 Then
     varasc = varasc + 65535
   End If
   If varasc>255 Then
     varlow = Left(Hex(Asc(varchar)),2)
     varhigh = right(Hex(Asc(varchar)),2)
     str2bin = str2bin & chrB("&H" & varlow) & chrB("&H" &
varhigh)
   Else
     str2bin = str2bin & chrB(Asc(varchar))
   End If
Next
End Function 


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10294527/viewspace-124752/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2007-08-29

  • 博文量
    3488
  • 访问量
    2603889