Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];




Вниз

перекодировка hello <-> руддщ 


elk   (2002-01-09 13:24) [0]

Всем добрый день!

подскажите каким образом можно перекодировать
руддщ в hello
(без использования таблиц соответствия символов)



Вадим   (2002-01-09 14:50) [1]

>без использования таблиц соответствия символов

Никак!



Vovchik   (2002-01-09 14:51) [2]

А почему без таблиц?



DelGod_   (2002-01-09 15:00) [3]

Я писал прогу(для себя) которая это и делает, сидит в трее при нажатии Ctrl+Alt+Num0 она перекодирует текст в буфере с "ghbdtn" в "привет"
если тебе нужно то могу кинуть тебе исходник



Вадим   (2002-01-09 15:28) [4]

2DelGod_

Без таблиц?



SuperMama   (2002-01-09 15:51) [5]

>>> DelGod_
СКИНЬ МНЕ ИСХОДНИК ПЛЗ...
IronHawk@ukrpost.net
заранее благодарен ...



DelGod_   (2002-01-09 17:39) [6]

asd1:="qwertyuiop[]asdfghjkl;zxcvbnm,./\QWERTYUIOP{}ASDFGHJKL:"ZXCVBNM<>?|`1234567890-=~!@#$%^&*()_+ """;
fcl1:="йцукенгшщзхъфывапролджячсмитьбю.\ЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ,/ё1234567890-=Ё!"№;%:?*()_+ э";


и вся таблица, а потом

for i:=1 to length(vod) do
for j:=1 to 60 do
if vod[i]=asd1[j] then vuvod:=vuvod+fcl1[j];


и всё



Anatoly Podgoretsky   (2002-01-09 20:41) [7]

Вадим © (09.01.02 14:50)
Можно, но не нужно

if .. = "q" then .. := "й"
else if .. = "w" then .. := "ц"
...



Андрей Сенченко   (2002-01-09 21:00) [8]

> Anatoly Podgoretsky © (09.01.02 20:41)
Анатолий ! Насколько я помню, по-моему Вы говорили, что писали универсальный переводчик из одной кодировки в другую. Если так, то может знаете - во всех ли кодировках "расстояние" между кодами символов одинаково ?
имеется в виду, что
chr("q")-chr("й")
во всех ли общеупотребимых кодировках будет иметь одно значение ?
Тогда можно предложить еще один вариант



Stexen   (2002-01-09 22:16) [9]

мне тоже исходник скиньте



Anatoly Podgoretsky   (2002-01-09 22:42) [10]

Андрей Сенченко © (09.01.02 21:00)
Конечно растояние разное и не стоит никогда делать на каких то особенностях той или другоий кодировки, а такое часто встречается, лучше потратить некоторое количество байт и иметь универсальную вещь. То есть перекодировка по таблицам и общая универсальная функция.

Stexen © (09.01.02 22:16)
У кого и какой исходник просишь?



DelGod   (2002-01-10 01:48) [11]

2SuperMama&Stexen
какой смысл уже исходник кидать если вся изуминка моего исходника чуть выше[смотри - DelGod(09.01.02 17:39)]

тут вот уже завязалась дискусия поинтересней у Anatoly Podgoretsky и Андрея Сенченко




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.038 c
1-90311           NLO                   2002-01-11 07:16  2002.01.28  
TListBox


3-90219           Oleg_K                2001-12-17 21:03  2002.01.28  
DBEdit в фокусе


14-90379          Pat                   2001-11-24 18:05  2002.01.28  
AutoRun для дисковода...


4-90424           Shmel                 2001-11-29 02:01  2002.01.28  
ЕСТЬ Проблема!!!!


3-90206           victor                2001-12-24 10:07  2002.01.28  
Логическое поле в ОРАКЛЕ