如何Encode Url 字元 ' ?

lolmuta

一个利用javascript encode 的代码

1. Function encodeURI(strText As String) As String
   
2.     With CreateObject("msscriptcontrol.scriptcontrol")
   
3.         .Language = "JavaScript"
   
4.         encodeURI = .Eval("encodeURIComponent('" & strText & "');")
   
5.     End With
   
6. End Function

复制代码

但在使用时，发现若strText参数字元内带有' 的字的话，就会一直出现错误，请问应如何修正呢?谢谢。

尝试转带有'字元而出错的例子

1. Sub testencode()
   
2.     Dim a$
   
3.     a = "TIME_STAMP > TO_DATE('2015/07/02 10:40','YYYY/MM/DD HH24:MI')"
   
4. 
   
5.     Debug.Print  encodeURI(a) 'error
   
6. 
   
7. End Sub

复制代码

wcymiss

把 '  replace成  \'
类似的字符还有：
\
chr(13)
chr(10)
chr(0)
分别需要 replace 成：
\\
\r
\n
\0

lolmuta

wcymiss 发表于 2015-7-2 12:12
把 '  replace成  \'
类似的字符还有：
\

想不到是wcymiss 回覆，真让人惊喜…
一直没有时间测试，
刚刚测了一下，真的可以运作

将encode 函数改成如下

1. Private Function encodeURI(strText As String) As String
   
2.     strText = Replace(strText, "", "\")
   
3.     strText = Replace(strText, "'", "\'")
   
4.     strText = Replace(strText, Chr(13), "\r")
   
5.     strText = Replace(strText, Chr(10), "\n")
   
6.     strText = Replace(strText, Chr(0), "\0")
   
7. 
   
8.     With CreateObject("msscriptcontrol.scriptcontrol")
   
9.         .Language = "JavaScript"
   
10.         'encodeURI = .Eval("encodeURIComponent('" & strText & "');")
    
11.         encodeURI = .Eval("encodeURI('" & strText & "');")
    
12.     End With
    
13.    
    
14.    
    
15. End Function

复制代码

wcymiss

lolmuta 发表于 2015-7-3 16:07
想不到是wcymiss 回覆，真让人惊喜…
一直没有时间测试，
刚刚测了一下，真的可以运作

你在函数中改变了参数strText的值，建议按值传递参数：byval strText

williamsmile

今天刚学习吴姐的encodeURI，没想到就看到改进版。收藏学习。

williamsmile

追问下：如果是解码URL，是不是也有特殊字符处理的问题？

lolmuta

williamsmile 发表于 2015-7-8 17:01
今天刚学习吴姐的encodeURI，没想到就看到改进版。收藏学习。

欣赏一下外国人的暴力硬写encode与decode，感觉似乎也没多麻烦…不过麻烦的是中文字转不了
encode的部份，在我还没问到答案前，暂用的替代方案。

encode
http://stackoverflow.com/questio ... string-in-excel-vba

decode
http://stackoverflow.com/questio ... ilt-in-url-decoding

williamsmile

还是吴姐的简单有效。

coby001

williamsmile 发表于 2015-7-8 17:01
今天刚学习吴姐的encodeURI，没想到就看到改进版。收藏学习。

啥改进啊？

其实是楼主在连接字符串时把单引号 ' 嵌套了，疏忽而已。

把单引号 ' 改成 双引号 " 就OK了

Function encodeURI(strText As String) As String
    With CreateObject("msscriptcontrol.scriptcontrol")
        .Language = "JavaScript"
        encodeURI = .Eval("encodeURIComponent(""" & strText & """);")
    End With
End Function

coby001

lolmuta 发表于 2015-7-8 17:44
欣赏一下外国人的暴力硬写encode与decode，感觉似乎也没多麻烦…不过麻烦的是中文字转不了
encode的部份 ...

这些代码，eh里有很多啊~  你搜一下，出来一堆呢~~