| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1078 人关注过本帖, 1 人收藏
标题:请教VFP 里encodeURI来解决URL传递时的中文问题
只看楼主 加入收藏
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43186
注 册:2014-5-20
收藏(1)
得分:0 
以下是引用laibinhua在2023-5-8 21:04:46的发言:

调用JS的encodeURI()和encodeURIComponent()
这种方法也不错具体代码如何写呢?

url = [http://www.baidu.com/s?wd=!#$&'"()*+,/:;=?@-._~'ISO9000质量管理体系'"]
script = CREATEOBJECT("ScriptControl")
script.Language = "JavaScript"
? script.run("encodeURI",url)
? script.run("encodeURIComponent",url)
2023-05-08 21:20
ljb8864
Rank: 2
等 级:论坛游民
帖 子:171
专家分:14
注 册:2023-6-4
收藏
得分:0 
以下是引用sdta在2023-5-8 13:17:04的发言:

对楼主是否有帮助
* 只对双字节字符编(解)码_UTF8编码;
* 还有一种常用的GB2312编码,方法逐个取双字节符用 TRANSFORM() 进行转换。
* cc = RIGHT(TRANSFORM(ASC("中"), "@0"), 4)
* 还原:CHR(EVALUATE("0x" + cc))
CLEAR
lcPath = JUSTPATH(SYS(16))

lc = "西安音12乐学院"
? lc
\*****************************************
\ URL编码
? UrlEncode(lc)
\ URL解码
? UrlDecode(UrlEncode(lc))
? UrlDecode("%E8%A5%BF%E5%AE%89%E9%9F%B3%E4%B9%90%E5%AD%A6%E9%99%A2")
STRTOFILE(UrlEncode(lc), "BM.TXT")
MODIFY FILE BM.TXT


* URL编码
FUNCTION UrlEncode(cStr)
    LOCAL lcValue, lcEnStr, lc, lnJ, lnK
    lcEnStr = ""
    FOR lnJ = 1 TO LEN(cStr)
        lc = SUBSTR(cStr, lnJ, 1)
        IF ISLEADBYTE(lc)
            lc = SUBSTR(cStr, lnJ, 2)
            lnJ = lnJ + 1
            lcValue = STRCONV(STRCONV(lc, 9), 15)
            FOR lnK = 1 TO LEN(lcValue) STEP 2
                lcEnStr = lcEnStr + "%" + SUBSTR(lcValue, lnK, 2)
            ENDFOR
        ELSE
            lcEnStr = lcEnStr + lc
        ENDIF
    ENDFOR
    RETURN lcEnStr
ENDFUNC
* URL解码
FUNCTION UrlDecode(cEncode)
    LOCAL lcStr, lnJ, laCode[1]
    lcStr = ""
    FOR lnJ = 1 TO ALINES(laCode, cEncode, 5, "%") STEP 3
        lcStr = lcStr + STRCONV(STRCONV(laCode[lnJ] + laCode[lnJ + 1] + LEFT(laCode[lnJ + 2], 2), 16), 11) + SUBSTR(laCode[lnJ + 2], 3)
    ENDFOR
    RETURN lcStr
ENDFUNC




iOK=AT("%",cEncode)
lcStr = LEFT(cEncode,iOK-1)
cEncode=SUBSTR(cEncode,AT("%",cEncode))
2023-08-12 20:29
快速回复:请教VFP 里encodeURI来解决URL传递时的中文问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.012740 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved