Задача на строки, помогите разобраться Опции

[DIasT]

В общем задача состоит в следующим: Дана последовательность символов. Заменить все восклицательные знаки на точки, все точки на многоточие, ряды тоящих рядом точек одной точкой.
Например a!!.bc....d..e.! => a.....bc.d.e....

в общем вот что у меня получилось:

var
  s: string;
  p: integer;

begin
  s := 'a!!bc....d..e.!';
  repeat
    p := pos('!', s);
    if p > 0 then begin
      delete(s, p, length('!'));
      insert('.', s, p);
    end;
  until p = 0;
  writeln(s);
end.

восклицательные знаки заменяются нормально. Но при добавлении такого же цикла для точек он уходит в себя. Как сделать правильно?

Еще вопрос как превратить последовательность рядом стоящих точек в одну. Я нашел только как превращать последовательность ЛЮБЫХ символов в один.

var s:string;
var i:integer;
begin
s:='a!!bc....d..e.!';
for i:=1 to ord(s[0]) do
while (s[i]=s[i+1]) and (I<length(s)) do
delete (s,i,1);
writeln(s);
end.

Помогите решить задачку. Или дайте ссылку на подобную (то что я нашел - написал выше)
Заранее благодарен.

Сообщение отредактировано: DIasT - 9.05.2007 18:39

[klem4]

В следующий раз создавай отдельную тему.

function _pos(s: String; count, curr: Byte): Byte;
begin
  if (count = curr) then _pos := 0 else begin
    inc(curr);
    _pos := Pos(':', s) + _pos(Copy(s, Pos(':', s) + 1, 255), count, curr);
  end;
end;

var
  s: String;
begin
  s := '12345:XXX:YYY:RRR:GGGF:8888';
  writeln(
   Copy(s, _pos(s, 1, 0) + 1, _pos(s, 2, 0) - _pos(s, 1, 0) - 1) +
   Copy(s, _pos(s, 3, 0) + 1, _pos(s, 4, 0) - _pos(s, 3, 0) - 1)
  );
end.

Сообщение отредактировано: klem4 - 10.05.2007 18:20

[DIasT]

В следующий раз создавай отдельную тему.

Ок, учту.

Спасибо большое, очень выручил.