Dim tep As String Dim temp As String Dim i As Integer Dim B As Integer Dim rems As String tep = rmsg i = Len(tep) If i < 1 Then Exit Function B = i / 2 If i = B * 2 Then tep = Left(tep, B * 2) Else B = B - 1 tep = Left(tep, B * 2) End If chg7 = "" rems = "" Dim trint As Integer Dim strtmp As String trint = 1 strtmp = ""
For i = 1 To B temp = "&H" & Mid(tep, (i - 1) * 2 + 1, 2) temp = D_To_B(Val(temp)) ''''转二进制 If Len(temp) < 8 Then temp = strpla(8 - Len(temp)) + temp End If strtmp = Mid(temp, trint + 1, 8 - trint) + rems rems = Mid(temp, 1, trint) chg7 = chg7 & ChrW(CInt(Val(B_To_D(strtmp)))) trint = trint + 1 If trint = 8 Then trint = 1 chg7 = chg7 & ChrW(CInt(Val(B_To_D(rems)))) rems = "" End If
Next i
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18