Чтение данных из txt файла.

[werrey]

Здравствуйте.

У меня есть текстовый файл с разными данными, которые хранятся между
ключевых слов для поиска:

#cor
44:77:590:400
48:17:990:140
cor#


#vid
700:1000:490:80:70:716
200:1080:410:60:20:110
vid#



Подскажите пожалуйста, как обратиться к файлу и получить например
данные между #vid vid# и использовать их как переменные?

Что-то типа этого:

procedure TForm1.Button1Click(Sender: TObject);
var
F: TextFile;
 S: string;
begin
AssignFile(F, 'Test.txt');
 Reset(F);
Readln(F, S);
ShowMessage(S);
CloseFile(F);
end;

Спасибо за внимание.

[Пепел Феникса]

для начала, файл большой? тут проще будет его загрузить в память и там уже разобрать и сохранить блоками этими.

[Человек_Борща]

У меня была подобная задача.

Вот как смог, выдрал код

procedure TMainForm.StartParserBtnClick(Sender: TObject);
  // начало
  StartBlockPos = '=+-';
  // конец блока
  EndBlockPos = ':)';

var
  p, j: integer;
  s, sTmp: string;
  Ts, rTs: TStringList;
begin

  Ts := TStringList.Create;
  rTs := TStringList.Create;
  p := 0;
  j := 0;
  try
    Ts.LoadFromFile(OpennedFile);
    s := Ts.Text;
    sTmp := Ts.Text;

    while not(AnsiPos(StartBlockPos, s) = 0) do
    begin
      // Ищем начало нужного блока
      p := AnsiPos(StartBlockPos, s);
      // удаляем всё до найденной позиции
      Delete(s, 1, p);
      // Ищем конец блока
      p := AnsiPos(EndBlockPos, s);
      // копируем блок до позиции конка+длинна конечного блока
      rTs.Text := Copy(s, 1, p + Length(EndBlockPos));
      Delete(s, 1, p + Length(EndBlockPos));

      // результат парсинга
      SaveBlockData(rTs.Text, BlocksNum); //в rTs.Text текущий текст блока
      rTs.Clear;
    end;
  finally
    FreeAndNil(Ts);
    FreeAndNil(rTs);
  end;

end;

[werrey]

Всем большое спасибо конечно, а как просто, через Readln(F, S); это сделать?
без StringList? Провернуть весь файл циклом, найти блок, и с ним работать?

Файл будет большой, несколько тысяч строк, каждый блок, это параметры и данные, к которым нужно регулярно обращаться.

[Пепел Феникса]

Провернуть весь файл циклом, найти блок, и с ним работать?

только так если.

[werrey]

Сообщение от Пепел Феникса

только так если.

Спасибо, а можно полноценный примерчик, как это сделать, буду очень благодарен, знал бы как сделать грамотно, не спрашивал бы.

[Человек_Борща]

Файл будет большой, несколько тысяч строк, каждый блок, это параметры и данные, к которым нужно регулярно обращаться.

Напишите спец. класс который и будет хранить блоки данных в памяти.

с ними и общайтесь.

P.S. та часть кода, которая вам нужна(из моего предыдущего поста) не зависит от TStringList объекта.


Может лучше скажете, что за файл? Кто его оздаёт? И зачем он? Тогда сможем подсказать вам оптимальный путь решения проблемы общения с файлом.

[werrey]

Пока это обычный текстовый файл, создавать его не нужно(пишется в блокноте, в будущем нужна будет кодировка, но пока до этого рано), к нему обращаются разные процедуры ( каждая для своего блока), и использует данные.
Без примера я ничего не смогу сделать.

Спасибо за внимание.

[chertovich]

Может хранить данные в виде XML?

[Человек_Борща]

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

Пока это обычный текстовый файл, создавать его не нужно(пишется в блокноте, в будущем нужна будет кодировка, но пока до этого рано), к нему обращаются разные процедуры ( каждая для своего блока), и использует данные.
Без примера я ничего не смогу сделать.

Спасибо за внимание.

Разные процедуры? Что за сыр-бор? Не в каменом веке живём ведь Напишите класс, хранящий эти данные в run-time и нужные методы для использования хранимых данных

1 раз загружайте файл с диска(при запуске программы), со сохраняйте при завершении программы.

А данные храните не в txt, а в XML(как уже сказали выше).
Рекоммендую начать с NativeXML. Там можно и в бинарном виде хранить, и в любой кодировке сохранять. И с форматированием и без него