VB中的GBK编码

概述Option ExplicitFunction 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))))

Option ExplicitFunction 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    'NextEnd FunctionFunction 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 = strReturnEnd FunctionFunction H_To_L(val As String) As String  H_To_L = Right(val,2) & left(val,2)End Function

总结

以上是内存溢出为你收集整理的VB中的GBK编码全部内容，希望文章能够帮你解决VB中的GBK编码所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。