IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

 
 Ответить  Открыть новую тему 
> Работа с текстовыми файлами
сообщение
Сообщение #1


Гость






Народ, помогите пожалуйста:
Дан текстовый файл. Надо подсчитать количество пустых строк в нем.
Как делать?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Читать файл построчно, и сравнивать каждую прочитанную строку на ''. Если равны - увеличивать счетчик.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Файлы

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


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






 ! 
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 -
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


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




Сообщение отредактировано: klem4 -


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






Спасибо, всё получилось )))
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Гость






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


Прикрепленные файлы
Прикрепленный файл  main_proram.rar ( 4.72 килобайт ) Кол-во скачиваний: 115
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 27.09.2020 3:55
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name