VB中的GBK编码

Option Explicit
Function FormatNameToMac(val As String) As String
    Dim i   As Integer
    Dim str As String
    str = ""

    For i = 1 To Len(val)

        If CLng("&h" & Hex(Asc(Mid(val, i, 1)))) < 127 Then
            str = str & NumToStrHex(Asc(Mid(val, i, 1)), 1)
        Else
            str = str & NumToStrHex(Asc(Mid(val, i, 1)), 2)
        End If
    Next
    For i = 1 To Len(str) Step 2
        FormatNameToMac = FormatNameToMac & "%" & Mid$(str, i, 2)
    Next
    'FormatNameToMac = ""
    'For i = 1 To Len(str) Step 4

        'If Len(Mid(str, i, 4)) = 4 Then
        '    FormatNameToMac = FormatNameToMac & H_To_L(Mid(str, i, 4))
        'Else
        '    FormatNameToMac = FormatNameToMac & Mid(str, i, 4)
        'End If
    'Next
End Function

Function NumToStrHex(ByVal num As Long, ByVal bytLen As Integer) As String
  Dim str As String
  Dim strReturn As String
  Dim i As Integer
  Dim iLen As Integer
  str = CStr(Hex(num))
  iLen = bytLen * 2
  strReturn = ""
  If Len(str) >= iLen Then
  strReturn = Right(str, iLen)
  Else
  For i = Len(str) To iLen - 1
  strReturn = strReturn & "0"
  Next
  strReturn = strReturn & str
  End If
  NumToStrHex = strReturn
End Function

Function H_To_L(val As String) As String
  H_To_L = Right(val, 2) & Left(val, 2)
End Function