Чтение и Парсинг Файлов в FreePascal: Извлечение Двойок и Символьных Значений

Delphi , Интернет и Сети , Браузер

Чтение и Парсинг Файлов в FreePascal: Извлечение Двойных и Символьных Значений

FreePascal является мощным компилятором для объектно-ориентированного языка программирования Object Pascal, который совместим с Delphi. Одной из распространенных задач в программировании под FreePascal является работа с файлами, включая чтение и парсинг данных. В данной статье мы рассмотрим, как можно извлечь двойные и символьные значения из текстового файла, где данные расположены в определенной структуре: символ, пробел, символ, пробел, двойное значение, перевод строки. Пример такого файла:

q w 1.23
e r 4.56
t y 7.89

Использование TStringList для Парсинга

Для начала работы с файлами в FreePascal можно использовать встроенный класс TStringList, который позволяет загрузить содержимое файла и свойство DelimitedText для разделения значений на отдельный TStringList. После этого можно хранить извлеченные значения в структуре данных, например, в записи (record).

Пример кода на Object Pascal, использующего TStringList для парсинга файла:

{$mode objfpc}{$H+}
uses
  Classes, SysUtils;

type
  TData = record
    Val1: Char;
    Val2: Char;
    Val3: Double;
  end;

procedure ProcessFile;
var
  LFile: TStringList;
  Line: TStringList;
  i: Integer;
  LData: TData;
  LFormat: TFormatSettings;
begin
  // Установка формата для представления вещественных чисел
  LFormat := DefaultFormatSettings;
  LFormat.DecimalSeparator := '.';

  LFile := TStringList.Create;
  Line := TStringList.Create;
  try
    // Загрузка файла
    LFile.LoadFromFile('C:\Bar\Foo\Data.txt');
    Line.Delimiter := ' ';
    for i := 0 to LFile.Count - 1 do
    begin
      // Разделение строки и обработка результатов
      Line.DelimitedText := LFile[i];
      // Проверка на корректность данных
      if Line.Count <> 3 then raise Exception.Create('Неправильная длина данных');

      // Преобразование значений в структуру TData
      LData.Val1 := Line[0];
      LData.Val2 := Line[1];
      LData.Val3 := StrToFloat(Line[2], LFormat);

      // Действия с данными
      WriteLn(LData.Val1);
      WriteLn(LData.Val2);
      WriteLn(LData.Val3);
    end;
  finally
    Line.Free;
    LFile.Free;
  end;
end;

begin
  try
    ProcessFile;
  except on E: Exception do
    Writeln(E.Classname, ':', E.Message);
  end;
  Writeln('Нажмите Enter для выхода');
  Readln;
end.

Использование SScanF для Парсинга

В FreePascal также есть функция SScanF из модуля SysUtils, которая может быть использована для парсинга строк. Ниже приведен пример использования SScanF для чтения и парсинга файла:

uses SysUtils;

type
  TData = object
    Val1, Val2: String;
    Val3: Double;
  end;

procedure ProcessFile(aFileName: String);
var
  F: Text;
  LData: TData;
  Line: String;
begin
  DecimalSeparator := '.';
  AssignFile(F, aFileName);
  Reset(F);
  while not eof(F) do
  begin
    ReadLn(F, Line);
    SScanf(Line, '%s %s %f', [@LData.Val1, @LData.Val2, @LData.Val3]);

    // Действия с данными
    WriteLn(LData.Val1);
    WriteLn(LData.Val2);
    WriteLn(LData.Val3);
  end;
end;

begin
  ProcessFile('C:\Bar\Foo\Data.txt');
  Writeln('Нажмите Enter для выхода');
  Readln;
end.

Заключение

В данной статье мы рассмотрели два способа парсинга файлов в FreePascal: использование класса TStringList для работы с текстовыми файлами и применение функции SScanF для извлечения данных. Оба метода являются эффективными для решения поставленной задачи и могут быть адаптированы в зависимости от конкретных требований и предпочтений разработчика.

Создано по материалам из источника по ссылке.

Статья посвящена чтению и парсингу файлов в языке программирования Object Pascal с использованием компилятора FreePascal, с целью извлечения двойных и символьных значений из текстовых данных, расположенных в определенной структуре.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Браузер ::