[Rocat]

имеется текстовый файл с данными. небходимо написать процедурку которая будет записывать текст в ячейку стрингГрид-а, находящийся между двух определенных подстрок, например:
<условие>
нужный текст
<#условие>
понимаю что надо читать файл до тех пор, пока не встретим необходимую комбинацию символов...как реализовать?..

[R-18Rus]

Файл можно и не читать. Есть функция POS.

Код:

var a,b:char;

a:=pos('первое что ищем', номер строки);
b:=pos('второе что ищем', номер строки);

Текст между этими pos'ами будет

Код:

copy(строка,a - начало,b-a+1 - количество символов)

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

Работает только с одной строкой. Но в ячейку тоже всё одной строкой придётся записывать. А вот текст между несколькими строками уже не знаю как вычленить.

[Rocat]

Сообщение от R-18Rus

Файл можно и не читать. Есть функция POS.

но я ведь не знаю, в какой строке окажется это слово. может можно как то перевести текст в массив строк?

[YVitaliy]

Сообщение от R-18Rus

Код:

var a,b:char;

a:=pos('первое что ищем', номер строки);
b:=pos('второе что ищем', номер строки);

Функция pos возвращает все-таки значение типа integer, значит

Код:

var a,b:integer;

И ищет она не в номере строки, а в самой строке, отсюда:

Код:

a:=pos('первое что ищем', Строка);
b:=pos('второе что ищем', Строка(или "строка[номер]"-смотря откуда она);

Все остальное кажись верно, только copy - тоже функция, отсюда

Код:

StringGrid1.Cells[aCol, aRow]:=copy(строка,a,b-a+1);

[angvelem]

Можно "читать" файл в цикле для поиска нужной строки, можно сразу загрузить всё в StringList и использовать его возможности по поиску.

[YVitaliy]

Можешь загружать файл в стринглист, тогда его свойство Text будет содержать все строки файла:

Код:

var StrLst:TStringList;
a,b:integer;
begin
strlst:=TStringList.Create;
StrLst.LoadFromFile('путь к файлу');
a:=pos(substr1, StrLst.Text);
b:=pos(substr2, StrLst.Text);
StringGrid1.Cells[aCol, aRow]:=copy(StrLst.Text,a+length(substr1),b-(a+length(substr1))+1);
StrLst.Free.
end;

[R-18Rus]

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

a+length(substr1)

Это будет начало того, чего искали? По-моему это конец.
А с переменными спутал маленько, извините.

[NumLock]

для начала: какой макс. размер файла? байты, Кб, Мб, Гб, Тб?

[M.A.D.M.A.N.]

Дядя, учи регэкспы.

[Rocat]

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

для начала: какой макс. размер файла? байты, Кб, Мб, Гб, Тб?

исходный файл латеховский, размер в Мб.вот что получилось у меня, из наброска(читает файл, заносит нужное в ячейку):

Код:

 var Fz: textFile;
    us, kus, st: string;
    k, k1, l, j: integer;
    Flag: boolean;
    curline:word;
begin
  AssignFile(Fz, 'B_z.txt');
  Reset(Fz);
  curline:=0;
  while not Eof(Fz) do
  begin
    flag:=false;
    while (not flag)and(not Eof(Fz)) do
    begin
      readln(Fz, st);
      k:=pos('<zadacha>',st);
      flag := (k<>0);
    end;
    inc(curline);
    Sg_data.RowCount:=Sg_data.RowCount+1;

    while (flag)and(not Eof(Fz)) do
      begin
        readln(Fz, st);
        k:=pos('<zadacha>',st);
        flag := (k<>0);

        Us:='<*uslovie>';
        kUs:='<#'uslovie>;

        k:=Pos(Us, st);
        if k<>0 then
        begin
          readln(Fz, st);
          k1:=Pos(kUs,st);
          while k1=0 do
          begin
            Sg_data.Cells[1, curline] :=Sg_data.Cells[1, curline]+' '+st;
            readln(Fz, st);
            k1:=Pos(kUs,st);
          end;
        end;

        Us:='<uslovie>';
        kUs:='<#uslovie>';
        k:=Pos(Us, st);
        if k<>0 then
        begin
          readln(Fz, st);
          k1:=Pos(kUs,st);
          while k1=0 do
          begin
            Sg_data.Cells[1, curline] :=Sg_data.Cells[1, curline]+' '+st;
            readln(Fz, st);
            k1:=Pos(kUs,st);
          end;
        end;
      end;
  end;
  closefile(fz);
end;