Работа с текстом

[MSD]

Добрый день мастера, подскажите пожалуйста по работе с текстом в котором есть разделители.... Например есть тест:
Саша,Маша, Гриша, Иван,Самолет,Степа
Опа,Жизнь, Гриша, Кирил, Кран, Автобус и.т.д.
строк много, как сделать так чтобы остался текст только между третьей и 4 запятой..? Пробелов может быть разное колличество между словами.... Спасибо!!!

[Sazary]

Ну будет счетчик запятых.
Идете посимвольно по тексту. Пропускаете все пробелы.
Если встретили запятую - увеличиваем счетчик.
Если счетчик = 3, то при проходе пишем символы куда надо. Если счетчик = 4, то выходим.

Как-то так.

[MSD]

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

Ну будет счетчик запятых.
Идете посимвольно по тексту. Пропускаете все пробелы.
Если встретили запятую - увеличиваем счетчик.
Если счетчик = 3, то при проходе пишем символы куда надо. Если счетчик = 4, то выходим.

Как-то так.

Я понимаю что как то так...)) А как реализовать... а новечек совсем...)

[Sazary]

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

А как реализовать... а новечек совсем...)

Все сначала новички.

Кидайте на форму 2 Мемо. Первый - для исходного текста, второй - для того, что нужно отобрать.
Еще нужна кнопка.
В обработчик кнопки пишете:

procedure TForm1.Button1Click(Sender: TObject);
var i,cnt,len : integer;

Здесь i - счетчик для прохода по тексту.
cnt - счетчик запятых
len - длина исходного текста.

Дальше тело обработчика.
Очистим Мемо2, чтобы там не было ничего лишнего.

Memo2.Clear;

Найдем длину текста:

len := length(Memo1.Text);

Обнулим счетчик запятых. А переменной i присвоим единицу.
Дальше запускаем цикл:

while i<=len do
 begin
 ..................
 end;

В этом цикле мы пройдем по тексту.
Для начала, пропустим все пробелы:

 while (i<=len) and (Memo1.Text[i]=' ') do inc(i);

Пробелы пропустили. Теперь проверяем, не является ли текущий символ запятой.
Если является, то увеличиваем счетчик запятых и счетчик i.
Теперь перед нами текст. Пройдем по нему до первого пробела или запятой. И если cnt = 3, то будем писать символы в Memo2.

while (i<=len) and (Memo1.Text[i]<>',') and (Memo1.Text[i]<>' ') do
  begin
  if cnt=3 then Memo2.Text := Memo2.Text + Memo1.Text[i];
  inc(i);
  end;

-------------------
А теперь соедините это все вместе и получите рабочую программу.

[MSD]

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

Все сначала новички.

Кидайте на форму 2 Мемо. Первый - для исходного текста, второй - для того, что нужно отобрать.
Еще нужна кнопка.
В обработчик кнопки пишете:

procedure TForm1.Button1Click(Sender: TObject);
var i,cnt,len : integer;

Здесь i - счетчик для прохода по тексту.
cnt - счетчик запятых
len - длина исходного текста.

Дальше тело обработчика.
Очистим Мемо2, чтобы там не было ничего лишнего.

Memo2.Clear;

Найдем длину текста:

len := length(Memo1.Text);

Обнулим счетчик запятых. А переменной i присвоим единицу.
Дальше запускаем цикл:

while i<=len do
 begin
 ..................
 end;

В этом цикле мы пройдем по тексту.
Для начала, пропустим все пробелы:

 while (i<=len) and (Memo1.Text[i]=' ') do inc(i);

Пробелы пропустили. Теперь проверяем, не является ли текущий символ запятой.
Если является, то увеличиваем счетчик запятых и счетчик i.
Теперь перед нами текст. Пройдем по нему до первого пробела или запятой. И если cnt = 3, то будем писать символы в Memo2.

while (i<=len) and (Memo1.Text[i]<>',') and (Memo1.Text[i]<>' ') do
  begin
  if cnt=3 then Memo2.Text := Memo2.Text + Memo1.Text[i];
  inc(i);
  end;

-------------------
А теперь соедините это все вместе и получите рабочую программу.

Что то не работает, Мемо2 пустым остается..... ((( Почему?

[Sazary]

Что то не работает, Мемо2 пустым остается..... ((( Почему?

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

[MSD]

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

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

procedure TForm1.Button1Click(Sender: TObject);
var i,cnt,len : integer;
begin
Memo2.Clear;
Len := length(Memo1.Text);
while i<=len do
begin
while (i<=len) and (Memo1.Text[i]=' ') do inc(i);
end;
while (i<=len) and (Memo1.Text[i]<>',') and (Memo1.Text[i]<>' ') do
begin
if cnt=3 then Memo2.Text := Memo2.Text + Memo1.Text[i];
inc(i);
end;

end;
end.

вот.. что не так??

[Sazary]

вот.. что не так??

Я сказал, что нужно все правильно совместить.
Вы берете только куски кода, которые я выложил, но не обращаете внимания на пояснения. Некоторые места я описываю словами.

ps Когда выкладываете код, заключайте его в теги CODE ("#" на панели в окне редактирования).

[MSD]

Все равно не получается... что то не так я расставляю, подскажите как пожалуйста.

[Sazary]

Потому что нужно не просто расставлять, а думать, куда что нужно поставить. А вы это делать, похоже, не хотите.

procedure TForm1.Button1Click(Sender: TObject);
var i,cnt,len : integer;

begin
cnt := 0;
i := 1;
len := length(Memo1.Text);
Memo2.Clear;
while i<=len do
 begin
 while (i<=len) and (Memo1.Text[i]=' ') do inc(i);
 if Memo1.Text[i]=',' then
  begin
  inc(cnt);
  inc(i);
  end;
 while (i<=len) and (Memo1.Text[i]<>',') and (Memo1.Text[i]<>' ') do
  begin
  if cnt=3 then Memo2.Text := Memo2.Text + Memo1.Text[i];
  inc(i);
  end;

 end;

end;