Batya
|
 Posted: Mon May 15, 2006 11:57 Post subject: |
 |
|
b01d
| funduk wrote: | | Хотя, может быть, через скрипт можно вызвать какую-нибудь функцию, которая сама меняет такие пути. |
Такой встроенной функции нет. Вот, написал, вроде, правильно. Если будут ошибки в преобразовании, пиши.
Код *.vbs:
| Code: | '==========================================================================
' Преобразование текстовой ссылки в буфере -
' замена русских символов и пробелов на 16-тиричный код этих символов
' с префиксом %
'==========================================================================
Dim TCS, Str, StrF, ChCode, Ch, i
Set TCS = CreateObject("TCScript.Helper")
Str = TCS.GetTextFromClip
For i = 1 To Len(Str)
Ch = Mid(Str, i, 1)
ChCode = Asc(Ch)
If (ChCode > 191) or (ChCode = 32) or (ChCode = 168) or (ChCode = 184) Then
StrF = StrF & "%" & Hex(ChCode)
Else
StrF = StrF & Ch
End If
Next
TCS.SetTextToClip(StrF)
Set TCS = Nothing
Wscript.Quit |
В скрипте используется Script Helper.
Если хочешь, могу дописать скрипт, чтобы не только преобразовывал, а сначала копировал пути в буфер. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
