Foxtable(狐表)用户栏目专家坐堂 → 关于URL编码问题


  共有4120人关注过本帖树形打印复制链接

主题:关于URL编码问题

帅哥哟,离线,有人找我吗?
hgzvip
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:67 积分:750 威望:0 精华:0 注册:2015/9/5 18:02:00
关于URL编码问题  发帖心情 Post By:2021/8/23 0:31:00 [只看该作者]

老师,想请教在狐表中用什么方法可以把一个空格转换成“%20”?我用UrlEncode(" "),结果是一个“+”号。但是在 http://tools.jb51.net/static/encodetxt/urlencode_decode/index.html 的在线转换中,选择encodeURLComponent函数时就可以。
而且它转换的冒号,是大写的%3A,用UrlEncode(":"),转成的是小写的%3a,也不是我想要的结果。
在狐表中能实现这样转换吗?谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107783 积分:548260 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/8/23 8:36:00 [只看该作者]

到全局代码添加下面代码:

 

Public Function PercentEncode(ByVal value As StringAs String

    Dim stringBuilder As StringBuilder = New StringBuilder()

    Dim text As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789-_.~"

    Dim bytes As Byte() = System.Text.Encoding.UTF8.GetBytes(value)

    For Each b As Byte In bytes

        Dim c As Char = chr(b)

        If text.IndexOf(c) >= 0 Then

            stringBuilder.Append(c)

        Else

            stringBuilder.Append("%").Append(String.Format(System.Globalization.CultureInfo.InvariantCulture, "{0:X2}", CInt(b)))

        End If

    Next

    Return stringBuilder.ToString()

End Function


调用

PercentEncode(" ")


 回到顶部