看一下下面这个例子Const a As String = "花雨夜之风abc" Const b As String = "%BB%A8%D3%EA%D2%B9%D6%AE%B7%E7"Private Sub Command1_Click() Dim c, d As String Dim i As Long For i = 1 To Len(a) If Asc(Mid(a, i, 1)) < 0 Then d = "%" & Right(CStr(Hex(Asc(Mid(a, i, 1)))), 2) d = "%" & Left(CStr(Hex(Asc(Mid(a, i, 1)))), Len(CStr(Hex(Asc(Mid(a, i, 1))))) - 2) & d c = c & d Else c = c & "%" & Hex(Asc(Mid(a, i, 1))) End If Next MsgBox c End Sub
Const b As String = "%BB%A8%D3%EA%D2%B9%D6%AE%B7%E7"Private Sub Command1_Click()
Dim c, d As String
Dim i As Long
For i = 1 To Len(a)
If Asc(Mid(a, i, 1)) < 0 Then
d = "%" & Right(CStr(Hex(Asc(Mid(a, i, 1)))), 2)
d = "%" & Left(CStr(Hex(Asc(Mid(a, i, 1)))), Len(CStr(Hex(Asc(Mid(a, i, 1))))) - 2) & d
c = c & d
Else
c = c & "%" & Hex(Asc(Mid(a, i, 1)))
End If
Next
MsgBox c
End Sub