"Escape последовательности"

Стандартные функции работают не так, как нам надо, приходится доморощенными пользоваться.

Вот раскопал в Интернете для Visual Basic:

Function Unescape(ByVal str As String) As String

out = ""

If Len(str) > 0 Then

str = Replace(str, "+", " ")

I = 1

Do While I <= Len(str)

If Mid(str, I, 1) = "%" Then

Cod = Mid(str, I + 1, 2)

If Len(Cod) = 2 Then

out = out & Chr(CInt("&H" & Cod))

I = I + 3

Else

out = out & Mid(str, I, 1)

I = I + 1

End If

Else

out = out & Mid(str, I, 1)

I = I + 1

End If

Loop

End If

Unescape = out

End Function

Function Escape(ByVal str As String) As String

strNocode = "*+-./0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyz"

out = ""

If Len(str) > 0 Then

str = Replace(str, " ", "+")

For I = 1 To Len(str)

Car = Mid(str, I, 1)

If InStr(strNocode, Car) Then

out = out & Car

Else

out = out & "%" & Hex(Asc(Car))

End If

Next I

End If

Escape = out

End Function

Вот скрипт на javascript (работает не при всех комбинациях ОС, браузер, системный язык) У меня русская windows 2000, русский IE6//:

файлику надо дать расширение *.url и поместить в папку "Ссылки" (Внутрь системной "Избранное", тогда в браузере можно щелкать по данной кнопке в серпе Яндекса:

[InternetShortcut]

URL=javascript: r='йцукенгшщзхъфывапролджэячсмитьбюёЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮЁ'; t=unescape('%E9%F6%F3%EA%E5%ED%E3%F8%F9%E7%F5%FA%F4%FB%E2%E0%EF%F0%EE%EB%E4%E6%FD%FF%F7%F1%EC%E8%F2%FC%E1%FE%B8%C9%D6%D3%CA%C5%CD%C3%D8%D9%C7%D5%DA%D4%DB%C2%C0%CF%D0%CE%CB%C4%C6%DD%DF%D7%D1%CC%C8%D2%DC%C1%DE%A8'); c=document.links; l=c.length; for(i=0;i<l;i++) {u=c;h=u.href; if (h.search('reqtext=')>0) {u.style.color='#ff0000'; s=unescape(h); for(j=0;j<r.length;j++){s=s.replace(RegExp(t.charAt(j),"g"),r.charAt(j));} u.innerHTML=s;};};void(0)