16进制Ascii码转字符问题

slw8449 2010-10-11 04:38:06

我通过
Public Function ZFto16(hz$) As String
If hz = "" Then Exit Function
ZFto16 = Hex(Asc(hz))
End Function
方法，把“陈良书”三个汉字转为“b3c2c1bccae920202020202020202020”
但我怎么反过来把“b3c2c1bccae920202020202020202020”转为“陈良书”呢？
还有把数字转的也能转吗？
最好写个单独的方法。谢谢各位了！

...全文

81 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

贝隆 2010-10-11

打赏
举报

看看这个：http://download.csdn.net/source/1785343
一个一个字的转换，再组合起来

lxq19851204 2010-10-11

打赏
举报

Private Sub Form_Load()

Dim B() As Byte, i As Long, J As Long

Dim S1() As String, S As String, A As String



    S = "陈良书"

    B = S

    ReDim S1(UBound(B))

    For i = 0 To UBound(B)

        S1(i) = Right$("00" & Hex(B(i)), 2)

    Next i

    Debug.Print Join(S1, "")

    

    S = Join(S1, "")

    For i = 1 To Len(S) Step 2

        B(J) = "&H" & Mid$(S, i, 2)

        J = J + 1

    Next

    A = B

    Debug.Print A

End Sub