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 
|