Как сделать выборку, из txt Опции

[conqu]

Всем доброго времени суток,
Ситуация: есть текстовый файл, в нём записан каталог товаров в виде: строка (несколько слов) - название, на следующей строке - цена, ниже пустая строка и следующий товар в том же формате.
Нужно реализовать такую вещь: пользователь вводит слово, по нему осуществляется поиск и делается выборка тех товаров, в названии которых встречается искомое слово.
Вопрос: подскажите плз, как это сделать, у меня проблема с тем, что названия товаров состаят из 3-7 слов, везде по разному + не знаю, как организовать разделение товаров для скрипта, как вообще осуществляется перемещение указателя на следующую строчку, при чтении из файла. Иными словами: как сделать так, чтобы если в строке встречается заданное слово, скрипт её выводил + следующую, потом проскакивал пустую и делал поиск в следующей строке.
Заранее благодарен.

[volvo]

Читать всю строку полностью (неважно, сколько в ней слов, главное - чтоб было меньше 256 символов) через ReadLN(f, s), искать в ней подстроку через Pos, и проверять результат... Ну, а "проскочить" пустую строку - пустым ReadLN(f) ...

[conqu]

спасибо, приведи пожалуйста кусок кода..
для базы:
ААА ПП
22

ЕЕ ПП
55

Если не трудно, конечно..

[volvo]

В чем сложность?

Write('query = '); ReadLn(query);
while not eof(f) do begin
  readln(f, s);
  if pos(query, s) > 0 then begin
    readln(f, price) { <--- если название совпало - читаем цену }
    writeln('found: ', s, ' -> ', price); { <--- и выводим на печать ... }
  end;
  else readln(f); { <--- иначе - пропускаем строку с ценой }

  readln(f); { <--- Пустую строку пропускаем в любом случае }
end;

[conqu]

Большое спасибо, проблема решена!

[conqu]

Вероятно я туплю жутко, но у меня не работает, Error 113: Error in statment , после else. Не понимаю, без else всё работает, а с ним не хочет, в чём может быть ошибка?

__
добавлено: если убрать ; после end перед else - работет, но выводит только одну запись, первую, где встретится нужное слово, а не все..

Сообщение отредактировано: conqu - 12.12.2006 1:17

[volvo]

Там точка с запятой (перед Else) не нужна просто... Убери ее, и все заработает.

[conqu]

если убрать ; после end перед else - работет, но выводит только одну запись, первую, где встретится нужное слово, а не все..

[volvo]

Не может быть... Тогда показывай программу ПОЛНОСТЬЮ. Чего-то ты намудрил...

[conqu]

Programm test;

USES CRT;

var
 f:text;
 name,s,query,price: string[80];
 
BEGIN
 assign(f,'n:\base.txt');
 reset (f);
 
 Write('query=');
 Readln(query);
 
 while not eof(f) do
  begin
  
   readln(f,s);
   if pos(query,s) > 0 then
    begin
	  readln(f,price);
	  writeln ('found:',s,'->',price);
	end
    else readln(f);
	
	readln(f);
	end;
end.	

[volvo]

Ты это здесь набирал? Тогда меня ЭТО не интересует, ты уже внес ошибки при наборе... Я в "глухие телефоны" не играю. Присоединяй аттачем ТВОЙ файл, который у тебя не работал, ибо то, что есть в предыдущем посте ДАЖЕ не скомпилируется!

[conqu]

Нет, я оттуда брал, может случайно что-то менял, вот копия из бэкапа, работает, проверял.

Program TTP;

USES CRT;

var
 f: text;
 name,s,query,price: string[80];



BEGIN
 assign(f,'n:\ttp.txt');
  reset (f);

  Write('query=');
  Readln(query);

  while not EoF(f) do
   begin

     readln(f,s);
    if pos(query, s) > 0 then
      begin
         readln(f,price);
         writeln ('found:',s,'->',price);
      end
    else readln(f);

    readln(f);
   end;

end.

База(кусок):
ttp.txt :
Macromedia Flash 8 работа с анимацией и графикой
470

Macromedia Flash 8 Action Script официальное руководство
709

PHP 5 самое полное руководство
402

Л.Н. Толстой Война и мир
660

Л.Н. Толстой Анна Каренина
760

М. Булгаков Собачье сердце
350

М. Булгаков Мастер и Маргарита
350

А.П. Чехов Собрание сочинений
350

М. Горький Собрание сочинений
350

А.Н. Толстой Собрание сочинений
350

[conqu]

Заработало, нашёл ошибку. Спасибо за помощь, сорри за тупизм )