|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
非英数字符转国际双码的encode函数:
- Function GetUTF$(txt$)
- For i = 1 To Len(txt)
- s = Mid(txt, i, 1): t = AscW(s): If t < 0 Then t = 65536 + t
- If t < 128 Then GetUTF = GetUTF & s Else GetUTF = GetUTF & "%E" & Hex(t \ 4096) & "%" & Hex((t \ 64) Mod 64 + 128) & "%" & Hex(t Mod 64 + 128)
- Next
- End Function
复制代码
- Function ChrUTF$(txt$) 'Change UTF To Chr or ChrW
- Do
- i = InStr(j + 1, txt, "%"): If i = 0 Then ChrUTF = ChrUTF & Mid(txt, j + 1): Exit Do
- r = Val("&H" & Mid(txt, i + 2, 1)) * 4096 + ((Val("&H" & Mid(txt, i + 4, 2)) - 128) * 64 + Val("&H" & Mid(txt, i + 7, 2)) - 128)
- ChrUTF = ChrUTF & Mid(txt, j + 1, i - j - 1) & ChrW(r): j = i + 8
- Loop
- End Function
复制代码 |
|