Excel URL解碼函式的使用

function urldecode(byval strin)

urldecode =
""       dim sl: sl = 1
dim tl: tl = 1
dim key: key =
"%"       dim kl: kl = len(key)
sl = instr(sl, strin, key, 1)
do while sl > 0
if (tl = 1 and sl <
> 1) or tl < sl then
urldecode = urldecode & mid(strin, tl, sl - tl)
end if
dim hh, hi, hl
dim a
select case ucase(mid(strin, sl + kl, 1))
case "u"
'unicode urlencode
a = mid(strin, sl + kl + 1, 4)
urldecode = urldecode & chrw("&h" & a)
sl = sl + 6
case "e" 'utf-8 urlencode
hh = mid(strin, sl + kl, 2)
a = int(
"&h"
& hh)
'ascii碼
if abs(a) < 128 then
sl = sl + 3
urldecode = urldecode & chr(a)
else
hi = mid(strin, sl + 3 + kl, 2)
hl = mid(strin, sl + 6 + kl, 2)
a = ("&h" & hh and &hf) * 2 ^ 12 or ("&h" & hi and &h3f) * 2 ^ 6 or ("&h" & hl and &h3f)
if a < 0 then a = a + 65536
urldecode = urldecode & chrw(a)
sl = sl + 9
end if
case else 'asc urlencode
hh = mid(strin, sl + kl, 2)
'高位                 a = int("&h" & hh) 'ascii碼
if abs(a)
< 128 then
sl = sl + 3
else
hi = mid(strin, sl + 3 + kl, 2)
'低位                    a = int("&h" & hh & hi) '非ascii碼
sl = sl + 6
end if
urldecode = urldecode & chr(a)
end select
tl = sl
sl = instr(sl, strin, key, 1)
loop
urldecode = urldecode & mid(strin, tl)
end function

1.開啟excel

2.alt+f11，會開啟vb視窗

3.找到「插入」，選擇插入模組

4.把以上**分別複製到不同模組，然後儲存。

5.關掉vb視窗，直接在頂部的輸入框輸入函式名字即可

python解碼函式 解碼函式嘗試編碼Python

這不是解碼失敗.這是因為您正在嘗試將結果顯示到控制台.使用print時,它使用預設編碼ascii編碼字串.不要使用列印,它應該工作.a u really long string containing u20ac and some other text type a a.decode unicode ...

各種編碼解碼的使用

install asn1c sudo apt get update sudo apt get install asn1c compile asn files asn1c asn asn usage parameters man asn1c 首先需要對tcsae進行make，命令為make f 之後遮...

php 編碼和解碼的函式

url urlencode 編碼 urldecode 解碼 url與陣列互 字元轉為html實體 htmlentities html entity decode 所有字元轉換為 html 實體 htmlspecialchars htmlspecialchars decode 將特殊字元 小於 和 大...