Транслитерация и кодировки

Безымянный 28.03.2004 20:39

Как сделать транслитерацию (Cyr->Lat) для всех кодировок?

$rep[^table::create[nameless]{
а	a
б	b
в	v
г	g
д	d
е	e
ё	e
з	z
ж	zh
и	i
й	i
к	k
л	l
м	m
н	n
о	o
у	u
п	p
р	r
с	s
т	t
ц	ts
ч	ch
х	h
ф	f
ш	sh
щ	sh_
ь	_
ъ	_
ы	y
э	e
ю	yu
я	ya
А	A
Б	B
В	V
Г	G
Д	D
Е	E
Ё	E
З	Z
Ж	ZH
И	I
Й	I
К	K
Л	L
М	M
Н	N
О	O
У	U
П	P
Р	R
С	S
Т	T
Ц	TS
Ч	CH
Х	H
Ф	F
Ш	SH
Щ	SH_
Ь	_
Ъ	_
Ы	Y
Э	E
Ю	YU
Я	YA}]
$result[^txt.replace[$rep]]

Такой вариант подходит только для Win-1251.

---