[求助] 中文乱码问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 中文乱码问题

共有2167人关注过本帖树形打印复制链接主题：[求助] 中文乱码问题

lsy

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

[求助] 中文乱码问题 发帖心情

Post By：2016/3/8 10:30:00 [只看该作者]

Dim web As WinForm.WebBrowser = e.Form.Controls("web-帮助信息")

MessageBox.Show(web.Address)

---------------------------

file:///D:/%E5%AB%A6%E5%A8%A5%E7%BC%96%E8%BE%91%E5%99%A8/KindEditor/e.html

---------------------------

确定

---------------------------

正确的应该是：D:\嫦娥编辑器\KindEditor\e.html

要判断这个地址，这样的结果，无从判断。

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/8 10:32:00 [只看该作者]

第一步,在外部引用里输入 System.Web.dll 点击添加,然后点击确定

然后使用如下代码,你可以放到命令窗口测试

Dim str As String = "字符串"

Dim jm As String = System.Web.HttpUtility.UrlEncode(str)

output.show("加密后:" & jm)

output.show("解密后:" & System.Web.HttpUtility.UrlDecode(jm))

lsy

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2016/3/8 11:12:00 [只看该作者]

谢谢。

地址前面还有file:///要截掉

这样就正确了：

Dim web As WinForm.WebBrowser = e.Form.Controls("web-帮助信息")

Dim str As String = web.Address

Dim jm As String = System.Web.HttpUtility.UrlDecode(str)

If jm.EndsWith(ProjectPath.Replace("\","/") & "KindEditor/e.html") = False Then

MessageBox.Show("先选择【Html单选框】")

Return

End If

[此贴子已经被作者于2016/3/8 11:14:23编辑过]

下一主题 >> << 上一主题

主题：[求助] 中文乱码问题