Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=408905&view=findpost&p=3747390 Sun, 29 Oct 2017 10:37:40 +0000 Чтение файла в массив https://forum.sources.ru/index.php?showtopic=408905&view=findpost&p=3747390 Veniska Pascal https://forum.sources.ru/index.php?showtopic=408905&view=findpost&p=3740303 Fri, 15 Sep 2017 10:10:44 +0000 Чтение файла в массив https://forum.sources.ru/index.php?showtopic=408905&view=findpost&p=3740303 Ivanhoe75 Pascal https://forum.sources.ru/index.php?showtopic=408905&view=findpost&p=3674202 Mon, 20 Jun 2016 11:46:46 +0000 Чтение файла в массив https://forum.sources.ru/index.php?showtopic=408905&view=findpost&p=3674202 Цитата
Так вот вопрос - целесообразно ли это при количестве строк больше 1 500?

нет, не целесообразно]]> cezar Pascal https://forum.sources.ru/index.php?showtopic=408905&view=findpost&p=3672440 Tue, 31 May 2016 14:54:32 +0000 Чтение файла в массив https://forum.sources.ru/index.php?showtopic=408905&view=findpost&p=3672440 Цитата MBo @
Думаю, во FreePascal-е есть TStringList.

Есть.]]> Vesper Pascal https://forum.sources.ru/index.php?showtopic=408905&view=findpost&p=3672428 Tue, 31 May 2016 14:06:08 +0000 Чтение файла в массив https://forum.sources.ru/index.php?showtopic=408905&view=findpost&p=3672428 MBo Pascal https://forum.sources.ru/index.php?showtopic=408905&view=findpost&p=3672423 Tue, 31 May 2016 13:44:14 +0000 Чтение файла в массив https://forum.sources.ru/index.php?showtopic=408905&view=findpost&p=3672423 Цитата MBo
почему для реализации выбран турбопаскаль?

Вообще то FreePascal. Турбо в Линуксе проблематичен.]]> camac Pascal https://forum.sources.ru/index.php?showtopic=408905&view=findpost&p=3672406 Tue, 31 May 2016 12:42:11 +0000 Чтение файла в массив https://forum.sources.ru/index.php?showtopic=408905&view=findpost&p=3672406 Цитата camac @
Меня интересует - 3-4 тыс строк - это много или нет?


В нынешних реалиях используемой техники - это пыль. Расчет нехитрый. Берем самый бюджетный комп с 2Gb оперативы, со слегка "нафаршированной" виндой. Физической памяти там займется 1-1.2Gb. Мои сугубо личные наблюдения показывают, что винда начинает подтупливать, когда занимается 80% и более физической памяти. Таким образом, примерно 400Мб мы можем "откусить" под закачку строк. Если взять самые длинные паскалевско-родные строки, то получим 400*1024*1024/256 = 1 638 400 строки мы можем загрузить. Соответственно, ответ на вопрос 3-4к строк - это немного.

Цитата camac @
А чуть подробней об этом узнать/почитать можно? Или Вы кратко объясните?

Объясню на примере. Пусть дан текст c окончанием строк в формате DOS-Windows "перевод строки+возврат каретки" 0D0A:

Мама мыла раму.(0d0a)Рама(0d0a)задолбала маму.
^....................^.........^..............
0                   17        23

