Создание текстового файла и запись данных в него

Создать текстовый файл, записать в него построчно данные, которые вводит пользователь. Окончанием ввода пусть служит пустая строка.

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

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

Pascal


var
f: text;
name, str: string;
begin
write('Файл: ');
readln(name);
assign(f, name);
rewrite(f);
while True do begin
readln(str);
if str = '' then break;
writeln(f, str);
end;
close(f);
end.



Файл: test1
hello world
one two three
back
3 4 5 6

В том же каталоге, где сохранена программа, будет создан файл test1 с содержимом, которое было введено в терминале.
Язык Си


#include < stdio.h>
#include < string.h>
#define N 255
main() {
FILE *f;
char s[N], name[N];
gets(name);
f = fopen(name,"w");
while (1) {
gets(s);
if (strlen(s) == 0) break;
fprintf(f,s);
fprintf(f,"\n");
}
fclose(f);
}



nums.txt
one two tree ...
один два ...
1 2 3 4 ...
1 10 11 100 ...

В том же каталоге, что и программа создается файл nums.txt, куда записываются строки, введенные пользователем.
Python

python создать текстовый файл

fname = input('Файл: ')
f = open(fname,'w')
while True:
s = input()
if s == '': break
f.write(s+'\n')
f.close()



Файл: /home/pl/Рабочий стол/text2.txt
Ввод данных в
текстовый файл
____________
1 а 2 б wwwww

Будет создан файл text2.txt в каталоге /home/pl/Рабочий стол/ и содержащий данные, введенные пользователем в процессе выполнения программы.
КуМир

использовать Файлы П
алг
нач
цел ф
лит имя, строка
вывод "Имя файла: "
ввод имя
ф := открыть на запись (имя)
вывод "Вводите строки ниже:", нс
нц пока да
ввод строка
если строка = "!" то
закрыть(ф)
выход
все
Фвывод ф, строка
Фвывод ф, нс
кц
кон
Basic-256


print "Имя файла: ";
input name$
open name$

while True
input s$
if s$ = "" then gosub stop
writeline s$
end while

stop:
close



Имя файла: text.txt
Это текст
который записывается
в файл.

Файл text.txt создается в каталоге, где сохранена программа, и в него записываются строки ниже.

Оцените статью
Добавить комментарий