如何将汉字转换为网站URL用的utf-8编码

硅谷少年

硅谷少年 发表于 2019-3-21 17:38
Vba实现解析json数据。当中的关于Set oSC = CreateObject("MSScriptControl.ScriptControl") 不能创建对象 ...

还有一种更简洁的：（最早看到是 香川群子 大神写的）

1. Function GetURL$(txt$, Optional LC = &H804) 'Taiwan &H404/Japan &H411/ Korea &H412
   
2.     Dim a() As Byte: a = StrConv(txt, vbFromUnicode, LC)
   
3.     For i = 0 To UBound(a)
   
4.         GetURL = GetURL & "%" & Right("0" & Hex(a(i)), 2)
   
5.     Next
   
6. End Function
   

复制代码

硅谷少年

硅谷少年 发表于 2019-3-25 09:10
能附上你的那个帖子链接么？谢谢。疑难问题多交流不同的解决方案。

关于这个问题其实比咱们讨论的还要复杂，详情见：

URL汉字编码问题以及乱码解决 - 风之子 - CSDN博客
https://blog.csdn.net/shabijiayong/article/details/79094438

分 UTF-8 和 GB2312，还分不同的情况。。。