Различия

Здесь показаны различия между двумя версиями данной страницы.

--- subjects:programming:pascal:standard_functions [2023/03/09 17:35]
¶ [Преобразование типов]
+++ subjects:programming:pascal:standard_functions [2023/04/25 17:32] (текущий)
¶ [Пример замены]
@@ Строка 57: / Строка 57: @@
 ^Insert|Вставка строки внутрь другой строки|<code pascal>s6:='Рука'; s7:='баш';
 Insert(s7,s6,3); //s6=’Рубашка’;</code>||
+==== Пример замены ====
+Можно самому написать функцию, которая бы заменяла подстроку в строе. Например, вот так:
+<code pascal strReplace.pas>
+function strReplaceOnce(s_txt, s_from, s_to :string): string;
+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>
 ==== Преобразование типов ====

wiki.eduVdom.com

Инструменты пользователя

Инструменты сайта

Различия

Инструменты страницы

Записаться на занятия