Последние записи

made in programmersforum 4

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

24th
Фев

Замена символов на латинские

Posted by maloy under Delphi, Архив

Kib

В общем заменяю символы так:

Код:

...
Prefics:=StringReplace(Prefics,'Г','G',[rfReplaceAll, rfIgnoreCase]);
...

— но так очень много кода получается(и вычислений), а так же боюсь что то пропустить.

Мне нужно чтоб все русские буквы были заменены на латинские(А=A,а=a,Б=B,б=b,В=V,в=v, и т.д.), а символы ~!@#$%^&*() и т.д. убирались.

Кам можно это сделать не перечисляя все символы?

Serge_Bliznykov

проще всего использовать такой подход:

Код:

const


  table1='абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
  Table2 : array[1..66] of string =(
   'a','b','v','g','d','e','e','zh','z','i','i','k','l',
   'm','n','o','p','r','s','t','u','f','kh','ts','ch','sh',
   'shc','"','y','''','e','yu','ya ',
   'A','B','V','G','D','E','E','ZH','Z','I','I','K','L',
   'M','N','O','P','R','S','T','U','F','KH','TS','CH','SH',
   'SHC','"','Y','''','E','YU','YA';
...
begin
   NewS := '';
   for i:=1 to Length(s) do
    if Pos(s,table1) > 0 then
       NewS := NewS + Table2[Pos(s,table1)]
    else
       NewS := NewS + s;
    Result:=NewS;
end;

Последние записи

made in programmersforum 4

Замена символов на латинские

Похожие статьи

Купить рекламу на сайте за 1000 руб

пишите сюда - alarforum@yandex.ru