以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 中文乱码问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=81877)

--  作者:lsy
--  发布时间: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

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

--  作者:大红袍
--  发布时间: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
--  发布时间: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编辑过]