类型转换,很急,只有80分了,全给————————在线等,急
khpcg 2005-06-01 10:53:58 VB代码是这样的:
Private Function StrToByte(ByVal strIn As String, ByRef bOut() As Byte) As Byte '将字符串分解成单个字符
Dim i As Integer
Dim dwInLen As Long
dwInLen = Len(Trim(strIn)) / 2注释Len是求长度
For i = 0 To dwInLen - 1
bOut(i) = "&H" + Mid(strIn, 2 * i + 1, 2)注释Mid是取其中的字符从2*i开始,取2个
Next i
End Function
Private Function ByteToStr(ByRef bIn() As Byte, ByVal dwInLen As Long, ByRef strOut As String) As Byte '将单个字符合并成字符串
Dim i As Integer
strOut = ""
For i = 0 To dwInLen - 1
If (bIn(i) <= 10) Then
strOut = strOut & "0" & Hex(bIn(i))
Else
If (Len(Trim(Hex(bIn(i)))) < 2) Then
strOut = strOut & "0" & Hex(bIn(i))注释&是c#里的+,即字符连接
Else
strOut = strOut & Hex(bIn(i))注释Hex是转化成16进制的意思
End If
End If
Next i
End Function
函数一功能是将string转换成byte[]型,32个字符转化成256个byte.
函数二功能是将256个byte转化成string,其中对二进制有判断。
希望大家多帮助,up有分,很感谢!