Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 29.05.2018
Сообщений: 9
1

Записать в файл g имена только исполняемых файлов (с расширением exe)

17.06.2018, 17:34. Просмотров 977. Ответов 4
Метки нет (Все метки)

Дан текстовый фал f, в котором содержатся имена файлов с расширениями в формате: «Имя_файла.Расширение». Записать в файл g имена только исполняемых файлов (с расширением exe).
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.06.2018, 17:34
Ответы с готовыми решениями:

Записать в третий файл элементы двух файлов только заглавные английские буквы в алфавитном порядке
Pascal ABC Типизированные файлы Сформировать два символьных файла, используя ввод с клавиатуры....

Записать полученную матрицу в файл с расширением .txt
Вот эту программу нужно переделать! program prog_2_7; type vx=array of real; type vy=array...

Записать в файл список файлов с расширением jpg
Помогите пожалуйста!!! Сформировать текстовый файл, в котором указать названия файлов из папки...

Список файлов из указанного каталога и с заданным расширением записать в файл
Написать скрипт, выводящий в файл (имя файла задаётся пользователем в качестве первого аргумента...

4
Модератор
60554 / 45554 / 31441
Регистрация: 18.05.2008
Сообщений: 109,490
17.06.2018, 17:40 2
Лучший ответ Сообщение было отмечено D1Z1G как решение

Решение

Pascal
1
2
3
4
5
while not eof(f) do
 begin
  readln(f,s);
  if copy(s,length(s)-2,3)='exe' then writeln(g,s);
 end;
1
0 / 0 / 0
Регистрация: 29.05.2018
Сообщений: 9
19.06.2018, 19:40  [ТС] 3
Puporev, А можешь дописать полностью что бы он работал?
0
Модератор
60554 / 45554 / 31441
Регистрация: 18.05.2008
Сообщений: 109,490
19.06.2018, 19:43 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var f,g:text;
     s:string;
begin
assign(f,'input.txt');//файл в папке с программой
reset(f);
assign(g,'output.txt');
rewrite(g);
while not eof(f) do
 begin
  readln(f,s);
  if copy(s,length(s)-2,3)='exe' then writeln(g,s);
 end;
close(f);
close(g);
end.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5401 / 3235 / 2375
Регистрация: 22.11.2013
Сообщений: 9,129
23.06.2018, 11:38 5
Puporev,
Pascal
11
  if Copy(s,Length(s)-3,4)='.exe' then ...
Иначе под условие попадут файлы без расширения, оканчивающиеся на 'exe'.
Если файловая система регистронезависима, то условие может быть таким:
Pascal
11
12
13
  t:=Copy(s,Length(s)-3,4);
  for i:=1 to Length(t) do t[i]:=UpCase(t[i]);
  if t='.EXE' then WriteLn(g,s);
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.06.2018, 11:38

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Записать имена созданных файлов в другой файл
{ system("cls"); cout<< "Enter file name: "; char filename = { 0 }; cin...

Записать в текстовый файл все имена файлов в директории
Написать дополнительный файл, подключаемый к. cpp, который записывает в текстовый файл все имена...

Создать командный файл для копирования файлов с заданным именем и расширением .PAS и .EXE в созданный каталог
Хотелось бы узнать как создать командный файл для копирования файлов с заданным именем и...

Как обновить Bios через флэшку, если в обновлении только один файл с расширением .exe (плата MSI)?
Как обновить Bios через флэшку, если в обновлении только один файл с расширением .exe (плата MSI)?...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.