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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!