0 / 0 / 0
Регистрация: 30.05.2017
Сообщений: 17
1

Переписать в файл g все строки из файла f, которые начинаются с буквы 'c'.

25.09.2017, 20:09. Показов 1664. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
При открытии и сохранении файла необходимо использовать файловые диалоги.

Задание - Дан текстовый файл f. Переписать в файл g все строки из файла f, которые начинаются с буквы 'c'.


ВЫРУЧАЙТЕ!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.09.2017, 20:09
Ответы с готовыми решениями:

Задан текстовый файл f. Переписать в новый файл g все слова, которые начинаются с буквы к
Задан текстовый файл f. Переписать в новый файл g все слова, которые начинаются с буквы к.

Вывести те строки, которые начинаются с буквы ‘b’
Задача: Вводит ряд строк и выводит те из них, которые начинаются с буквы ‘b’.

Переписать текст в файл, удалив из него все слова, начинающиеся с той же буквы ,что и последнее слово последней строки
Здравствуйте,помогите пожалуйста решить.Работа с файлами. Файл input.dat содержит несколько...

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

1
Эксперт Pascal/Delphi
2386 / 1298 / 1492
Регистрация: 29.08.2014
Сообщений: 4,661
26.09.2017, 08:16 2
Лучший ответ Сообщение было отмечено 410w как решение

Решение

на форме две кнопки (button1 - открыть, button2 - закрыть) и два диалога (openFileDialog1 и saveFileDialog1)
и собственно код:
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
25
...
var 
  InputFileName:string;
 
implementation
 
procedure Form1.button1_Click(sender: Object; e: EventArgs);
begin
  if openFileDialog1.ShowDialog=System.Windows.Forms.DialogResult.OK then InputFileName:=openFileDialog1.FileName 
  else InputFileName:='';
end;
 
procedure Form1.button2_Click(sender: Object; e: EventArgs);
begin
  if not FileExists(InputFileName)then MessageBox.Show('Сначала выберите существующий файл') else
  if saveFileDialog1.ShowDialog=System.Windows.Forms.DialogResult.OK then 
    if saveFileDialog1.FileName=InputFileName then MessageBox.Show('Имена файлов должны отличаться!') else begin
    System.IO.File.WriteAllLines(saveFileDialog1.FileName,
    System.IO.File.ReadAllLines(InputFileName,Encoding.GetEncoding(1251)).Where(s->(s.length>0) and (s[1]='c')).ToArray,
    Encoding.GetEncoding(1251));
    MessageBox.Show(format('Файл {0} успешно записан',saveFileDialog1.filename));
  end;
end;
 
end.
Добавлено через 2 часа 19 минут
Цитата Сообщение от Joy Посмотреть сообщение
button2 - закрыть
*сохранить
1
26.09.2017, 08:16
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.09.2017, 08:16
Помогаю со студенческими работами здесь

Создать файл F из элементов массива M, переписать в файл G все компоненты которые меньше 5, прочитать файл G
создать файл F,компонентами которого являются элементы массива M,переписать в файл G все компоненты...

Текстовый файл: переписать в файл g все компоненты файла f, изымая все цифры
Даны текстовый файл f. Переписать в файл g все компоненты файла f, изымая все цифры.

Типизированный файл: переписать в файл g все компоненты файла f, изымая все цифры
Даны текстовый файл f. Переписать в файл g все компоненты файла f, изымая все цифры.

Вывести на экран все слова строки, которые начинаются на вводимый с клавиатуры символ
Дана строка, состоящая из 4 слов. Вывести на экран все слова строрки, которые начинаются на...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru