Question

如保把一个汉字，利用VB转换成网页地址，比如汉字“恒”，转换后为“%E6%81%92”，要用到什么函数？

如保把一个汉字，利用VB转换成网页地址，比如汉字“恒”，转换后为“%E6%81%92”，要用到什么函数？

Answer 1

Function UTF8EncodeURI(szInput)
  Dim wch, uch, szRet
  Dim x
  Dim nAsc, nAsc2, nAsc3
  If szInput = "" Then
  UTF8EncodeURI = szInput
  Exit Function
  End If
  For x = 1 To Len(szInput)
  wch = Mid(szInput, x, 1)
  nAsc = AscW(wch)
  If nAsc < 0 Then nAsc = nAsc + 65536
  If (nAsc And &HFF80) = 0 Then
  szRet = szRet & wch
  Else
  If (nAsc And &HF000) = 0 Then
  uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)
  szRet = szRet & uch
  Else
  uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _
  Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _
  Hex(nAsc And &H3F Or &H80)
  szRet = szRet & uch
  End If
  End If
  Next
  UTF8EncodeURI = szRet
  End Function

Private Sub Command1_Click()
Text2 = UTF8EncodeURI(Text1)