'http://apps.hi.baidu.com/share/detail/6440301
Function Uri(strText As String)
'Sub Uri()
Dim s As Integer
Dim ii As String
Dim tmp As String
'strText = "你1 你"
'uri = ""
For i = 1 To Len(strText)
temp = Asc(Mid$(strText, i, 1))
If temp > 255 Or temp < 0 Then
tmp = Hex(temp)
Uri = Uri & "%" & Left(tmp, 2) & "%" & Right(tmp, 2)
Else
Uri = Uri & Mid$(strText, i, 1)
End If
Next i
Uri = Replace(Uri, " ", "%20")
End Function
Function toUTF8(szInput)
Dim wch, uch, szRet
Dim x
Dim nAsc, nAsc2, nAsc3
'如果输入参数为空,则退出函数
Function Uri(strText As String)
'Sub Uri()
Dim s As Integer
Dim ii As String
Dim tmp As String
'strText = "你1 你"
'uri = ""
For i = 1 To Len(strText)
temp = Asc(Mid$(strText, i, 1))
If temp > 255 Or temp < 0 Then
tmp = Hex(temp)
Uri = Uri & "%" & Left(tmp, 2) & "%" & Right(tmp, 2)
Else
Uri = Uri & Mid$(strText, i, 1)
End If
Next i
Uri = Replace(Uri, " ", "%20")
End Function
Function toUTF8(szInput)
Dim wch, uch, szRet
Dim x
Dim nAsc, nAsc2, nAsc3
'如果输入参数为空,则退出函数