Шпоры по МПиПА / Строки / Алгоритм замены одной подстроки другой / Pascal / Описание / Алгоритм замены одной подстроки другой

Алгоритм замены одной подстроки другой.

Входные данные - str - строка, в которой производятся замены, oldsubstr - подстрока, которую заменяют, newsubstr - подстрока, на которую заменяют,.

Выходные данные - строка с учетом произведенных замен.

Были использованы вспомогательные функции:

1. getSubstring(str: MyString; first, last : integer) : MyString - взятие подстроки;

2. concatenate( str1,str2: MyString ) : MyString – конкатенация строк;

3. equals(str1, str2 : MyString) : Boolean – функция проверки равенства строк.

Код: replace.pas.

Исполняемый файл: replace.exe.

Примеры использования (распечатка листинга):

Find And Replace Algoritm.

String: hello World, hello

Old Substring: hello

New Substring: goodbye

Result: goodbye World, goodbye

Press any key to continue...

Find And Replace Algoritm.

String: dog cat table bird

Old Substring: table

New Substring:

Result: dog cat bird

Press any key to continue...

Find And Replace Algoritm.

String: hello World, hello

Old Substring:

New Substring: goodbye

Result: Old Substring must have length > 0

Press any key to continue...

Find And Replace Algoritm.

String: parameter

Old Substring: a

New Substring: u

Result: purumeter

Press any key to continue...