如何把汉字变为双字节16进制

Question

如题

Answer 1

Hex(ascw("中"))           '4E2D   Unicode   
  Chrw(val("&h4E2D"))   '中   
  '-----------------------------------------   
  Dim   TmpCode()   As   Byte   
  ReDim   TmpCode(0   To   1)   
  TmpCode   =   StrConv("中",   vbFromUnicode)   
  MsgBox   ("Hex   of   ""中"":"   &   Hex(TmpCode(0))   &   Hex(TmpCode(1)))   
    
  Dim   TmpCode()   As   Byte   
  ReDim   TmpCode(0   To   1)   
  TmpCode(0)   =   &HA4&   
  TmpCode(1)   =   &HA4&   
  MsgBox   (StrConv(TmpCode,   vbUnicode))   

Answer 2

这是将LZ的问贴标题转换为字节流并以16进制字符形式显示:
Private Sub Command1_Click()
    Dim strSj As String
    Dim bytSj() As Byte
    Dim i As Long
    strSj = "如何把汉字变为双字节16进制"
    bytSj = StrConv(strSj, vbFromUnicode)
    Print UBound(bytSj)
    For i = 0 To UBound(bytSj)
        Print Right("0" & Hex(bytSj(i)), 2)
    Next
End Sub

Answer 3

深表同情ing........Jhone99 怎么老是遇到这样的事啊？仍然不知道楼主究竟要达到什么目的。

Answer 4

KAO!
你去查一下楼主是啥来路！
看跟我扯得上丁点儿关系不！