Таким образом, считывая поблочно ищем все концы строк, строя индексный массив (грубо говоря - смещения строк относительно начала). Должен получиться такой (0,17,23). Теперь им пользуемся следующим образом ...
  1. Получение содержимого нулевой строки: в файле, открытом в бинарном режиме двигаем указатель на 0, считываем 17-0-2 символов (-2, т.к. концовки строк нам не нужны), получим подстроку длиной 15.
  2. Получение содержимого первой строки: в файле, открытом в бинарном режиме двигаем указатель на 17, считываем 23-17-2 символов (аналогично, -2, т.к. концовки строк нам не нужны), получим подстроку длиной 4.
  3. Получение содержимого третьей (последней) строки: в файле, открытом в бинарном режиме двигаем указатель на 23, считываем L-23 символов (в конце файла перевода строки нет, значит 2 не отнимаем), получим подстроку длиной 15, где L==38 - длина файла.
]]> JoeUser Pascal https://forum.sources.ru/index.php?showtopic=408905&view=findpost&p=3672370 Tue, 31 May 2016 09:34:11 +0000 Чтение файла в массив https://forum.sources.ru/index.php?showtopic=408905&view=findpost&p=3672370 MBo Pascal https://forum.sources.ru/index.php?showtopic=408905&view=findpost&p=3672363 Tue, 31 May 2016 08:41:17 +0000 Чтение файла в массив https://forum.sources.ru/index.php?showtopic=408905&view=findpost&p=3672363 По идее надо так:
        program proba;
        uses crt;
        var
            f: text;
            mas:array [1..25] of string;
            a,b,i:integer;
        begin
            assign (f, 'inf.txt');
            reset (f);
            for i:=1 to 25 do
                readln(f,mas[i]);
        repeat
            write('ввести а: '); readln(a);
            write('ввести b: '); readln(b);
            for i:=a to b do
                writeln(mas[i]);
            close (f);
        until (a=0) or (b=0);
        end.

Меня интересует - 3-4 тыс строк - это много или нет?

Цитата

лучше прочесть файл, но не загружать сами строки, а загружать их индексы. Грубо говоря, смещение n-ой строки от начала. Длина строки высчитывается как разница смещений n+1 (или конца файла) минус n. Но и тут следует учесть, и индексов может быть много, тогда писать их в индексный файл.

А чуть подробней об этом узнать/почитать можно? Или Вы кратко объясните?]]> camac Pascal https://forum.sources.ru/index.php?showtopic=408905&view=findpost&p=3672309 Mon, 30 May 2016 15:52:29 +0000 Чтение файла в массив https://forum.sources.ru/index.php?showtopic=408905&view=findpost&p=3672309 Цитата camac @
Может и подскажете как это правильнее и красивее сделать?


Чтение в память - это прямое использование ресурсов. А если файл содержит 2Tb текста? В общем случае - лучше прочесть файл, но не загружать сами строки, а загружать их индексы. Грубо говоря, смещение n-ой строки от начала. Длина строки высчитывается как разница смещений n+1 (или конца файла) минус n. Но и тут следует учесть, и индексов может быть много, тогда писать их в индексный файл. Соответственно вывод нужной строки будет осуществлен в два этапа: бинарное чтение двух индексов по смещению + бинарное чтение самой строки.

... Но если в файле 15 строк, тогда не париться, а читать все в память.]]> JoeUser Pascal https://forum.sources.ru/index.php?showtopic=408905&view=findpost&p=3672284 Mon, 30 May 2016 12:39:01 +0000 Чтение файла в массив https://forum.sources.ru/index.php?showtopic=408905&view=findpost&p=3672284 Придумал себе такую проблему - чтобы выборочно файл читать не как все, а потом выводить это на экран.
А "загоняя" его построчно в массив и затем в нужный момент выводить необходимые строки (индексы массива).

Так вот вопрос - целесообразно ли это при количестве строк больше 1 500?
К стати, я сделал вот так:
    program proba;
    uses crt;
    var
        f: text;
        mas:array [1..25] of string;
        a,b,i:integer;
    begin
    repeat
        write('ввести а: '); readln(a);
        write('ввести b: '); readln(b);
        assign (f, 'inf.txt');
        reset (f);
        for i:=1 to 25 do
            readln(f,mas[i]);
        for i:=a to b do
            writeln(mas[i]);
        close (f);
    until (a=0) or (b=0);
    end.

Может и подскажете как это правильнее и красивее сделать?]]> camac Pascal