笨办法:
Public Function Asc2Str(ByVal aa() As Byte) As String
Dim i, c As Long
For i = 0 To Ubound(aa)
c = aa(i)
If c > 127 Then
i = i + 1
c = c * 256 + a(i)
End If
Asc2Str = Asc2Str & Chr(c)
Next i
End Function
笨办法:
Public Function Asc2Str(ByVal aa() As Byte) As String
Dim i, c As Long
For i = 0 To Ubound(aa)
c = aa(i)
If c > 127 Then
i = i + 1
c = c * 256 + a(i)
End If
Asc2Str = Asc2Str & Chr(c)
Next i
End Function