Избавится от лишних запятых в тексте

[papa_serg]

Здравствуйте, есть текст в memo, подскажите, как из него вырезать лишние запятые и точки?
Грубо говоря, текст выглядит следующим образом:
"20 мая в ледовом дворце спорта ЦСК ВВС завершился первый чемпионат Самарской любительской хоккейной лиги. , , , , . , . , . . . , 5. , 5. ,. , . . , . . ,. , . . В финальной серии плей-офф группы "А" играли "Мир" и "Камелот". Для выявления победителя хоккейного сезона понадобилось провести две встречи. ".
По какому алгоритму, можно было бы вырезать выделенные жирным, лишние точки и запятые?
Спасибо!

[Noor]

примерно так, код не проверял.Тут проверяется

var
i:integer;
s:string;
begin
  s:='хоккейной лиги. , , , , . , . , . . . , 5. , 5. ,. , . . , . . ,. , . . В финальной ';
  for i:=0 to Length(s)-1 do
  begin
  if (s[i]=',') and (s[i+2]=',')then
  delete(s,i,3);
  end;
  writeln(s);

end.

Находим запятую и второй символ после нее, если и он запятая то удаляем 3 символа начиная от найденной запятой.Тоже самое нужно проделать и с точками и с точками и запятыми

[FaTaL]

Прогнаться циклом по символьно и сравнивать два рядом находящихся символа например. Способов конечно много разных напридумывать.

[unbanned]

Noor,

var
i:integer;
s:string;
begin
  s:='хоккейной лиги. , , , , . , . , . . . , 5. , 5. ,. , . . , . . ,. , . . В финальной ';
  for i:=0 to Length(s)-1 do
  begin
  if (s[i]=',') and (s[i+2]=',')then
  delete(s,i,3);
  end;
  writeln(s);

end.

верно работать не будет... т.к. у тебя цикл перебирает индексы, и в этом же цикле ты изменяешь длину строки...


papa_serg,
что должно остаться между 5ками? "5.5."? или "5,5." или же "5 5."?

[denisbrain]

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

Noor,

var
i:integer;
s:string;
begin
  s:='хоккейной лиги. , , , , . , . , . . . , 5. , 5. ,. , . . , . . ,. , . . В финальной ';
  for i:=0 to Length(s)-1 do
  begin
  if (s[i]=',') and (s[i+2]=',')then
  delete(s,i,3);
  end;
  writeln(s);

end.

верно работать не будет... т.к. у тебя цикл перебирает индексы, и в этом же цикле ты изменяешь длину строки...


papa_serg,
что должно остаться между 5ками? "5.5."? или "5,5."?

var
i:integer;
s:string;
begin
  s:='хоккейной лиги. , , , , . , . , . . . , 5. , 5. ,. , . . , . . ,. , . . В финальной ';
  for i:=Length(s)-1  downto 1 do
  begin
  if (s[i] in [',','.'] ) and (s[i-2] in [',','.']) then
  delete(s,i,2);
  end;
  writeln(s);

end.

[unbanned]

denisbrain
у тебя остаются лишние пробелы...

тогда уже как-то так

var
  s: string;

begin
  s := '20 мая в ледовом дворце спорта ЦСК ВВС завершился первый чемпионат Самарской любительской хоккейной лиги.
 , , , , . , . , . . . , 5. , 5. ,. , . . , . . ,. , . . В финальной серии плей-офф группы "А" играли "Мир" и "Камелот". 
Для выявления победителя хоккейного сезона понадобилось провести две встречи. ';
  while (pos(' ,', s) > 0) or (pos(' .', s) > 0) or (pos('..', s) > 0) or (pos(',,', s) > 0) do 
  begin
    if pos(' ,', s) <> 0 then delete(s, pos(' ,', s), 2);
    if pos(' .', s) <> 0 then delete(s, pos(' .', s), 2);
    if pos('..', s) <> 0 then delete(s, pos('..', s), 2);
    if pos(',,', s) <> 0 then delete(s, pos(',,', s), 2);
  end;
writeln(s);
end.

возможно коряво, но тем не менее лишних пробелов не оставляет
да и цикл выполняется всего 13 раз, против где-то 300

кстати для memo это применимо только в таком виде...

  for i := 0 to mmo1.Lines.Count - 1 do
    s := s + trimleft(mmo1.Lines[i]);
  while (pos(' ,', s) > 0) or (pos(' .', s) > 0) or (pos('..', s) > 0) or
    (pos(',,', s) > 0) do
  begin
    if pos(' ,', s) <> 0 then
      delete(s, pos(' ,', s), 2);
    if pos(' .', s) <> 0 then
      delete(s, pos(' .', s), 2);
    if pos('..', s) <> 0 then
      delete(s, pos('..', s), 2);
    if pos(',,', s) <> 0 then
      delete(s, pos(',,', s), 2);
  end;
  mmo1.Lines.text := s;