Запись в файл консоли

@Bookkc1 · Регистрация: 01.11.2012

Студворк — интернет-сервис помощи студентам

Как осуществить запись в файл консоли у консольного приложения?

@D1973 · 12.05.2017, 11:46

Сообщение от Bookkc1

мне нужно сделать лог файл

Вот теперь - так...
А вот это вот:

Сообщение от Bookkc1

КАК ЗАПИСАТЬ ВСЮ КОНСОЛЬ В ТЕКСТОВЫЙ ФАЙЛ

это, извините, ерунда полная...
Вот только одно не понятно: в чем проблема-то? Вы получаете строку и тут же пишете ее в файл, производите манипуляции со строкой - опять дописываете это в файл... Как это сделать - уже показали...

@Bookkc1 · 12.05.2017, 11:50 **[ТС]**

А чем отличается запись всей консоли в файл и лог файл ? Конечный результат тот же.

Сообщение от D1973

Вы получаете строку и тут же пишете ее в файл

КАК ? как мне записывать всё, что попадает в консоль ? я этого и добиваюсь.

@Puporev · 12.05.2017, 11:57

Сообщение от Bookkc1

как мне записывать всё, что попадает в консоль

А как оно туда попадает? Какая-то программа записывает? Так пусть она параллельно записывает и в файл.

@Bookkc1 · 12.05.2017, 12:03 **[ТС]**

Сообщение от Puporev

А как оно туда попадает? Какая-то программа записывает? Так пусть она параллельно записывает и в файл.

я приводил выше как оно попадает. инди тцп сервер, получаю строку и с этой строкой делаю кучу манипуляций, разбираю её, проверяю и частями вывожу по всей программе...

DenNik · 12.05.2017, 12:10

Сообщение от Bookkc1

получаю строку и с этой строкой делаю кучу манипуляций, разбираю её, проверяю и частями вывожу по всей программе...

+ манипуляция сохранения в файл

@Bookkc1 · 12.05.2017, 12:14 **[ТС]**

та не вариант, говорю же! у меня программа на 2000+ строк и около 1000+ строк вывода будет, мне после каждой строки дописывать код для записи в файл что ли? как то кошерно выходит, не находите ? мне бы проще перехватить все что выводится в консоли и записать в файл, но как?

@krapotkin · 12.05.2017, 12:23

да запустите вы свою программу
prog.exe > 1.txt
и все что вы пишете в writeln уйдет туда
если вы хотите, чтобы и туда и туда, и чай принесли , не ленитесь писать

@Puporev · 12.05.2017, 12:24

А может не нужно выводить в консоль, а писать в TStringList, а потом SaveToFile?

@Bookkc1 · 12.05.2017, 12:29 **[ТС]**

Никто не ленится писать, я ищу нормальный и адекватный вариант, а не танцы с бубном и дописи кучи кода...

Добавлено через 2 минуты

Сообщение от krapotkin

prog.exe > 1.txt

Вот так вот работает, но сама консоль пустая ( а в текстовый файл записывает)

@Puporev · 12.05.2017, 12:30

Можно написать процедуру, пишущую сразу в консоль и в файл, и тогда вместо writeln(), в программе будет также 1 строка типа mywriteln();

@krapotkin · 12.05.2017, 12:31

поэтому это называется ПЕРЕНАПРАВЛЕНИЕ вывода, а не "мне лень писать, пусть оно само"
поток вывода у вас один, хоть в файл его, хоть на экран. выбирайте

DenNik · 12.05.2017, 12:31

Сообщение от Bookkc1

около 1000+ строк вывода будет,

а ты что, КАЖДУЮ строку отдельной командой выводить будешь? или может, все-таки есть некая подпрограмма обработки входящей информации?

@krapotkin · 12.05.2017, 12:31

Puporev, об этом и речь

@Puporev · 12.05.2017, 12:32

Сообщение от Bookkc1

но сама консоль пустая ( а в текстовый файл записывает)

Так написали же

Сообщение от krapotkin

если вы хотите, чтобы и туда и туда, и чай принесли , не ленитесь писать

