Вход

Помогите переделать url c disk.karelia.ru

Научись общаться с машиной и научи других. Все вопросы связанные с программированием и разработкой программ.

Модератор: AxeL

Пишу регулярно

СообщениеПишу регулярно lpn_com lpn_com 0
Оставил 231 сообщений с 10 мар 2006
ФР: 9847
ICQ
14 июня 2007 в 00:35

К примеру из
http://disk.karelia.pro/?f=lpn_com/Upload/%EE%CF%D7%C1%D1+%D0%C1%D0%CB%C1/%E1%E2%F7%E7%E4%E5%F6%FA%E9%EA%EB%EC%ED%EE%EF%F0%F2%F3%F4
чтобы получилось http://disk.karelia.pro/?f=lpn_com/Upload/Новая папка/АБВГДЕЖЗИЙКЛМНОПРСТ

нужно сделать на VBScript
предпологаеться что URL уже находиться в строке :)

добавлено спустя 2 часа 28 минут:

Двоечники все, я сам догадалси :D
0

Сообщениеидиотъ daggert daggert 8
Оставил 11162 сообщений с 22 окт 2005
Блог: Просмотр блога (1)
ФР: 125569
WWW
14 июня 2007 в 09:04

lpn_com, ну дык просвети! Просто все дяди програмисты свалили с форума на лето, остались только те кто в програмировании не бум-бум
0
Пишу регулярно

СообщениеПишу регулярно lpn_com lpn_com 0
Оставил 231 сообщений с 10 мар 2006
ФР: 9847
ICQ
14 июня 2007 в 11:23

просто кодировка не win-1251, а koi8-u, озарение пришло как только здесь тему создал, а так сутки бился :lol:
0
Гуру

СообщениеГуру Fafnir Fafnir 0
Оставил 762 сообщений с 27 янв 2007
ФР: 12
ICQ
14 июня 2007 в 11:32

koi8-u? Хохляцкая??? (да простят меня товарищи с украины)
0
Пишу регулярно

СообщениеПишу регулярно lpn_com lpn_com 0
Оставил 231 сообщений с 10 мар 2006
ФР: 9847
ICQ
14 июня 2007 в 12:21

ну вроде работает, яж не програмист не разбираюсь :oops:
таблицы для перевода взял здесь - http://www.pikalov.kiev.ua/?p=12
воть код
нужный URL должен находиться в строке Str, переделанныя строка будет в TempAns
[code:1]Dim TempAns,CurChr,KOI8U,WIN

KOI8U="%E1%E2%F7%E7%E4%E5%F6%FA%E9%EA%EB%EC%ED%EE%EF%F0%F2%F3%F4_
%F5%E6%E8%E3%FE%FB%FD%FF%F9%F8%FC%E0%F1%C1%C2%D7%C7%C4_
%C5%D6%DA%C9%CA%CB%CC%CD%CE%CF%D0%D2%D3%D4%D5%C6%C8%C3%DE_
%DB%DD%DF%D9%D8%DC%C0%D1%A4%B4%A6%B6%A7%B7%AD%BD%C0%C1%C2%C3%C4%C5%C6%C7%C8_
%C9%CA%CB%CC%CD%CE%CF%D0%D1%D2%D3%D4%D5%D6%D7%D8%D9%DA%DB%DC%DD%DE%DF%E0%E1_
%E2%E3%E4%E5%E6%E7%E8%E9%EA%EB%EC%ED_
%EE%EF%F0%F1%F2%F3%F4%F5%F6%F7%F8%F9%FA%FB%FC%FD%FE%FF%BA%AA%B3%B2%BF%AF%B4%A5"

WIN= "%C0%C1%C2%C3%C4%C5%C6%C7%C8%C9%CA%CB%CC%CD%CE%CF%D0%D1%D2%D3%D4%D5%D6%D7%D8_
%D9%DA%DB%DC%DD%DE%DF%E0%E1%E2%E3_
%E4%E5%E6%E7%E8%E9%EA%EB%EC%ED%EE%EF%F0%F1%F2%F3%F4%F5%F6%F7%F8%F9%FA%FB%FC%FD%FE%FF_
%BA%AA%B3%B2%BF%AF%B4%A5%E1%E2%F7%E7%E4%E5%F6%FA%E9%EA%EB%EC_
%ED%EE%EF%F0%F2%F3%F4%F5%E6%E8%E3%FE%FB%FD%FF%F9%F8%FC%E0%F1%C1%C2%D7%C7%C4%C5%D6%DA_
%C9%CA%CB%CC%CD%CE%CF%D0%D2%D3_
%D4%D5%C6%C8%C3%DE%DB%DD%DF%D9%D8%DC%C0%D1%A4%B4%A6%B6%A7%B7%AD%BD"


TempAns=""
CurChr = 1

Do Until CurChr - 1 = Len(Str)
Select Case Mid(Str, CurChr, 1)
Case "+"
TempAns = TempAns & " "
Case "%"
Pos=InStr(1,KOI8U,Mid(Str,CurChr,3),vbBinaryCompare)
If Pos>0 Then
TempAns = TempAns & Chr( CInt ("&h" & Mid(WIN, Pos + 1, 2)))
Else
TempAns = TempAns & Chr( CInt ("&h" & Mid(Str, CurChr + 1, 2)))
End If
CurChr = CurChr + 2
Case Else
TempAns = TempAns & Mid(Str, CurChr, 1)
End Select

CurChr = CurChr + 1
Loop[/code:1]
0
Пишу регулярно

СообщениеПишу регулярно Random Random 0
Оставил 337 сообщений с 19 май 2005
ФР: 53
14 июня 2007 в 15:11

Чего-то я сложности не понял 8) :

<?php
$text = "http://disk.karelia.pro/?f=lpn_com/Upload/%EE%CF%D7%C1%D1+%D0%C1%D0%CB%C1/%E1%E2%F7%E7%E4%E5%F6%FA%E9%EA%EB%EC%ED%EE%EF%F0%F2%F3%F4";

echo urldecode($text);
?>

Затем в Опере жмем Вид ->кодировка -> кириллица -> KOI8-R

И никаких таблиц переводов 8) .
0
Легенда форума

СообщениеЛегенда форума teran teran 89
Оставил 6352 сообщений с 23 янв 2004
ФР: 127698
16 июня 2007 в 16:31

Random, в поставновке задачыи указывалось что сделать на vbscript то есть на клиентской части. при чем тут пхп ?
0
Пишу регулярно

СообщениеПишу регулярно lpn_com lpn_com 0
Оставил 231 сообщений с 10 мар 2006
ФР: 9847
ICQ
17 июня 2007 в 20:34

сделал я свою програмульку, только решил на C++ правда сделать :-D
если вкратце то
программка добавляет 2 новых пункта в меню Оперы
и при соответствующем выборе открываеться или файл или папка с disk.karelia.pro
ну тоесть если ссылка http://disk.karelia.pro/?f=lpn_com/ReadOnly
то открываеться \\Diskpublic.karelia.ru\public\l\lpn_com\ReadOnly

Скачать - > http://disk.karelia.pro/?d=1&f=lpn_com/ReadOnly/Disk+Link+Converter.exe
У вас нет необходимых прав для просмотра вложений в этом сообщении.
0

Сообщение Kirill3208 23 октября 2012 в 15:25

Как переделать [url] В клик? [click] :?:
0



Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 7