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

Исключить из файла заданную букву

22.10.2019, 10:44. Просмотров 1697. Ответов 3
Метки нет (Все метки)


исключить из файла заданную букву
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.10.2019, 10:44
Ответы с готовыми решениями:

Перенос строк текстового файла, начинающихся на заданную букву, в массив A
Привет. Есть задача: 1) Составить процедуру для переписи строк текстового файла, начинающихся на...

Создать новый текстовый файл и записать в него строки исходного файла, заканчивающиеся на заданную букву
Создать исходный текстовый файл (Блокнот), содержащий любой текст. Написать программу, которая...

Из введенной строки исключить слова, содержащие заданную букву
Доброго времени суток, форумчане. Как и большинство подобных задач про строки на этом форуме, моя...

Вывести из файла те фамилии, которые начинаются на заданную букву
Ввести в файл фамилии студентов. Затем вывести из файла те фамилии, которые начинаются на заданную...

__________________
Помогаю в написании студенческих работ здесь.
3
Модератор
62965 / 46969 / 32371
Регистрация: 18.05.2008
Сообщений: 113,838
22.10.2019, 11:19 2
Вводите букву.
Читаете построчно файл и в строках удаляете эту букву
for i:=length(s) downto 1 do
if s[i]=bk then delete(s,i,1);
Пишете строки в новый файл.
Удаляете исходный файл-erase(f);
Переименовываете новый в старый - rename(g,'fail1.txt);
1
0 / 0 / 0
Регистрация: 08.07.2019
Сообщений: 5
24.10.2019, 19:51  [ТС] 3
здравствуйте, если вам не сложно, то можете написать программу от и до( я плохо разбираюсь в файлах)
0
Модератор
62965 / 46969 / 32371
Регистрация: 18.05.2008
Сообщений: 113,838
24.10.2019, 20:11 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
var f,g:text;
    s:string;
    bk:char;
    i:integer;
begin
assign(f,'1.txt');//файл в папке с программой
reset(f);
assign(g,'2.txt');
rewrite(g);
write('Введите букву для удаления bk=');
readln(bk);
while not eof(f) do
 begin
  readln(f,s);
  for i:=length(s) downto 1 do
  if s[i]=bk then delete(s,i,1);
  writeln(g,s);
 end;
close(f);
close(g);
erase(f);
rename(g,'1.txt');
write('Буква ',bk,' удалена из файла 1.txt')
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.10.2019, 20:11

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

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

Вывести на экран все слова из файла, которые начинаются на заданную букву
Создать текстовый файл, состоящий из слов (например в редакторе «Блокнот»). Необходимо: ...

Установить заданную дату и час создания файлов корневого каталога, которые начинаются на заданную букву
Доброго времени суток, есть задание: установить заданную дату и час создания файлов корневого...

Переписать в новый текстовый файл компоненты исходного файла, удалив слова, содержащие заданную букву
Составление и ввод в ПЭВМ программы с использованием текстовых файлов. Записать текст в файл F....


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

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

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