[papa_serg]

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

[robt]

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

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

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

[PS11011010]

Ищешь первое вхождение , или . в текст. Допустим, pos(',',s)=7 (s - это каждая строка memo), а pos ('.',s)=5. В этом случае Делаешь цикл

Код:

while s[5]='.' or ',' do 
 delete(s,5,1);

Ищешь следующее вхождение...

[cotseec]

Код:

Memo1.Text:=StringReplace(Memo1.Text, ',', '',[rfReplaceAll]);

удалит все запятые

[Ildar-tsr]

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

Код:

Memo1.Text:=StringReplace(Memo1.Text, ',', '',[rfReplaceAll]);

удалит все запятые

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

...лишние точки и запятые...

А вообще robt верно подметил, нужно просто правильно строку формировать, а не резать ее потом как попало.

[PS11011010]

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

Код:

Memo1.Text:=StringReplace(Memo1.Text, ',', '',[rfReplaceAll]);

удалит все запятые

Все-то зачем? Первую не надо оставлять?

[Kailon]

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

Код:

Memo1.Text:=StringReplace(Memo1.Text, ',', '',[rfReplaceAll]);

удалит все запятые

Вопрос автору темы...
И не ужели удаление всех запятых в тексте решение твоей проблемы? А как же быть с теми запятыми которые на своих местах стоят?

[Ildar-tsr]

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

Вопрос автору темы...
И не ужели удаление всех запятых в тексте решение твоей проблемы? А как же быть с теми запятыми которые на своих местах стоят?

Offtop наверно: А где автор сказал, что этот метод ему подходит?

[Pyro]

вобще непонятно откуда эти запятые и зачем их убирать,
но если stringrepace-ом, то можно так:

PHP код:

type
  my1 = record from,to_:string end;
  my2 = array[0..7] of my1;
const replaces: my2 = (
                         (from:', '; to_:','),
                         (from:' ,'; to_:','),
                         (from:' .'; to_:'.'),
                         (from:'. '; to_:'.'),
                         (from:',,'; to_:','),
                         (from:',.'; to_:','),
                         (from:'.,'; to_:'.'),
                         (from:'..'; to_:'.')
                       );
function cleanonce(s: string): string;
var i: integer;
begin
  for i := 0 to high(replaces) do
    s := StringReplace(s, replaces[i].from, replaces[i].to_, [rfReplaceAll]);
  result := s;
end;
function clean(s: string): string;
begin
  while s <> cleanonce(s) do s := cleanonce(s);
  result := s;
end;