Текущий архив: 2006.10.29;
Скачать: CL | DM;
Вниз
Перевод кирилицы в коды используемые MSWord-ом Найти похожие ветки
← →
DelphiN! © (2006-10-09 12:25) [0]Когда в воре пишут символы на кирилице он переводит их в какие-то коды, например слово "Настройка" переводит как "Настройка"
Что это за кодировка и как произвести перевод строк в нее?
← →
ЮЮ © (2006-10-09 12:27) [1]
> "Настройка" переводит как "Настройка"
И где тут перевод?
← →
DelphiN! © (2006-10-09 12:28) [2]Не получилось запостить перевод, вобщем символы разделяются знаками "&#" ... ";"
← →
clickmaker © (2006-10-09 12:40) [3]
> Что это за кодировка
уникод?
← →
DelphiN! © (2006-10-09 12:44) [4]> [3] clickmaker © (09.10.06 12:40)
А как перевести?
← →
Gydvin © (2006-10-09 12:47) [5]Шрифт какой?
← →
Gydvin © (2006-10-09 12:50) [6]если все таки юникод поищи TntUnicodeControls, там помоtve есть функции по переводу midestring в string и наоборот
← →
Курдль © (2006-10-09 12:51) [7]В некоторых случаях Ворд переводит кириллицу в Юникод.
Например, я нарывался на грабли при "Слиянии".
← →
DelphiN! © (2006-10-09 13:58) [8]Вот сделал для русского кому надо :
← →
DelphiN! © (2006-10-09 13:59) [9]function ASCIIToUnicode(ASCIIStr: String): String;
var
RCode: Set of Char;
i: Integer;
begin
RCode := ["А","Б","В","Г","Д","Е","Ж","З","И","Й","К","Л","М","Н","О","П","Р","С","Т","У" ,"Ф","Х","Ц","Ч","Ш","Щ","Ъ","Ы","Ь","Э","Ю","Я","а","б","в","г","д","е","ж","з" ,"и","й","к","л","м","н","о","п","р","с","т","у","ф","х","ц","ч","ш","щ","ъ","ы" ,"ь","э","ю","я"];
Result := "";
for i := 1 to Length(ASCIIStr) do
if ASCIIStr[i] in RCode then
Result := Result+"&#"+IntToStr((ord(ASCIIStr[i])-192)+1040)+";"
else
Result := Result+ASCIIStr[i];
end;
← →
Kair+ © (2006-10-09 14:59) [10]>> RCode := ["А","Б","В","Г","Д","Е","Ж","З","И","Й","К","Л","М","Н","О","П","Р","С","Т","У" ,"Ф","Х","Ц","Ч","Ш","Щ","Ъ","Ы","Ь","Э","Ю","Я","а","б","в","г","д","е","ж","з" ,"и","й","к","л","м","н","о","п","р","с","т","у","ф","х","ц","ч","ш","щ","ъ","ы" ,"ь","э","ю","я"];
А так короче было бы?
RCode = [192..255];
ну, или
RCode = ["А".."я"];
← →
Карелин Артем © (2006-10-09 15:30) [11]Букву ЙО забыли
Страницы: 1 вся ветка
Текущий архив: 2006.10.29;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.028 c
