VPF::[Delphi]Файлы.Вывод текста после Х-слова

Нэраварин

Дата 21.5.2009, 16:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 46
Регистрация: 9.3.2009

Репутация: нет
Всего: нет

Здравствуйте уважаемые форумчане!
Пожалуйста помогите с задачей
Суть задачи такова :-
Прочитать текстовый файл, в котором хранятся одна статья уголовного кодекса, состоящая из одного единственного пункта. Отделить от этой статьи санкцию, если известно, что она начинается со слов <наказывается> или <наказываются>.

Т.е. найти слово в тексте и вывести ПОСЛЕ него остальной текст. С открытием текстового файла, и поиском в нём слова кое как разобрался, а свыводом после него неразобрался в этом и нужна ваша помощь smile

Код


procedure TForm2.OpenX(FileName: string);
var
  F : textfile;
  I : integer;
begin
  AssignFile(f,FileName); Reset(f);
  i:=0 ;
    While not EOF(f) do begin
      Inc(i); Setlength(x,i);
      Read(f,x[i-1]);  //здесь читаем наш файл и массив 
      ReadLn(f);
     end;
  CloseFile(f);
  Sort;
  GetY;
end;

procedure TForm2.Sort;
Var
  s,t : String;
  n,I,J : integer;
begin
  S:='наказываются'; j:=0; t:='';
  for i:=0 to  Length(x)-1 do begin  
    t:=t+x[i];
   If Pos(s,t)<>0 then begin //ищу это самое слово
   //Если  найдено как вывести остальной текст после него?
  //Думал что нужен какой то счётчик позиции который будет использоватся в цикле 
 //как старт с определёного места ну ест-но после найденого слова, но нихрена непонимаю
// как закодить вобщем ПОмогите кто чем Может:-)

А вот как вывести ПОСЛЕ этого самого слова остальной текст нивкакую неполучается! smile

Пожалуйст апомогите примерчиком в виде кода smile

Это сообщение отредактировал(а) Нэраварин - 23.5.2009, 11:54

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »