'//将中文转为unicode编码,如:耳麦,转后为:\u8033\u9EA6
Function urlUnicodeEncode(strCode As String) As String
Dim a() As String
Dim str As String
Dim i As Integer
StrTemp = strCode
For i = 0 To Len(strCode) - 1
On Error Resume Next
str = Mid(strCode, i + 1, 1)
If isChinese(str) = True Then '//是中文
unicodeEncode = unicodeEncode & "\u" & String(4 - Len(Hex(AscW(str))), "0") & Hex(AscW(str))
Else '//不是中文
unicodeEncode = unicodeEncode & str
End If
Next
End Function
'//是否为中文
Private Function isChinese(Text As String) As Boolean
Dim l As Long
Dim i As Long
l = Len(Text)
isChinese = False
For i = 1 To l
If Asc(Mid(Text, i, 1)) < 0 Or Asc(Mid(Text, i, 1)) < 0 Then
isChinese = True
Exit Function
End If
Next
End Function