Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Теоретические вопросы _ Работа с текстовыми файлами

Автор: Sarmat 12.06.2007 17:10

Народ, помогите пожалуйста:
Дан текстовый файл. Надо подсчитать количество пустых строк в нем.
Как делать?

Автор: volvo 12.06.2007 17:45

Читать файл построчно, и сравнивать каждую прочитанную строку на ''. Если равны - увеличивать счетчик.

Автор: klem4 12.06.2007 17:46

http://forum.pascal.net.ru/index.php?showtopic=3584

обнуляешь счетчик, начинаешь читать строки из файла, если очередная строка пустая (Length(s) = 0 или s = '') то увеличиваешь счетчик на единицу.

Автор: Sarmat 12.06.2007 18:33

 ! 
2. Все тексты фрагментов программ должны помещаться в теги [code ] ... [ /code ] или [ code=pas ] ... [ /code ].




program ex25;

uses crt;

var
f:text;
a:string;
i:integer;

begin
clrscr;
assign(f,'25.txt');
reset(f);
i:=0;
while not eof(f) do
begin
read(f,a);
if length(a)=0 then i:=i+1;
end;
close(f);
writeln('number of empty lines is ',i);
readkey;
end.


вот написал, но она всё равно не работает
что не так?

Автор: klem4 12.06.2007 19:02

while not eof(f) do
begin
readln(f,a); // <------------------



Автор: Sarmat 12.06.2007 19:52

Спасибо, всё получилось )))

Автор: AET 5.07.2007 12:24

народ помагите надо создать программу каторая извлекает из фаила части фаила тоесть блоки по заданым им адресом и с указаным им размером фаила дапустим есть фаил main.img из него надо извлеч и создать фаил с именем RE0 до REn тоесть пока число блоков не закончится и записовать даныие из блока в данныие фаилы. вот например программа созданная на паскале но имеет расширение ехе а мне нужны исходныие


Прикрепленные файлы
Прикрепленный файл  main_proram.rar ( 4.72 килобайт ) Кол-во скачиваний: 221