Работа со String

[SoftKoc]

Здравствуйте!

Люди помогите пожалуйста мне нужно реализовать вот такие методы.

1 - Копирование - копирование части строки заданной длины с заданной позиции.
2 - Удаление - удаление части строки заданной длины с заданной позиции.
3 - Поиск - поиск подстроки в строке.

Все это нужно реализовать не стандартным методом, использовать "Copy, Pos" - нельзя.

Заранее очень благодарен.

[alex_fcsm]

Решения в лоб

Передаем позицию, с какой начинать и кол-во символов для копирования или удаления
1. В цикле переписывать с заданной позиции символы

 for i:=a to a+len do
  output:=output+input[i];

2. Также в цикле перебрать строку в цикле

 for i:=1 to length(input) do
 if (i<a)or(i>(a+len)) then output:=output+input[i];

3.

  flag:=false;//признак того что начали проверять совпадения
  n:=0;// количество совпдаений
  pos:=0;
for i:=1 to length(input) do
     begin
      if n=length(ouput) then pos:=i-n+1;
      if flag then
              begin
               if output[n]<>input[i] then 
                                                    begin
                                                     flag:=false;
                                                     n:=0;
                                                    end
                 else inc(n);
              end;
       if output[1]=input[i] then begin
                                           flag:=true;
                                           n:=2;
                                          end;
     end;

Не проверял, попробуйте доделать если понравилась идея

[SoftKoc]

Хороший метод, может кто-то еще что-то предложит.

[alex_fcsm]

Проверил - вроде работает

  function pos(inp,ou:string):integer;
  var  n,i:integer;
       flag:boolean;

  begin

  flag:=false;//признак того что начали проверять совпадения
  n:=0;// количество совпдаений
  pos:=0;
for i:=1 to length(inp) do
     begin
      if n=length(ou) then pos:=i-n+1;
      if flag then
              begin
               if ou[n]<>inp[i] then
                                                    begin
                                                     flag:=false;
                                                     n:=0;
                                                    end
                 else inc(n);
              end;
       if ou[1]=inp[i] then begin
                                           flag:=true;
                                           n:=2;
                                          end;
     end;
end;

function del(a,len:integer;inp:string):string;
var i:integer;
    st:string;
begin
 st:='';
 for i:=1 to length(inp) do
 if (i<a)or(i>(a+len-1)) then st:=st+inp[i];
 del:=st;
end;

function cop(a,len:integer;inp:string):string;
var i:integer;
    st:string;
begin
 st:='';
  for i:=a to a+len-1 do
  st:=st+inp[i];
 cop:=st;
end;


begin
writeln(cop(1,3,'123456'));
writeln(del(1,3,'123456'));
writeln(pos('321234','123'));
end.

Входные параметры можно поменять местами при желании и наличии религиозных предубеждений))

[Utkin]

Сообщение от SoftKoc

Хороший метод, может кто-то еще что-то предложит.

А что Вас в предложенных не устраивает? Просто запросы какие-то у Вас странные - сначала помогите, потому давайте еще. Сказку о золотой рыбке не напоминает? Если Вам нужно другое решение аргуметируйте почему.

[SoftKoc]

Сообщение от Utkin

А что Вас в предложенных не устраивает? Просто запросы какие-то у Вас странные - сначала помогите, потому давайте еще. Сказку о золотой рыбке не напоминает? Если Вам нужно другое решение аргуметируйте почему.

#4 - пост меня полностью устраивает.
Спасибо большое.

[SoftKoc]

Люди помогите кто-то. Вот есть функция, вроде по ней все понятно. Но не до конца, Опишите пожалуйста ее принцип на русском для полного понимания.

function pos(inp,ou:string):integer;
  var  n,i:integer;
       flag:boolean;

  begin

  flag:=false;//признак того что начали проверять совпадения
  n:=0;// количество совпдаений
  pos:=0;
for i:=1 to length(inp) do
     begin
      if n=length(ou) then pos:=i-n+1;
      if flag then
              begin
               if ou[n]<>inp[i] then
                                                    begin
                                                     flag:=false;
                                                     n:=0;
                                                    end
                 else inc(n);
              end;
       if ou[1]=inp[i] then begin
                                           flag:=true;
                                           n:=2;
                                          end;
     end;
end;

Заранее очень благодарен.