5
VBScriptで文字列をURLデコードする必要があります。文字列には、UTF-8ごとに複数のバイトとしてエンコードされたUnicode文字を含めることができます。したがって、たとえば "Paris％20％E2％86％92％20Z％C3％BCrich"は "Paris→Zürich"にデコードされます。VBScriptでURLエンコードされたUTF-8文字列をデコードする
Function URLDecode(str)
set list = CreateObject("System.Collections.ArrayList")
strLen = Len(str)
for i = 1 to strLen
sT = mid(str, i, 1)
if sT = "%" then
if i + 2 <= strLen then
list.Add cbyte("&H" & mid(str, i + 1, 2))
i = i + 2
end if
else
list.Add asc(sT)
end if
next
depth = 0
for each by in list.ToArray()
if by and &h80 then
if (by and &h40) = 0 then
if depth = 0 then Err.Raise 5
val = val * 2^6 + (by and &h3f)
depth = depth - 1
if depth = 0 then
sR = sR & chrw(val)
val = 0
end if
elseif (by and &h20) = 0 then
if depth > 0 then Err.Raise 5
val = by and &h1f
depth = 1
elseif (by and &h10) = 0 then
if depth > 0 then Err.Raise 5
val = by and &h0f
depth = 2
else
Err.Raise 5
end if
else
if depth > 0 then Err.Raise 5
sR = sR & chrw(by)
end if
next
if depth > 0 then Err.Raise 5
URLDecode = sR
End Function
これはうまく動作しているようだが、それは私には誇張して複雑になります。
は、私のようなコードを使用しています、仕事をします。 HTML5とWeb標準の時代には、手作業のループや条件がなくてもこれを実現するための簡単な方法が必要です。助言がありますか？
これは素晴らしい回答です。ありがとうございます！ –
@ ft1よろしくお願いいたします。 –
@ ft1修正をしましたが、2番目の解決策を使用した場合は、頭に入れてください。 –