UC知道VB如何把WebBrowser控件中连接地址中的%3d%5e什么的转换为文字？
来源：百度知道 编辑：UC知道 时间：2024/07/06 21:31:41
连接地址格式：fdafsa.asp?dfsdafsda=*******
其中 ***** 可能是 英文，也可能是 %5d%9a%2c 之类的，而且发现这种都是中文的编码。
我要如何区分它们，并把后者转换为文字？
而且我发现这个网站把“测试”给转换成了 %e6%b5%8b%e8%af%95 了，好象还和 UTF-8 有关，唉，头痛
*************************************
谢谢二位的热心，不过，一00度，我的那个网站他两个汉字编码后出现了六组%号，而且你的代码中一汉字是两组，不一样。那网站 “测试”给转换成了 %e6%b5%8b%e8%af%95 ，“测试”注册的用户名，然后在网页上有一连接中包含用户名的编码，比如 xxxxx.asp?UserName=%e6%b5%8b%e8%af%95 。而你的代码把“测试”转为了 %B2%E2%CA%D4
不过这代码我收藏了，谢谢
*****************************************************
大侠牛A和牛C间徘徊，谢谢你的代码，这代码确实能转换。但是有一个问题，就是中文和英文数字混合时就转换不正确了。正在努力修改中，不过尚未成功！
其中 ***** 可能是 英文，也可能是 %5d%9a%2c 之类的，而且发现这种都是中文的编码。
我要如何区分它们，并把后者转换为文字？
而且我发现这个网站把“测试”给转换成了 %e6%b5%8b%e8%af%95 了，好象还和 UTF-8 有关，唉，头痛
*************************************
谢谢二位的热心，不过，一00度，我的那个网站他两个汉字编码后出现了六组%号，而且你的代码中一汉字是两组，不一样。那网站 “测试”给转换成了 %e6%b5%8b%e8%af%95 ，“测试”注册的用户名，然后在网页上有一连接中包含用户名的编码，比如 xxxxx.asp?UserName=%e6%b5%8b%e8%af%95 。而你的代码把“测试”转为了 %B2%E2%CA%D4
不过这代码我收藏了，谢谢
*****************************************************
大侠牛A和牛C间徘徊，谢谢你的代码，这代码确实能转换。但是有一个问题，就是中文和英文数字混合时就转换不正确了。正在努力修改中，不过尚未成功！
...因为地址栏不支持支持中文，所以，如果想知道那就用百度吧，很简单，在地址栏输入：http://www.baidu.com/baidu?word=编码文字（如：%5d%9a%2c）&tn=you2000_pg
网址中类似“%D2%BB”的编码与汉字的相互转换：
http://user.qzone.qq.com/32063270/blog/1242461384
是UTF8编码,到网上找了段代码,稍微修改了下
Option Explicit
Private Sub Form_Load()
MsgBox UTF8Decode("%e6%b5%8b%e8%af%95")
End Sub
Function UTF8Decode(utfstr As String)
'1、先分解成8个字符一串str8，然后转成中文(8字一个）,前面无%,如"E4%B8%AD "16进制加%加16**8
'2、str8再加上8个chr(13),共16字,转成中文字后替换原字符串
'3、再把
Dim str As String
str = utfstr
Do
If InStr(1, str, "%E", vbTextCompare) > 0 Then
Dim a, b, c As Integer
a = InStr(1, str, "%E", vbTextCompare)