VB中字符串转换成16进制

Question

这是我在网上搜的，每行什么意思，在后面注释一下
Public Function StrToHex(ByVal strS As String) As String
    Dim abytS() As Byte
    Dim bytTemp As Byte
    Dim strTemp As String
    Dim lLocation As Long
    abytS = StrConv(strS, vbFromUnicode)
    For lLocation = 0 To UBound(abytS)
        bytTemp = abytS(lLocation)
        strTemp = Hex(bytTemp)
        strTemp = Right("00" & strTemp, 2)
        StrToHex = StrToHex & strTemp
    Next lLocation
End Function
如果想在vb text中输入的姓名，性别，职位转换成16进制怎么写？

Answer 1

这个函数的意思就是把字符串中的每一个字符转换为UniCode编码，并且把这些数字以16进制方式输出

Answer 2

StrConv 函数
返回按指定类型转换的 Variant (String)。
Hex 函数
返回代表十六进制数值的 String。
Right 函数
返回 Variant (String)，其中包含从字符串右边取出的指定数量的字符。Option Explicit
    Dim strS As StringPublic Function StrToHex(ByVal strS As String) As String
    Dim abytS() As Byte
    Dim bytTemp As Byte
    Dim strTemp As String
    Dim lLocation As Long
    abytS = StrConv(strS, vbFromUnicode)
    For lLocation = 0 To UBound(abytS)
        bytTemp = abytS(lLocation)
        strTemp = Hex(bytTemp)
        strTemp = Right("00" & strTemp, 2)
        StrToHex = StrToHex & strTemp
    Next lLocation
    Text2.Text = StrToHex
End FunctionPrivate Sub Command1_Click()
    strS = Text1.Text
    Call StrToHex(strS)
End Sub

Answer 3

这个是把Text1里的数据转成16进制的代码？

Answer 4

当然是,上机实践下就知道了.输出在Text2中.

Answer 5

abytS = StrConv(strS, vbFromUnicode) '将字符串转换成Unicode，并放入字节数组 abytSstrTemp = Hex(bytTemp) '将每一个字节都转换成两位长的十六进制字符strTemp = Right("00" & strTemp, 2) ’将不足两位长的字符加 0 补齐StrToHex = StrToHex & strTemp '组合成完整的字符串使用：
姓名 = StrToHex(姓名.text)
性别 = StrToHex(性别.text)
职位 = StrToHex(职位.text)

Answer 6

Public Function StrToHex(ByVal strS As String) As String
  Dim strTemp As String
  Dim strH As String
  Dim L As Long
  Dim i As Long
  strTemp = StrConv(strS, vbFromUnicode)
  L = LenB(strTemp)
  For i = 1 To L
    strH = strH & Right("0" & Hex(AscB(MidB(strTemp, i, 1))), 2)
  Next
  StrToHex = strH
End Function