在 VB6 的中文 Unicode 中将 Double 转换为 Hex 并返回 Long

Question

我是 VB6 的新手，我想将参数从 Double 转换为 Hex，然后再转换回 Long 用于中文 Unicode。

这里的问题是对于从 1 到 127 的输入值，输出是相同的。对于超过 127 的值，输出为 63。参数长度为 4 个字节。这是我到目前为止使用的 2 个转换函数的 sn-p：

双转十六进制：

Public Function ConvDoubleToHexString(dVal As Double, ByVal nByteCount As Integer) As String
    m = 1
    sHex = Hex(dVal)

    nByteCountMerk = nByteCount
    If nByteCount < Len(sHex) / 2 Then nByteCount = Len(sHex) / 2
    If nByteCount < 1 Then nByteCount = 1

    sHex = String(nByteCount * 2 - Len(sHex), "0") & sHex 
    For n = 0 To nByteCount - 1
        sTmp = ChrW(Val("&H" & Mid(sHex, m, 2)))
        m = m + 2
        sRet = sRet & sTmp
    next n

    If Not bLH Then
        ConvDoubleToHexString = Right(sRet, nByteCountMerk)
    Else
        For n = Len(sRet) To 1 Step -1
            sLH = sLH & Mid(sRet, n, 1)
        Next n
        ConvDoubleToHexString = Left(sLH, nByteCountMerk)
    End If
End Function

HexToLong：

Public Function ConvHexStringToLong(sHex As String) As Long
    If sHex = "" Then
        ConvHexStringToLongAbs = knolong
        Exit Function
    End If

    For i = 1 To Len(sHex)
        If l >= 8388608 Then
            ConvHexStringToLongAbs = knolong
            Exit Function
        End If

        l = l * 256 * 2
        l = l + Asc(Mid(sHex, i, 1))
    Next

    ConvHexStringToLong = l
End Function

Answer 1

从 cmets 转移到回答，那里的对话太多了。

尝试改变这个：

sHex = String(nByteCount * 2 - Len(sHex), "0") & sHex 
For n = 0 To nByteCount - 1
    sTmp = ChrW(Val("&H" & Mid(sHex, m, 2)))
    m = m + 2
    sRet = sRet & sTmp
next n

到这里：

Dim charCode As Long
sHex = String(nByteCount * 2 - Len(sHex), "0") & sHex 
For n = 0 To nByteCount - 1
    sTmp = ChrW(Val("&H" & Mid(sHex, m, 2)))
    charCode = AscW(sTmp)
    m = m + 2
    sRet = sRet & sTmp
next n

然后，当您在调试器中单步执行每个循环的代码时，请确认 charCode 的值是您期望的值。

---

编辑：

我仍然不清楚您真正想要完成什么（断章取义的功能并不能说明问题）。但是，如果您尝试将 unicode 字符串一次编码为一个字符，然后将其编码为十六进制，那么您将需要使用 4 个字符的十六进制代码，因为它们每个都是 2 个字节。像这样的东西（未检查语法）：

Dim unicodeInput As String 
unicodeInput = "whatever"

Dim offset As Long
Dim charCode As Integer
Dim hexOutput As String

for offset = 1 to Len(unicodeInput)
   charCode = AscW(Mid$(unicodeInput, offset, 1))
   hexOutput = hexOutput & Right$("0000" & Hex$(charCode), 4)
next

然后您可以将其从十六进制移回原始字符串，执行如下操作：

Dim hexInput As String 
hexInput = "003900390039"

Dim offset As Long
Dim char As String
Dim output As String

for offset = 1 to Len(hexInput) Step 4
   char = ChrW(CLng("&H" & Mid$(hexInput, offset, 4)))
   output = output & char
next

我不确定这是否能解决您的问题，因为我看不出您为什么要将 unicode 字符序列编码和解码到十六进制缓冲区中。

您可能不希望十六进制值中有多余的零，但为了容纳 Unicode 字符，您将需要它们，因为它们可能大于一个字节。