Здесь показаны различия между двумя версиями данной страницы.
Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
subjects:programming:pascal:standard_functions [2023/04/25 16:19] ¶ [Пример замены] |
subjects:programming:pascal:standard_functions [2023/04/25 17:32] ¶ [Пример замены] |
||
---|---|---|---|
Строка 60: | Строка 60: | ||
==== Пример замены ==== | ==== Пример замены ==== | ||
- | <code pascal> | + | Можно самому написать функцию, которая бы заменяла подстроку в строе. Например, вот так: |
- | i := pos(s_old,s); | + | <code pascal strReplace.pas> |
- | delete(s,i,l_old); | + | function strReplaceOnce(s_txt, s_from, s_to :string): string; |
- | insert(s_new,s,i); | + | var |
+ | i_pos, len_from:integer; | ||
+ | begin | ||
+ | i_pos := pos(s_from, s_txt); // Номер символа первого вхождения | ||
+ | len_from := Length(s_from); // Длинна строки для замены | ||
+ | if (i_pos > 0) and (len_from > 0) then begin | ||
+ | delete(s_txt, i_pos, len_from); // Удаляет строку | ||
+ | insert(s_to, s_txt, i_pos); // Вставляет нужную строку | ||
+ | end; | ||
+ | strReplaceOnce := s_txt; // Возвращает результат после всех действий | ||
+ | end; | ||
+ | |||
+ | function strReplaceAll(s_txt, s_from, s_to :string): string; | ||
+ | begin | ||
+ | while (pos(s_from, s_txt) > 0) do begin | ||
+ | s_txt := strReplaceOnce(s_txt, s_from, s_to); | ||
+ | end; | ||
+ | strReplaceAll := s_txt; | ||
+ | end; | ||
+ | |||
+ | begin | ||
+ | writeln(strReplaceOnce ('2-3 0123456789-23-23', '23', 'aaaB')); // 2-3 01aaaB456789-23-23 | ||
+ | writeln(strReplaceAll ('2-3 0123456789-23-23', '23', 'aaaB')); // 2-3 01aaaB456789-aaaB-aaaB | ||
+ | end. | ||
</code> | </code> | ||
- | - Функция ''pos(subs, s)'' ищет вхождение подстроки subs в строке s и возвращает номер первого символа subs в s или нуль, если subs не содержится в s. | ||
- | - Процедура ''delete(s, start, len)'' удаляет из строки s, начиная с позиции start, подстроку длиной len. | ||
- | - Процедура ''insert(subs, s, start)'' вставляет в строку s подстроку subs, начиная с позиции start. | ||
- | - Если в строке несколько одинаковых подстрок, которые требуется заменить на новую подстроку, то следует воспользоваться циклом | ||
- | | ||
==== Преобразование типов ==== | ==== Преобразование типов ==== | ||
|Функция|Описание|Пример|| | |Функция|Описание|Пример|| |