@Bookkc1 · 12.05.2017, 12:35 **[ТС]**

Сообщение от DenNik

а ты что, КАЖДУЮ строку отдельной командой выводить будешь?

Да я, блин, приводил пример сверху! всё выводится через writeln();

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

@Puporev · 12.05.2017, 12:39

Delphi
1
2
3
4
5
procedure mywriteln(var f:textfile;s:string);
begin
writeln(s);
writeln(f,s);
end;

@krapotkin · 12.05.2017, 12:40

все говорят одно и то же

Delphi
1
2
3
4
5
procedure MyWriteLn(s:string);
begin
  writeln(s);
  writeln(logfile,s);
end;

DenNik · 12.05.2017, 12:40

да, блин, включи мозг!

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure OutStr(const Text: string);
begin
  WriteLn(Text);
  SaveToLog(Text);
end;
 
var
  s: string;
begin
  // получение строки
  s:= 'Input String Data';
  // обработка строки
  ...
  // вывод строки
  OutStr(s {сюда подставляешь че тебе нужно})
end.

сложно?

@Bookkc1 · 12.05.2017, 12:52 **[ТС]**

DenNik, а более подробный пример ? не совсем пойму что такое s и откуда берется Text

@FalleNSofT · 12.05.2017, 13:07

Bookkc1, ты прям издеваешься..., уже всё расписали, а тебе примеры подавай

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
  procedure MywriteLn(Msg: string);
  var
    f: textfile;
    timeStamp, fname: string;
  begin
    Writeln(Msg);
    fname:= 'log.txt';
    AssignFile(f, fname);
    if FileExists(fname) then
      append(f)
    else
      rewrite(f);
    try
      TimeStamp := dateTimeToStr(now);
      WriteLn(f, '"' + timeStamp + '", ' + msg);
    finally
      CloseFile(f);
    end;
  end;
 
begin
 MywriteLn('Полученная строка');
 readln;
end.

Только не пиши, что опять не понял чего-то!

Новые блоги и статьи Все статьи Все блоги /
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .

@Bookkc1 3 / 3 / 0 Регистрация: 01.11.2012 Сообщений: 803

	Запись в файл консоли 11.05.2017, 20:31. Показов 7099. Ответов 42 Метки нет (Все метки) Как осуществить запись в файл консоли у консольного приложения? 0

@Bookkc1 3 / 3 / 0 Регистрация: 01.11.2012 Сообщений: 803
	12.05.2017, 12:14 [ТС]
	та не вариант, говорю же! у меня программа на 2000+ строк и около 1000+ строк вывода будет, мне после каждой строки дописывать код для записи в файл что ли? как то кошерно выходит, не находите ? мне бы проще перехватить все что выводится в консоли и записать в файл, но как? 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,686 Записей в блоге: 21
	12.05.2017, 12:23
	да запустите вы свою программу prog.exe > 1.txt и все что вы пишете в writeln уйдет туда если вы хотите, чтобы и туда и туда, и чай принесли , не ленитесь писать 0

@Puporev Почетный модератор 64320 / 47616 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	12.05.2017, 12:24
	А может не нужно выводить в консоль, а писать в TStringList, а потом SaveToFile? 0

@Puporev Почетный модератор 64320 / 47616 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	12.05.2017, 12:30
	Можно написать процедуру, пишущую сразу в консоль и в файл, и тогда вместо writeln(), в программе будет также 1 строка типа mywriteln(); 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,686 Записей в блоге: 21
	12.05.2017, 12:31
	поэтому это называется ПЕРЕНАПРАВЛЕНИЕ вывода, а не "мне лень писать, пусть оно само" поток вывода у вас один, хоть в файл его, хоть на экран. выбирайте 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,686 Записей в блоге: 21
	12.05.2017, 12:31
	Puporev, об этом и речь 0

@Bookkc1 3 / 3 / 0 Регистрация: 01.11.2012 Сообщений: 803
	12.05.2017, 12:52 [ТС]
	DenNik, а более подробный пример ? не совсем пойму что такое s и откуда берется Text 0