KOI8-U в редакторе Dreamweaver?

mrcnn · Отправлено: **16:24, 13-12-2004** | #2

Могу предложить установить в Dreamweaver-е кодировку KOI8-R, если она есть в настройках. Создавать текст в этой кодировке, а после создания страницы в мета-заголовках поменять 8-R на 8-U.
Разницы между кодовыми таблицами KOI8-R и KOI8-U мала. И если ты не собираешься использовать непечатаемые символы, разница между этими кодировками не имеет значения.
кодовая таблица KOI8-R
http://www-sbras.nsc.ru/win/inter/rus-code-2.html
кодовая таблица KOI8-U
http://cad.ntu-kpi.kiev.ua/multiling...i8-u_test.html

Lada · Отправлено: **15:49, 14-12-2004** | #3

Спасибо. Ссылки полезные.
Но я попробовала - не вышло.
Возможно, я не совсем точно понимаю принцип перекодировки, но точно убедилась, что просто вместо одной записать другую в документе совершенно недостаточно. Браузер не нак сопоставляет символы и получается путаница даже на таких буквах, как Й и О.

А где еще можно почитать о кодировках?
И все-таки, как мне выкрутится в ситуации, когда нужна эта долбаная кодировка KOI8-U?

mrcnn · Отправлено: **16:20, 14-12-2004** | #4

Вот _элементарный_ перекодировщик из win-1251 в koi-8r, написанный на Perl
Достаточно задать директорию и он перекодирует файлы опр. форматов из заданной директории и поддиректорий.
Перекодирует только _буквенные_ символы.
Работает медленно, потому что перекодирует файл _посимвольно_, а не построчно.

Код:

#!perl

# Вы задаете директорию. Скрипт перекодирует все файлы в этой директории из кодировки Win в KOI 
#Замена текста происходит только в файлах с расширениями 
#.pl, .txt, .htm , .html , .shtml, .asp, .php

# ВНИМАНИЕ: замена старого неперекодированного файла на новый происходит автоматически. 
# Поэтому на случай неполадок стоит сделать бэкап директории

# Автор не несет никакой ответственности за действия произведенными скриптом

$msg="Директория, в которой перекодировать файлы (полный путь):";
wintodos($msg);
print $msg;

chomp($directory=<STDIN>);
@a = <$directory\*>; 
&reading(@a);

sub reading {
	my $i=0;
	for ( ; $i < @_; $i++ )
		{
		if( &ifdir($_[$i]) !=0)
			{
			if($_[$i]=~/.pl|.txt|.htm|.asp|.php/){
				XZxz (INPUT, "$_[$i]");
				binmode(INPUT);
				$newfile="$directory/temp.htm";
				$msg="Сейчас перекодирую файл: $_[$i]\n";
				wintodos($msg);
				print $msg;
				XZxz (FILEN, ">$newfile") || die "error filen:$!\n";
				binmode(FILEN);
				while(<INPUT>){
					$tmp=wintokoi($_);
					print FILEN $tmp;
					}
				close(INPUT);	
				close(FILEN);
				rename ("$directory/temp.htm","$_[$i]");
				}			
			}
		}
	}

sub ifdir()
	{
	if (opendir(DIR, "$_[0]"))
		{
		my @b=<$_[0]/*>;
		&reading(@b);
		return 0;
		}
	else 
		{
		return 1;
		}

	}


sub wintodos {
		$_[0]=~s/\xe0/\xa0/g;
		$_[0]=~s/\xe1/\xa1/g;
		$_[0]=~s/\xe2/\xa2/g;
		$_[0]=~s/\xe3/\xa3/g;
		$_[0]=~s/\xe4/\xa4/g;
		$_[0]=~s/\xe5/\xa5/g;
		$_[0]=~s/\xe6/\xa6/g;
		$_[0]=~s/\xe7/\xa7/g;
		$_[0]=~s/\xe8/\xa8/g;
		$_[0]=~s/\xe9/\xa9/g;
		$_[0]=~s/\xea/\xaa/g;
		$_[0]=~s/\xeb/\xab/g;
		$_[0]=~s/\xec/\xac/g;
		$_[0]=~s/\xed/\xad/g;
		$_[0]=~s/\xee/\xae/g;
		$_[0]=~s/\xef/\xaf/g;
		$_[0]=~s/\xf0/\xe0/g;
		$_[0]=~s/\xf1/\xe1/g;
		$_[0]=~s/\xf2/\xe2/g;
		$_[0]=~s/\xf3/\xe3/g;
		$_[0]=~s/\xf4/\xe4/g;
		$_[0]=~s/\xf5/\xe5/g;
		$_[0]=~s/\xf6/\xe6/g;
		$_[0]=~s/\xf7/\xe7/g;
		$_[0]=~s/\xf8/\xe8/g;
		$_[0]=~s/\xf9/\xe9/g;
		$_[0]=~s/\xfa/\xea/g;
		$_[0]=~s/\xfb/\xeb/g;
		$_[0]=~s/\xfc/\xec/g;
		$_[0]=~s/\xfd/\xed/g;
		$_[0]=~s/\xfe/\xee/g;
		$_[0]=~s/\xff/\xef/g;

		$_[0]=~s/\xc0/\x80/g;
		$_[0]=~s/\xc1/\x81/g;
		$_[0]=~s/\xc2/\x82/g;
		$_[0]=~s/\xc3/\x83/g;
		$_[0]=~s/\xc4/\x84/g;
		$_[0]=~s/\xc5/\x85/g;
		$_[0]=~s/\xc6/\x86/g;
		$_[0]=~s/\xc7/\x87/g;
		$_[0]=~s/\xc8/\x88/g;
		$_[0]=~s/\xc9/\x89/g;
		$_[0]=~s/\xca/\x8a/g;
		$_[0]=~s/\xcb/\x8b/g;
		$_[0]=~s/\xcc/\x8c/g;
		$_[0]=~s/\xcd/\x8d/g;
		$_[0]=~s/\xce/\x8e/g;
		$_[0]=~s/\xcf/\x8f/g;
		$_[0]=~s/\xd0/\x90/g;
		$_[0]=~s/\xd1/\x91/g;
		$_[0]=~s/\xd2/\x92/g;
		$_[0]=~s/\xd3/\x93/g;
		$_[0]=~s/\xd4/\x94/g;
		$_[0]=~s/\xd5/\x95/g;
		$_[0]=~s/\xd6/\x96/g;
		$_[0]=~s/\xd7/\x97/g;
		$_[0]=~s/\xd8/\x98/g;
		$_[0]=~s/\xd9/\x99/g;
		$_[0]=~s/\xda/\x9a/g;
		$_[0]=~s/\xdb/\x9b/g;
		$_[0]=~s/\xdc/\x9c/g;
		$_[0]=~s/\xdd/\x9d/g;
		$_[0]=~s/\xde/\x9e/g;
		$_[0]=~s/\xdf/\x9f/g;
		}


sub wintokoi {

$final="";
for ($i=0; $i<=length($_[0]);$i++){
		$tmp=substr ($_[0], $i,1);
		#этот участок нужно пройти один раз!!! 
		if($tmp=~s/\xc0/\xe1/g){}
		elsif($tmp=~s/\xe1/\xc2/g){}
		elsif($tmp=~s/\xc2/\xf7/g){}
		elsif($tmp=~s/\xf7/\xde/g){}
		elsif($tmp=~s/\xde/\xe0/g){}
		elsif($tmp=~s/\xe0/\xc1/g){}
		elsif($tmp=~s/\xc1/\xe2/g){}	
		elsif($tmp=~s/\xe2/\xd7/g){}
		elsif($tmp=~s/\xd7/\xfe/g){}
		elsif($tmp=~s/\xfe/\xc0/g){}
		elsif($tmp=~s/\xd4/\xe6/g){}
		elsif($tmp=~s/\xe6/\xd6/g){}
		elsif($tmp=~s/\xd6/\xe3/g){}
		elsif($tmp=~s/\xe3/\xc7/g){}
		elsif($tmp=~s/\xc4/\xe4/g){}
		elsif($tmp=~s/\xe4/\xc4/g){}
		elsif($tmp=~s/\xc5/\xe5/g){}		
		elsif($tmp=~s/\xe5/\xc5/g){}
		elsif($tmp=~s/\xc3/\xe7/g){}
		elsif($tmp=~s/\xe7/\xda/g){}
		elsif($tmp=~s/\xda/\xff/g){}
		elsif($tmp=~s/\xff/\xd1/g){}
		elsif($tmp=~s/\xd1/\xf3/g){}
		elsif($tmp=~s/\xf3/\xd5/g){}
		elsif($tmp=~s/\xd5/\xe8/g){}
		elsif($tmp=~s/\xe8/\xc9/g){}
		elsif($tmp=~s/\xd3/\xf5/g){}
		elsif($tmp=~s/\xf5/\xc8/g){}
		elsif($tmp=~s/\xc8/\xe9/g){}
		elsif($tmp=~s/\xe9/\xca/g){}
		elsif($tmp=~s/\xc9/\xea/g){}
		elsif($tmp=~s/\xea/\xcb/g){}
		elsif($tmp=~s/\xca/\xeb/g){}
		elsif($tmp=~s/\xeb/\xcc/g){}
		elsif($tmp=~s/\xcb/\xec/g){}
		elsif($tmp=~s/\xec/\xcd/g){}
		elsif($tmp=~s/\xcc/\xed/g){}	
		elsif($tmp=~s/\xed/\xce/g){}
		elsif($tmp=~s/\xcd/\xee/g){}
		elsif($tmp=~s/\xee/\xcf/g){}
		elsif($tmp=~s/\xce/\xef/g){}
		elsif($tmp=~s/\xef/\xd0/g){}
		elsif($tmp=~s/\xfa/\xdf/g){}
		elsif($tmp=~s/\xcf/\xf0/g){}
		elsif($tmp=~s/\xf0/\xd2/g){}
		elsif($tmp=~s/\xdf/\xf1/g){}
		elsif($tmp=~s/\xf1/\xd3/g){}
		elsif($tmp=~s/\xd0/\xf2/g){}
		elsif($tmp=~s/\xf2/\xd4/g){}
		elsif($tmp=~s/\xd2/\xf4/g){}
		elsif($tmp=~s/\xf4/\xc6/g){}
		elsif($tmp=~s/\xc6/\xf6/g){}
		elsif($tmp=~s/\xf6/\xc3/g){}
		elsif($tmp=~s/\xdc/\xf8/g){}
		elsif($tmp=~s/\xf8/\xdb/g){}
		elsif($tmp=~s/\xdb/\xf9/g){}
		elsif($tmp=~s/\xf9/\xdd/g){}
		elsif($tmp=~s/\xc7/\xfa/g){}
		elsif($tmp=~s/\xf1/\xdf/g){}
		elsif($tmp=~s/\xd8/\xfb/g){}
		elsif($tmp=~s/\xfb/\xd9/g){}
		elsif($tmp=~s/\xdd/\xfc/g){}
		elsif($tmp=~s/\xfc/\xd8/g){}
		elsif($tmp=~s/\xd9/\xfd/g){}
		elsif($tmp=~s/\xfd/\xdc/g){}
		elsif($tmp=~s/\xb8/\xc5/g){}
		$final=$final.$tmp;
		}		
		
		return $final;
		}

Lada · Отправлено: **18:51, 15-12-2004** | #5

Очень интересно. Но нужно ведь не из win-1251 в koi-8r а в koi8-U т.е. украинский шрифт

Пока ничего не нашла, хоть написала на несколько форумов.
И не знала, что это такая нераспространенная проблема...
Думала, что все только и делают, что свободно гоняют у себя документы из одной кодировки в другую, а только я не знаю чем этоделать...

Но все равно спасибо за поддержку!

mrcnn · Отправлено: **19:29, 15-12-2004** | #6

Цитата:

Очень интересно. Но нужно ведь не из win-1251 в koi-8r а в koi8-U т.е. украинский шрифт.

У меня в браузере страница в кодировке koi8-r отображается одинаково как при ручном выборе koi8-r так и при ручном выборе koi8-u, отсюда следует что русский алфавит в данных кодировках идентичен. Обрати внимание на выделенное жирным.

О различиях в koi8u и koi8r

Цитата:

DIFFERENCE OF KOI8-U from KOI8-R (RFC 1489)

KOI8-U is compatible with KOI8-R in all Cyrillic Letters and
completes it with four Ukrainian letters UKRAINIAN IE #164, #180,
CYRILLIC SMALL LETTER BELORUSSIAN-UKRAINIAN I #166, #182, UKRAINIAN
YI #167, #183, UKRAINIAN GHE WITH UPTURN #173, #189.

<decimal> <hex-code> <UCS> <description>
164 A4 U0454 CYRILLIC SMALL LETTER UKRAINIAN IE
166 A6 U0456 CYRILLIC SMALL LETTER
BELORUSSIAN-UKRAINIAN I
167 A7 U0457 CYRILLIC SMALL LETTER YI (UKRAINIAN)
173 AD U0491 CYRILLIC SMALL LETTER UKRAINIAN GHE
WITH UPTURN
180 B4 U0403 CYRILLIC CAPITAL LETTER UKRAINIAN IE
182 B6 U0406 CYRILLIC CAPITAL LETTER
BELORUSSIAN-UKRAINIAN I
183 B7 U0407 CYRILLIC CAPITAL LETTER YI (UKRAINIAN)
189 BD U0490 CYRILLIC CAPITAL LETTER UKRAINIAN GHE
WITH UPTURN

Источник: http://cad.ntu-kpi.kiev.ua/multiling/koi8-u/rfc2319.txt

Здесь говорится о 4 доп символах из укр. алфавита. Внести изменения в вышеприведенный скрипт на предмет этих символов элеменарно просто, тем более основная часть перекодировки написана.

mrcnn · Отправлено: **20:36, 15-12-2004** | #7

чтобы перекодировать украинские символы в скрипт после

Код:

elsif($tmp=~s/\xb8/\xc5/g){}

надо добавить:

Код:

elsif($tmp=~s/\xaf/\xb7/g){}
elsif($tmp=~s/\xb2/\xb6/g){}
elsif($tmp=~s/\xbf/\xa7/g){}
elsif($tmp=~s/\xb3/\xa6/g){}
elsif($tmp=~s/\xaa/\xb4/g){}
elsif($tmp=~s/\xba/\xa4/g){}

и перекодировщик из win1251 в koi8-U практически готов.
за исключением:

Цитата:

173 AD U0491 CYRILLIC SMALL LETTER UKRAINIAN GHE
WITH UPTURN
189 BD U0490 CYRILLIC CAPITAL LETTER UKRAINIAN GHE
WITH UPTURN

для этих символов я не знаю 16-ричный код в windows, то есть из чего мы перекодируем.

Lada · Отправлено: **11:44, 16-12-2004** | #8

Спасибо

Я вот еще посмотрела и увидела, что программка http://narod.yandex.ru/100.xhtml?www...ru/qnsetup.zip
является неплохим текстовым редактором с поддержкой конвертации в разные кодировки (как в FARe - вырезаешь текст, выбираешь новую кодировку и вставляешь).
Вроде работает номально.

Ну, с KOI8-U в Dreamwaevwr`е не получилось, но все-таки способ как выкрутится вы мне помогли найти!