0 / 0 / 0
Регистрация: 20.11.2014
Сообщений: 29
1

Как преобразовать текст в документе из латиницы в кириллицу ("только в кавычках") во всем документе

22.01.2015, 15:57. Показов 1289. Ответов 1
Метки нет (Все метки)

Здравствуйте уважаемые форумчане!
Собственно сабж.

Нашел интересную функцию которая работает а что делать дальше ума не приложу.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
function LatToRus (s: string): string;
const
  QuertyLat = 'QWERTYUIOP[]ASDFGHJKL:ZXCVBNM<>qwertyuiop[]asdfghjkl;"zxcvbnm,.';
  QuertyRus: string = 'ÉÖÓÊÅÍÃØÙÇÕÚÔÛÂÀÏÐÎËÄÆß×ÑÌÈÒÜÁÞéöóêåíãøùçõúôûâàïðîëäæýÿ÷ñìèòüáþ';
var
  i, index: integer;
begin
  for i:=1 to length(s) do begin
    if s[i]='''' then s[i]:='?'
    else begin
      index := pos(s[i],QuertyLat);
      if index<>0 then begin
        delete(s,i,1);
        insert(QuertyRus[index],s,i);
      end;
    end;
  end;
  LatToRus := s;
end;
 
procedure TForm1.btn2Click(Sender: TObject);
begin
 mmo2.Text:= LatToRus(mmo1.Text);
end;
Помогите пожалуйста, господа программисты.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.01.2015, 15:57
Ответы с готовыми решениями:

как автоматически преобразовать все "надписи" в документе DOC в "рамки"?
файл огромный. в каждом колонтитуле по несколько разных &quot;надписей&quot;. как их все сразу во всем...

Как запретить нажимать кнопку "Забой" на клавиатуре под кодом 8 во всем документе?
Как запретить нажимать кнопку &quot;Забой&quot; на клавиатуре под кодом 8 во всем документе? То бишь у меня...

Как переименовать во всем документе текст таким образом
Простите если публикую не в тот раздел, но не нашел другого подходящего. Помогите если кто может....

При установке гиперссылки на вордовский файл в меню нет кнопок "Закладки" и "Место в документе"
Из таблицы пытаюсь сослаться на ранее созданную закладку в вордовском документе из Access 203 (и...

1
10 / 10 / 5
Регистрация: 26.08.2014
Сообщений: 91
22.01.2015, 18:49 2
Эта программа не поменяет кириллицу на латиницу, она просто поменяет раскладку текста. чтобы меняла текст корректно нужно поправить соответствие в 3 и 4 строках.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.01.2015, 18:49
Помогаю со студенческими работами здесь

УТ 11.В документе "Заявка на расходование денежных средств" нет кнопки "Печать"!
Добрый день. Появилась необходимость сделать для Заявки на расходование денежных средств...

Кнопка "Заполнение" в стандартных документах УТ 11. Как ее сделать в не стандартном документе?
Добрый день! Такая проблема возникла. Есть УТ 11, управляемое приложение. Есть моя обработка...

Как найти в текстовом документе все слова "for" и вывести на консоль
Нужно с помощью регулярных выражений найти в текстовом документе .txt все слова for и показать их....

Как числа, которые после 1-ой строки в текстовом документе, записать в массив "a"?
Как числа, которые после 1-ой строки в текстовом документе, записать в массив &quot;a&quot;? input.txt: 3 3...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru