Удаление повторяющихся значений в строке

[aimk0]

Имеется строка типа string, например 001015235015, здесь данные надо рассматривать по 3 символа, т.е. 001,015,235,015. Необходимо удалить повторяющиеся значения, т.е. для написанной выше строки должно получится 001015235.
Задаваемая строка может быть разных размеров, но она всегда кратна 3-ем.
Помогите разобраться, буду очень признателен!

[Don Karleone]

ну а мысли какие-нибудь свои есть?

[aimk0]

Don Karleone, Ну думаю надо вначале разбить строку по 3 символа и записать все то в массив,
как-то так

var str,ceh, str2:string;
i:integer;
mas:array of string; // как задать?
begin
str2:='';
for i:=0 to round(length(str)/3)-1 do begin
ceh:='';
ceh:=copy(str,i*3+1,3);
mas[i+1]:=ceh;
end;
for i:=1 to round(length(str)/3)-1 do begin
if mas[i]=mas[i+1] then begin удаляем mas[i+1] // как удалить?
end;
for i:=1 to (до длины массива mas) do begin
str2:=str2+mas[i];
end;

где str исходная строка, mas - массив строк. Но как тогда описать массив, если размер строки может быть разным

[Serge_Bliznykov]

1) язык программирования (точнее среда) какая? Pascal или Delphi ?

2) если Pascal то массив можно смело задавать
type Str3 = string[3];
var
Mas[0..85] of Str3; {строка 256 символов не может содержать более 86 элементов}

3) перед добавлением очередной тройки чисел просто проверяйте, если такая уже в массиве есть - то проверяемую подстроку просто НЕ ДОБАВЛЯТЬ! (и не надо никаких удалений)

4) если Delphi то можно через методы TSTringList всё быстро и красиво сделать..

[VadEr]

предположу, что лучше будет, если пробежаться в цикле по строке - каждый раз брав 3 символа и попытаться их найти в оставшейся части строки. Если первых 3-х символа (1,2,3) не найдено, передвигаемся на на один символ (2,3,4) и пытаемся найти данную троицу в оставшейся части, если найдено - то удаляем эти 3 символа и так продолжаем до предпоследней троицы.

p.s. пригодятся функции pos, copy, delete.

[aimk0]

Serge_Bliznykov

1) Среда Delphi 7

2) С TSTrungList не работал... Может покажете как через эти методы сделать?

SetLength(mas, round(length(str)/3));
for i:=0 to round(length(str)/3)-1 do begin
ceh:='';
ceh:=copy(str,i*3+1,3);

в этом цикле я так понимаю надо проверять подстроку на ее наличие в массиве, только вот не пойму как

[Don Karleone]

как вариант без использования массива:

var
  s1, a, str: string;

begin
  readln(str);
  s1:=str;
  str:='';
  while Length(s1) > 0 do
      begin
          a:=copy(s1,1,3);
          str:=str + a;
          while pos(a,s1)<>0 do
              Delete(s1,pos(a,s1),3);
      end;
  writeln(str);
  readln;
end.

[Serge_Bliznykov]

Don Karleone, алгоритм ОШИБОЧЕН! Будет рубить и неповторяющиеся данные!

проверьте, например, на строчке: str := '111112211113';
(строка состоит из 4-х неповторяющихся триад- 111 112 211 113
и посмотрите, что вернёт Ваша программа...

TSTrungList не работал... Может покажете как через эти методы сделать?

да не вопрос.

procedure TForm1.Button1Click(Sender: TObject);
var str, s1 : string;
   TS : TStringList;
   i, k : integer;
begin
 str := Edit1.Text;
 TS := TStringList.Create;
 i:=1;
 while i<= (Length(str) div 3)*3 do begin
    s1 := Copy(str, i, 3);
    inc(i,3);
    if TS.IndexOf(s1)<0 then
         TS.Append (s1);
 end;

 str := '';
 for i:=0 to TS.Count-1 do str := str + ts.Strings[i];

 FreeAndNil(TS);

 Edit2.Text := str;
end;

p.s. остаток строки, некратный 3-м просто отбрасывается... Но при желании можно его переносить в выходную строку...