网页制造中什么函数能使文字换为符号

来源：百度知道 编辑：UC知道 时间：2024/07/07 03:21:42
又用什么把它再转回文字啊
像变成
%CD%F8%D2%B3%CE%C4%D7%D6%D7%AA%CE%AA
这样的

添加一个Text1控件:

Function toAscii(sIn As String) As String
On Error Resume Next
Dim i As Long
Dim btmp() As Byte

btmp = StrConv(sIn, vbFromUnicode)
For i = LBound(btmp) To UBound(btmp)
toAscii = toAscii & "%" & Right("00" & Hex(btmp(i)), 2)
Next
End Function

Private Sub Form_Load()
Text1.Text = toAscii("测试") '引号内的测试是你要转换的文字
End Sub