QTP的那些事--二进制和字符串的相互转换

ascw表示对于unicode字符转化二进制的处理 '字符串转成二进制
Public Function StringToBinary(ByVal VarString As String) As Variant
Dim strBin As Variant
Dim varchar As String
Dim varasc As Long
Dim varlow, varhigh
Dim i As Long
strBin = " "
For i = 1 To Len(VarString)
varchar = Mid(VarString, 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)
strBin = strBin & ChrB( "&H " & varlow) & ChrB( "&H " & varhigh)
Else
strBin = strBin & ChrB(AscB(varchar))
End If
Next
StringToBinary = strBin
End Function
'========================================================================
'二进制转换为字符串
Public Function BinaryToString(ByVal BinaryStr As Variant) As String
Dim lnglen As Long
Dim tmpBin As Variant
Dim strC As String
Dim skipflag As Long
Dim i As Long
skipflag = 0
strC = " "
If Not IsNull(BinaryStr) Then
lnglen = LenB(BinaryStr)
For i = 1 To lnglen
If skipflag = 0 Then
tmpBin = MidB(BinaryStr, i, 1)
If AscB(tmpBin) > 127 Then
strC = strC & Chr(AscW(MidB(BinaryStr, i + 1, 1) & tmpBin))
skipflag = 1
Else
strC = strC & Chr(AscB(tmpBin))
End If
Else
skipflag = 0
End If
Next
End If
BinaryToString = strC
End Function

*************************************************************************************************

方法二：

Function getByteString(StringStr)
Dim i,char
For i=1 to Len(StringStr)
char=Mid(StringStr,i,1)
getByteString=getByteString&chrB(AscB(char))
Next
End Function
Function getString(StringBin)
Dim i
getString= " "
For i=1 to LenB(StringBin)
getString=getString&chr(AscB(MidB(StringBin,i,1)))
Next
End Function **************************************************************************************************** 方法三：测试可用 Public Function StringToBinary(ByVal VarString As String) As Variant
Dim b() As Byte, strBin As String, i As Integer
b = StrConv(VarString, vbUnicode)
For i = 0 To UBound(b)
strBin = strBin & ChrB(b(i))
Next
StringToBinary = strBin
End Function
Public Function BinaryToString(ByVal BinaryStr As Variant) As String
Dim b() As Byte, i As Integer
ReDim b(1 To LenB(BinaryStr))
For i = 1 To LenB(BinaryStr)
b(i) = AscB(MidB(BinaryStr, i, 1))
Next
BinaryToString = StrConv(b, vbFromUnicode)
End Function