VB6 字符串和16进制互转换

最新推荐文章于 2025-07-09 15:04:38 发布

ogoder

最新推荐文章于 2025-07-09 15:04:38 发布

阅读量1.1w

点赞数 6

CC 4.0 BY-SA版权

分类专栏： VB

本文链接：https://blog.youkuaiyun.com/ogoder/article/details/83869778

VB 专栏收录该内容

1 篇文章

订阅专栏

本文分享了两个实用的VB函数，用于实现字符串与16进制的互相转换，特别适用于中文编码的处理，使中文写入IC卡变得更加便捷。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

自己写的两个函数，用于字符串和16进制互转换的，支持中文转换，中文编码写入IC卡非常方便

Public Function StrToHex(ByVal strS As String) As String
'将字符串转换为16进制
    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
    StrToHex = StrToHex
End Function

Public Function HexToStr(str As String) As String
'将16进制转换为字符串
    Dim rst() As Byte
    Dim i As Long, j As Long, strlong As Long
    strlong = Len(str)
    ReDim rst(strlong \ 2)
    For i = 0 To strlong - 1 Step 2
        Dim tmp As Long
        rst(i / 2) = Val("&H" & Mid(str, i + 1, 2))
    Next
    HexToStr = StrConv(rst, vbUnicode)
End Function