'二进制数组转字符型
'函数:ByteArrToStr
'参数:inByte 传入的BYTE数组,strlen 数组长度.
'返回值:字符串.
'例子:
Public Function ByteArrToStr(inByte() As Byte, Optional ByVal strlen As Long = 0) As String
Dim I As Long
Dim RevStr As String
If strlen = 0 Then strlen = UBound(inByte)
For I = 0 To strlen
If inByte(I) = 0 Then
Exit For
End If
RevStr = RevStr & Chr(inByte(I))
Next
ByteArrToStr = RevStr
End Function