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,1)),1)
        Else
            str = str & NumToStrHex(Asc(Mid(val,2)
        End If
    Next
    For i = 1 To Len(str) Step 2
        FormatNametoMac = FormatNametoMac & "%" & Mid$(str,2)
    Next
    'FormatNametoMac = ""
    'For i = 1 To Len(str) Step 4

        'If Len(Mid(str,4)) = 4 Then
        '    FormatNametoMac = FormatNametoMac & H_To_L(Mid(str,4))
        'Else
        '    FormatNametoMac = FormatNametoMac & Mid(str,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

原文地址：https://www.jb51.cc/vb/259558.html