字符串与二进制数组（二进制流）如何互相转换？

时　间:2007-05-12 00:00:00
作　者:UMVsoft整理   ID：8  城市：上海  QQ：2851379730
摘　要:实现字符串与二进制数组（二进制流）的互相转换功能。

正　文:

'===========================================================
' 过程及函数名：  RunTest1
' 版本号      ：  --
' 说明        ：  演示，如何将字符串转换为字节数组，再转换回来
' 引用        ：  --
' 输入参数    ：  --
' 输出值      ：  --
' 返回值      ：  --
' 调用演示    ：  --
' 最后修改日期：  2007-1-12 12:22:00
' 示例地址    ：  http://access911.net/?kbid;72FABE1E15DCE8F3
' 作者        ：  cg1
' 网站        ：  http://access911.net
' 电子邮件    ：  access911@gmail.com
' 版权        ：  作者保留一切权力，
'                 请在公布本代码时将本段说明一起公布，谢谢！
'===========================================================
Function RunTest1()
'请将鼠标停留在这里，并按 F5 键运行演示代码
    
    Dim arrB() As Byte
    Dim i As Long
    Dim strWords As String
    
    arrB = "欢迎浏览 http://access911.net"
    Debug.Print UBound(arrB)
    '显示 "49"  （0-49共50个字节）
    
    Debug.Print ChrB(arrB(4)) & ChrB(arrB(5))
    '显示 "浏"
    
    For i = 0 To UBound(arrB) Step 2
        strWords = strWords & ChrB(arrB(i)) & ChrB(arrB(i + 1))
    Next
    
    Debug.Print strWords
    '显示 "欢迎浏览 http://access911.net"
    
End Function