Статьи Королевства Дельфи

       

с текстовыми файлами Расширенная работа


  • FONT.Quoted {color : #996600; font-size : x-small; font-style : italic;} CODE {font-size : x-small;} 6. Расширенная работа с текстовыми файлами Расширенная работа с текстовыми файлами
    Кроме работы со строками в текстовых файлах, Паскаль поддерживает и более расширенные методы, можно оперировать и данными в строке. Можно читать данные из строки в одну или более переменных. Паскаль сам обеспечивает разбор строки на составляющие части.

    Полный синтаксис процедур следующий

    procedure ReadLn([ var F: TextFile; ] V1 [, V2, ...,Vn ]);
    procedure WriteLn([ var F: TextFile; ] P1 [, P2, ...,Pn ] );


  • F - файловая переменная типа TextFile, это означает, что процедуры Readln и Writeln могут работать с текстовыми файлами и не применимы для других типов файлов. Если эта переменная опущена, то в качестве текстового файла используется консоль, это также означает, что вывод возможен на консоль и не применим для GUI приложений. На самом деле эта конструкция равносильна следующему вызову Readln([Input) или Writeln(Output). Просто это значение по умолчанию и компилятор сам подставляет эти файловые переменные, который уже описаны в модуле System. Если создано консольное приложение, то Дельфи автоматически ассоциирует эти файловые переменные с окном консоли приложения.
  • Vn – это одна или несколько переменных строкового, символьного, целочисленного или плавающего типа и также логические переменные. Возможно это не полный список типов, но можете попробовать проверить сами. Не поддержанные типа можно выводить с помощью функций преобразования в строку, например DateTimeToStr(Now).
  • Pn – это один или более параметров процедуры, которые могут являться строкой, символом, целым числом или числом с плавающей запятой. В справке по процедуре Write ошибочно указано, что в качестве параметров могут использоваться только переменные, на самом деле это могут быть как переменные, так и константные выражения.

    Кроме того, справка полностью умалчивает о формате вывода данных в файл, о возможности форматирования данных непосредственно в параметрах процедуры. Форматирования вывода осуществляется в следующем виде X [:Width [:Decimals]], где Width общая длина вывода, а Decimals это количество знаков после десятичной точки. Для получения нужной длины вывода слева добавляется нужное количество пробелов, если результат не помещается в указанную длину, то тогда длина увеличивается до должного количества знаков.

    Спецификатор Decimals применим только к числам с плавающей запятой. При этом при необходимости производится округление числа. Если спецификаторы не указаны, то для вывода используется научный формат, то есть #.##############E+####

    Для целочисленных чисел, строк и символов, без указания длины используется столько символов, что бы значение полностью вывелось.

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

    Writeln(F, A,' ',B,' ',C);

    Теперь по поводу чтения обратно в переменные. Все аналогично выводу, за исключением одного неприятного отличия. В случае указания в списке переменных, переменной строкового типа, в нее считывает все до окончания строки. Вроде в старом Паскале такого не было, там вроде бы считывалось слово до первого разделителя, но так ли это было уже не помню, но это и не важно, важно знать как это работает сейчас и учитывать это при чтении данных. Поэтому если надо считывать элементы строки в переменные, то можно использовать только один элемент и он должен быть последним в строке. Приведу пример неправильной логики.

    WriteLn(F, 1, ' ', 2.5:3:1, ' ', ‘string’, ' ', 3);
    ReadLn(F, Int1, Real1, Str1, Int2);

    В файле будет следующая информация

    1 2.5 string 3

    После считывания значения переменных следующие:

    Int1 = 1
    Real1 = 2.5
    Str1 = string 3
    Int2 = 0

    Правильно написать так

    WriteLn(F, 1, ' ', 2.5:3:1, ' ', 3, ' ', ‘string’);
    ReadLn(F, Int1, Real1, Int2, Str1);

    Теперь в переменных правильные значения:

    Int1 = 1
    Real1 = 2.5
    Int2 = 3
    Str1 = string

    Ну и на последок напишем простой пример чтения и записи двухмерного массива в файл.

    var
    Column: Integer;
    F: TextFile;
    IntArray: array[1..10, 1..3] of Integer;
    Row: Integer;
    S: string;
    TmpInt: Integer;
    begin
    // Инициализация
    for Row := 1 to 10 do
    begin
    for Column := 1 to 3 do
    begin
    IntArray[Row, Column] := Row*100 + Column;
    end;
    end;

    AssignFile(F, 'Test.txt');
    try
    Rewrite(F); // открытие для записи
    for Row := 1 to 10 do
    begin
    for Column := 1 to 3 do
    begin
    Write(F, IntArray[Row, Column]:11);
    end;
    WriteLn(F, ' Строка: ', Row);
    end;
    finally
    CloseFile(F);
    end;

    // Чтение
    try
    WriteLn('Test Reading');
    Reset(F); // открытие для чтения
    for Row := 1 to 10 do
    begin
    for Column := 1 to 3 do
    begin
    Read(F, TmpInt);
    Write(TmpInt:11);
    end;
    ReadLn(F, S);
    WriteLn(S);
    end;
    finally
    CloseFile(F);
    end;
    Readln; // Закрытие окна по ENTER
    end.

    После проверки, можете открыть файл Блокнотом и убедиться, что он действительно текстовый.

    Примечание: при выводе текстовых сообщений учтите, что на консоль надо выводить в OEM кодировке, поэтому если надо вывести текст на национальном языке, то предварительно преобразуйте его из ANSI в OEM, см. главу «Текстовые файлы - домашнее задание». То есть, любой текст надо преобразовывать функцией CharToOem. Это же касается и текстовых констант в коде программы.

    Для разработки архива использован PHP 4.3.5, разработка скрипта


    Содержание раздела