VB
发布时间:2022-04-03 发布网站:大佬教程 code.js-code.com
大佬教程收集整理的这篇文章主要介绍了VB 中文转utf-8的函数 ,应用于搜索引擎,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
Public Function UTF8Encode(ByRef sz
String As
String) As
String Dim szChar As
String Dim szTemp As
String Dim szCode As
String Dim szHex As
String Dim szBin As
String Dim iCount1 As
Integer Dim i
count2 As
Integer Dim iStrLen1 As
Integer Dim iStrLen2 As
Integer Dim lResult As Long Dim lAscVal As Long sz
String = Trim$(sz
String) iStrLen1 = Len(sz
String) For iCount1 = 1 To iStrLen1 szChar = Mid$(sz
String,iCount1,1) lAscVal = AscW(szChar) If lAscVal >= &H0 And lAscVal <= &HFF Then If (lAscVal >= &H30 And lAscVal <= &H3
9) Or _ (lAscVal >= &H41 And lAscVal <= &H5A) Or _ (lAscVal >= &H61 And lAscVal <= &H7A) Then szCode = szCode & szChar Else szCode = szCode & "%" & Hex(AscW(szChar)) End If Else szHex = Hex(AscW(szChar)) iStrLen2 = Len(szHe
X) For i
count2 = 1 To iStrLen2 szChar = Mid$(szHex,i
count2,1)
SELEct Case szChar Case Is = "0" szBin = szBin & "0000" Case Is = "1" szBin = szBin & "0001" Case Is = "2" szBin = szBin & "0010" Case Is = "3" szBin = szBin & "0011" Case Is = "4" szBin = szBin & "0100" Case Is = "5" szBin = szBin & "0101" Case Is = "6" szBin = szBin & "0110" Case Is = "7" szBin = szBin & "0111" Case Is = "8" szBin = szBin & "1000" Case Is = "9" szBin = szBin & "1001" Case Is = "A" szBin = szBin & "1010" Case Is = "B" szBin = szBin & "1011" Case Is = "C" szBin = szBin & "1100" Case Is = "D" szBin = szBin & "1101" Case Is = "E" szBin = szBin & "1110" Case Is = "F" szBin = szBin & "1111" Case Else End
SELEct Next i
count2 szTemp = "1110" & Left$(szBin,4) & "10" & Mid$(szBin,5,6) & "10" & Right$(szBin,6) For i
count2 = 1 To 24 If Mid$(szTemp,1) = "1" Then lResult = lResult + 1 * 2 ^ (24 - i
count2) Else lResult = lResult + 0 * 2 ^ (24 - i
count2) End If Next i
count2 szTemp = Hex(lResult) szCode = szCode & "%" & Left$(szTemp,2) & "%" & Mid$(szTemp,3,2) & "%" & Right$(szTemp,2) End If szBin = vbNull
String lResult = 0 Next iCount1 UTF8Encode = szCode End Function
大佬总结
以上是大佬教程为你收集整理的VB 中文转utf-8的函数 ,应用于搜索引擎全部内容,希望文章能够帮你解决VB 中文转utf-8的函数 ,应用于搜索引擎所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。