0 / 0 / 0
Регистрация: 24.02.2012
Сообщений: 43

Файл: Переписать содержимое текстового файла a.txt диска С в текстовый файл в.txt без пробелов

07.02.2013, 21:31. Показов 2610. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
1.Переписать содержимое текстового файла a.txt диска С в текстовый файл в.txt без пробелов
2.Дан текст.файл C:\Program Files\2.txt,в котором есть целые числа.Найти сумму отрицательных чисел файла
3.На диске С в папке Program Files есть текст.файл.Дополнить его произвольным текстом.В полученном файле найти кол-во запятых.

Помогите кто-нибудь решить эти 3 задачи, а то я не очень разбираюсь в текстовых файлах! Заранее благодарен!
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
07.02.2013, 21:31
Ответы с готовыми решениями:

Прочитать текстовые и числовые сведения из текстового файла. С помощью стека переписать в другой текстовый файл все числа в обратном порядке.
Создать текстовый файл, содержащий текстовую и числовую информацию. Используя стек, создать другой текстовый файл, в котором числа были бы...

Четные записать в файл even.txt, нечетные записать в файл odd.txt
Тема: Файлы....Составить программу,которая считает с клавиатуры числа и четные записывает в файл even.txt, нечетные записывают в файл...

Написать программу, которая создает текстовый файл Output.txt, содержащий все числа файла Input.txt, кратные 5
уважаемые программисты помогите пожалуйста сделать задание из контрольной работы. Текстовый файл Input.txt содержит целые числа....

2
-26 / 1 / 2
Регистрация: 30.09.2010
Сообщений: 39
08.02.2013, 21:45
Лучший ответ Сообщение было отмечено sven4ik как решение

Решение

1.
Delphi
1
2
3
4
5
6
7
8
 var T:TstringList; 
Begin
  t:=TStringList.create;
  t.loadfromfile(PathFile);
  t.text:=trim(t.text);
  t.savetofile(pathFile);
  t.free;
end;
2. Не совсем понятно, в каком виде находятся числа в этом файле. Поподробней пожалуйста.
3.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 var T:TstringList;
    MyText,s:String;
    zCount:Integer;
Begin
  t:=TStringList.create;
  t.loadfromfile(PathFile);
  t.text:=t.text+Mytext;
  s:=t.text;
  t.savetofile(pathFile);
  t.free;
  while pos(',',s)>0 do
    Begin
      Inc(zCount);
      Delete(s,pos(',',s),1);
    end;
  showmessage('Запятых в тексте:'+Inttostr(zCount));
end;
Как-то так
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33116 / 21412 / 8219
Регистрация: 22.10.2011
Сообщений: 36,746
Записей в блоге: 9
10.02.2013, 12:05
lexasf, ты действительно думаешь, что
Цитата Сообщение от lexasf Посмотреть сообщение
Delphi
1
t.text:=trim(t.text);
уберет все пробелы из текста? Вообще-то убираются только начальные и конечные таким образом. А чтоб убрать все -
Delphi
1
t.text := StringReplace(t.text, ' ', '', [rfReplaceAll]);
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
10.02.2013, 12:05
Помогаю со студенческими работами здесь

Работа с файлами - Дополнить текстовый файл 1.txt диска А из целых чисел 30 случайными целыми числами
Дополнить текстовый файл 1.txt диска А из целых чисел 30 случайными целыми числами. Найти сумму чисел полученного файла. Добавлено...

Дан текстовый файл, содержащий строки. Переписать содержимое файла
Дан текстовый файл, содержащий строки. Переписать содержимое файла в другой файл, сдвигая циклически каждую строку вправо ...

Дан файл text.txt, там два числа: 2 и 11. Найти их сумму и записать ее в файл out.txt
Я знаю как написать программу для нахождения сумы в Delphi, но я не знаю как написать вот такую программу: Дан файл text.txt, там два...

Дан текстовый файл f. Переписать компоненты файла f в файл g, заменив все пробелы символом '!'
Правильно ли я написала саму программу? и вообще, оно правда будет переписано в новый файл??? var f,g:textfile; c:char; ...

Дан текстовый файл bibl.txt
фигня какая то (( вообще не понятно. кто нить может что нить подсказать ? Дан текстовый файл bibl.txt, содержащий сведения о книгах. В...


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

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

Новые блоги и статьи
Вопросы на собеседованиях по микросервисам
ArchitectMsa 27.03.2025
Работодатели ищут не просто разработчиков, знающих базовые концепции, а специалистов, разбирающихся в тонкостях масштабирования, отказоустойчивости и производительности. Сейчас на первый план выходят. . .
Взаимодействие Python с REST API
py-thonny 27.03.2025
REST API - это архитектурный стиль взаимодействия компонентов распределённого приложения в сети. Python располагает функциональным набором инструментов для работы с REST API и основная библиотека для. . .
sshd restrictions, ssh access limitations
jigi33 26.03.2025
sshd restrictions | ssh access limitations рестрикции доступа на сервер sshd статья: https:/ / www. golinuxcloud. com/ restrict-allow-ssh-certain-users-groups-rhel
Компиляция C++ с Clang API
NullReferenced 24.03.2025
Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .
Многопоточное программировани­е в C#: Класс Thread
UnmanagedCoder 24.03.2025
Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .
SwiftUI Data Flow: Передача данных между представлениями
mobDevWorks 23.03.2025
При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .
Моки в Java: Сравниваем Mockito, EasyMock, JMockit
Javaican 23.03.2025
Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .
Архитектурные паттерны микросервисов: ТОП-10 шаблонов
ArchitectMsa 22.03.2025
Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .
Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов
GameUnited 22.03.2025
Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .
Образование и практика
Igor3D 21.03.2025
Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru