Запись из мемо в текстовый файл

@Kaisten · Регистрация: 02.10.2013

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

Как перейти на следующую строку для записи в текстовом файле. Т.к этот код заменяет первую строку.
Memo1.Lines.SaveToFile('отметки.txt');

@Puporev · 27.06.2014, 17:55

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

Т.к этот код заменяет первую строку.

В смысле в файле уже что-то написано и нужно добавить?

@Kaisten · 27.06.2014, 18:25 **[ТС]**

да, до запись файла идёт

@NIKOLAYY · 27.06.2014, 18:28

А как дозапись идет, ты сам в мемо будеш текст печатать?

@Puporev · 27.06.2014, 18:29

Открыть файл для дозаписи.

Delphi

assignfile(f,'123.txt');//файл в папке с программой
append(f);
writeln(f);//если там не начало новой строки
for i:=0 to Memo1.Lines.Count-1 do
writeln(f,Memo1.Lines[i]);
closefile(f);

@Kaisten · 27.06.2014, 18:38 **[ТС]**

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

Добавлено через 8 минут
Оно прыгает через 1 строку теперь.
for i:=0 to Memo1.Lines.Count-1 do лишнее. А так спасибо.

@NIKOLAYY · 27.06.2014, 18:39

Kaisten,
Можено еще так, сначала загрузить в мемо-

Delphi

1	Memo1.Lines.LoadFromFile('îòìåòêè.txt');

А потом дописать или методом Add добавить запись и сохранить.
А можно вобще без мемо- сразу в файл писать, сам смотри как тебе удобнее.

@Kaisten · 27.06.2014, 18:41 **[ТС]**

у меня так и было,но оно заменяет ту же строку. Всё уже разобрался. Всем спасибо.

Добавлено через 44 секунды
Но у меня же тест был,я оценку показываю за тест а потом сохраняю

@nattive · 25.02.2021, 20:05

Все привет!

Подскажите плиз как сохранять txt в отдельную папку корневой папки программы? Что нужно прописать в

Delphi

1	memo1.Lines.SaveToFile('R '+DateToStr(Date(NOW))+'.txt');

@AzAtom · 25.02.2021, 20:24

nattive, нужно дописать название папки.

Delphi

1	Memo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName) + 'SubdirName\R ' + DateToStr(NOW)+'.txt');

Только, папку надо создать заранее.

@nattive · 25.02.2021, 21:03

все прекрасно работает, спасибо большое!

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

@AzAtom · 25.02.2021, 21:17

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

файл не пересохранялся а добавлялись строки в существующий

Выше в теме как раз это обсуждается.

Можно загружать из файла, добавлять новые строки и сохранять:

Delphi

1
2
3

Memo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName) + 'SubdirName\R ' + DateToStr(NOW)+'.txt');
Memo1.Lines.Add('Что-то добавили');
Memo1.Lines.SaveToFile(ExtractFilePath(Application.ExeName) + 'SubdirName\R ' + DateToStr(NOW)+'.txt');

Добавлено через 56 секунд
Загружать, конечно, нужно если такой файл существует. Нужно добавить проверку существования файла.

@nattive · 25.02.2021, 21:50

подскажи как проверку сделать? Сейчас натыкаюсь на ошибку если файла нет

@Пытливый · 25.02.2021, 22:25

Delphi

FileName := ExtractFilePath(Application.ExeName) + 'SubdirName\R ' + DateToStr(NOW)+'.txt';
if FileExists(FileName) then Memo1.Lines.LoadFromFile(FileName);
Memo1.Lines.Add('Что-то добавили');
Memo1.Lines.SaveToFile(FileName);

@nattive 5 / 3 / 2 Регистрация: 21.03.2013 Сообщений: 113
	25.02.2021, 21:03	11
	все прекрасно работает, спасибо большое! Есть еще один вопрос, файл у меня сохраняется при каждом выходе из программы, как сделать так, что если пользователь заходил несколько раз в программу, то файл не пересохранялся а добавлялись строки в существующий. На каждый день свой файл. 0

Новые блоги и статьи
Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта Gowin Eda и снимок. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .	Как создать нейросеть для генерации картинок на Python InfoMaster 12.01.2025 Генерация изображений с помощью искусственных нейронных сетей стала одним из наиболее захватывающих направлений в области компьютерного зрения и машинного обучения. В этой статье мы рассмотрим. . .	Создание нейросети для генерации текста на Python InfoMaster 12.01.2025 Нейросети, или искусственные нейронные сети, представляют собой модели машинного обучения, вдохновленные работой человеческого мозга. Они состоят из множества взаимосвязанных узлов, или "нейронов",. . .
Как создать нейросеть распознавания изображений на Python InfoMaster 12.01.2025 Введение в распознавание изображений с помощью нейросетей Распознавание изображений с помощью нейронных сетей стало одним из самых впечатляющих достижений в области искусственного интеллекта. Эта. . .	Основы искуственного интеллекта InfoMaster 12.01.2025 Искусственный интеллект (ИИ) представляет собой одну из наиболее динамично развивающихся областей современной науки и технологий. В широком смысле под искусственным интеллектом понимается способность. . .	Python и нейросети InfoMaster 12.01.2025 Искусственные нейронные сети стали неотъемлемой частью современных технологий, революционизировав множество областей - от медицинской диагностики до автономных транспортных средств. Python, благодаря. . .	Python в машинном обучении InfoMaster 12.01.2025 Python стал неотъемлемой частью современного машинного обучения, завоевав позицию ведущего языка программирования в этой области. Его популярность обусловлена несколькими ключевыми факторами, которые. . .	Создание UI на Python с TKinter InfoMaster 12.01.2025 TKinter — это одна из наиболее популярных библиотек для создания графических интерфейсов пользователей (GUI) в языке программирования Python. TKinter входит в стандартную библиотеку Python, что. . .	HTML5 в разработке мобильных приложений InfoMaster 12.01.2025 Введение: Обзор роли HTML5 в мобильной разработке В современном мире мобильных технологий HTML5 стал ключевым инструментом для разработки кроссплатформенных приложений. Эта технология произвела. . .

@Kaisten 6 / 6 / 3 Регистрация: 02.10.2013 Сообщений: 183
		1
	Запись из мемо в текстовый файл 27.06.2014, 17:44. Показов 11570. Ответов 13 Метки нет (Все метки) Как перейти на следующую строку для записи в текстовом файле. Т.к этот код заменяет первую строку. Memo1.Lines.SaveToFile('отметки.txt'); 0

@Puporev Почетный модератор 64303 / 47600 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	27.06.2014, 17:55	2
	Сообщение от Kaisten Т.к этот код заменяет первую строку. В смысле в файле уже что-то написано и нужно добавить? 0

@Kaisten 6 / 6 / 3 Регистрация: 02.10.2013 Сообщений: 183
	27.06.2014, 18:25 [ТС]	3
	да, до запись файла идёт 0

@NIKOLAYY 844 / 739 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
	27.06.2014, 18:28	4
	А как дозапись идет, ты сам в мемо будеш текст печатать? 0

@Kaisten 6 / 6 / 3 Регистрация: 02.10.2013 Сообщений: 183
	27.06.2014, 18:38 [ТС]	6
	У меня вообще программа Тест. Т.е,человек прошёл тест и отметка вывелась в мемо. А уже из мемо она сохраняется в текстовый файл. Но с этим кодом только в первую строку и заменяется там. А переход именно для мемо как сделать. Добавлено через 8 минут Оно прыгает через 1 строку теперь. for i:=0 to Memo1.Lines.Count-1 do лишнее. А так спасибо. 0

@Kaisten 6 / 6 / 3 Регистрация: 02.10.2013 Сообщений: 183
	27.06.2014, 18:41 [ТС]	8
	у меня так и было,но оно заменяет ту же строку. Всё уже разобрался. Всем спасибо. Добавлено через 44 секунды Но у меня же тест был,я оценку показываю за тест а потом сохраняю 0

@nattive 5 / 3 / 2 Регистрация: 21.03.2013 Сообщений: 113
	25.02.2021, 21:50	13
	подскажи как проверку сделать? Сейчас натыкаюсь на ошибку если файла нет 0

	25.02.2021, 22:25