%CD%F5%B4%F3%BB%D4是汉字编码的十六进制数值,以%表示后面的字符是数值
你可以用下面的函数来转换
Private Function 转换汉字字符串(Byval STR1 as String) As String
Dim I As Integer, STR2 As String, STR3 As String
STR3 = vbNullString
For I = 1 To Len(STR1)
STR2 = Hex(Asc(Mid(STR1, I, 1)) And &HFFFF&)
If Len(STR2) < 4 Then STR2 = String(4 - Len(STR2), "0") & STR2
STR3 = STR3 & "%" & Left(STR2, 2) & "%" & Mid(STR2, 3, 2)
Next
'MsgBox STR1 & "经转换后的字符串为:" & STR3
转换汉字字符串=STR3
End Function
[此贴子已经被作者于2007-5-11 14:24:02编辑过]