Сохранение данных в файл

@GrukhvinEV · Регистрация: 08.11.2011

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

Вот кусок моего кода, но почему то заместо желаемого результата, абра козябра.... как превести в надлежащий вид ?

C++
1
2
3
4
5
6
TStringList *file1 = new TStringList;
file1->Add(Format("%.2d:%.2d:%.2d",Time,2)+Format(" G1=%.2d %.3d %.3dм3",LG1,2)+Format(" P1=%.2fкг/cм2",FP1,2)+Format(" T1=%.2fС",FT1,2));
int iFile=FileCreate("file32.txt");
FileOpen(iFile,fmOpenWrite);
FileWrite(iFile,file1,80);
FileClose(iFile);

Вот то что должно быть 14:48:03 G1=13 952 084m3 Р1=4,86кг/cм2 Т1=21,22С
А вот то что получается даже сюда не копируются....

mimicria · 21.11.2012, 12:47

C++
1
file1->SaveToFile("file32.txt");

@GrukhvinEV · 21.11.2012, 12:52 **[ТС]**

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

C++
1
]int iFile=FileCreate("file32.txt");

временно поставил в код.
А вообще вот есть параметры

C++
1
Format("%.2d:%.2d:%.2d",Time,2)+Format(" G1=%.2d %.3d %.3dм3",LG1,2)+Format(" P1=%.2fкг/cм2",FP1,2)+Format(" T1=%.2fС",FT1,2)

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

mimicria · 21.11.2012, 14:29

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

Надо открыть файл и записать их туду

C++
1
file1->LoadFromFile("file32.txt");

@GrukhvinEV · 21.11.2012, 18:54 **[ТС]**

Вот написал, все нормально, но только если файл существует. Если не существует то создается новый файл, но функция LoadFrom не может открыть этот файл...Надо видимо как то по другому создавать файл.. подскажите как? Спасибо!

C++
1
2
3
4
5
6
7
8
                        if (!FileExists(Format("%.2d.%.2d.%.2d.txt",Date,2)));
                        {
                               int file1=FileCreate(Format("%.2d.%.2d.%.2d.txt",Date,2));
                               
                        }
                        file1->LoadFromFile(Format("%.2d.%.2d.%.2d.txt",Date,2));
                        file1->Add(Format("%.2d:%.2d:%.2d",Time,2)+Format(" G1=%.2d %.3d %.3dм3",LG1,2)+Format(" P1=%.2fкг/cм2",FP1,2)+Format(" T1=%.2fС",FT1,2));
                        file1->SaveToFile(Format("%.2d.%.2d.%.2d.txt",Date,2));

Добавлено через 2 минуты
Даже вот так наверно правильней будет, но не работает все равно, надо видимо его после создания закрыть:

C++
1
2
3
4
5
6
7
 if (!FileExists(Format("%.2d.%.2d.%.2d.txt",Date,2)));
{
FileCreate(Format("%.2d.%.2d.%.2d.txt",Date,2));
}
file1->LoadFromFile(Format("%.2d.%.2d.%.2d.txt",Date,2));
file1->Add(Format("%.2d:%.2d:%.2d",Time,2)+Format(" G1=%.2d %.3d %.3dм3",LG1,2)+Format("P1=%.2fкг/cм2",FP1,2)+Format(" T1=%.2fС",FT1,2));
file1->SaveToFile(Format("%.2d.%.2d.%.2d.txt",Date,2));

@nick42 · 21.11.2012, 19:05

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

if (!FileExists(Format("%.2d.%.2d.%.2d.txt" ,Date,2)));

У вас здесь ошибка: точка с запятой закрывает "условие" и следующая конструкция выполняется в любом случае; после круглых скобок должна сразу идти фигурная, а не точка с запятой.

@GrukhvinEV · 22.11.2012, 08:28 **[ТС]**

Спасибо....банально, не заметил. Спать пора видимо =))

Добавлено через 13 часов 12 минут
Все равно не работает. Пишет не могу открыть файл. Хотя файл создается, все нормально. А вот при повторном запуске все нормально, ошибок нет. Как лечить ? Спасибо!

mimicria · 22.11.2012, 08:36

У вас опять логика страдает, должно быть примерно так:

C++
1
2
3
4
if (FileExists(...))
 file1->LoadFromFile(...); // Если файл есть, то подгрузим его содержимое
file1->Add(...); // иначе и в любом случае просто добавим нужное
file1->SaveToFile(...); // и сохраним

@GrukhvinEV · 22.11.2012, 09:50 **[ТС]**

Так у меня вот такой код. Запускаешь, ошибка, создается папка, потом еще раз запускаешь опять ошибка но файл создается. Еще раз запускаешь все нормально работает. Где тут ошибка ? Спасибо!

C++
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
//---------------------------------- Запись трендов
//Директории
AnsiString
path1="ТрендыБВР.М\\",
path2="ТрендыБВР.М\\"+Format("%.2d.20%.2d",Date2,2),
path3="ТрендыБВР.М\\"+Format("%.2d.20%.2d",Date2,2)+"\\"+Format("%.2d.%.2d.%.2d.txt",Date,2);
 //Проверка существовиния директорий, файлов
if(DirectoryExists(path1.c_str())==false)
{
CreateDirectory (path1.c_str(), NULL);
}
if(DirectoryExists(path2.c_str())==false)
{
CreateDirectory (path2.c_str(), NULL);
}
 
if (!FileExists(path3))
{
FileCreate(path3);
}
 //запись трендов в файл
TStringList *file1 = new TStringList;
file1->LoadFromFile(path3);
file1->Add(Format("%.2d:%.2d:%.2d",Time,2)+Format(" G1=%.2d %.3d %.3dм3",LG1,2)+Format(" P1=%.2fкг/cм2",FP1,2)+Format(" T1=%.2fС",FT1,2));
file1->SaveToFile(path3);

mimicria · 22.11.2012, 10:25

Я уже привёл код выше. Выкиньте FileCreate, он не нужен.

@nick42 · 22.11.2012, 10:27

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

Где тут ошибка ?

Создание файла в таком контексте, вообще говоря, - лишняя операция. И что вы оттуда грузить собираетесь (StringList : LoadFromFile)...? Чтоб не было ругательств, вот это попробуйте:__

C++
1
2
3
4
5
6
7
 int t=0;
 if (!FileExists(path3))
{
   t = FileCreate(path3);
}
  if (t) FileClose(t);
  Memo1->Lines->SaveToFile(path3); // далее работа с файлом (запись StringList)

mimicria · 22.11.2012, 10:39

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

Чтоб не было ругательств, вот это попробуйте:

SaveToFile сработает даже если файл не был предварительно создан. Поэтому возня с FileCreate абсолютно лишняя.

@nick42 · 22.11.2012, 10:52

Абсолютно верно! Но товарищ просил указать на ошибку... . Если файл сразу закрыть, то получится файл нулевой длины (без наполнения). Но система позволяет "загрузить" из него текст или записать в него текст посредством LoadFromFile и SaveToFile.

@GrukhvinEV · 22.11.2012, 10:55 **[ТС]**

Спасибо большое. Начинающий я, тяжеловато пока логику видеть. Все получилось, работает!

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

@GrukhvinEV 25 / 25 / 2 Регистрация: 08.11.2011 Сообщений: 284
	22.11.2012, 08:28 [ТС]
	Спасибо....банально, не заметил. Спать пора видимо =)) Добавлено через 13 часов 12 минут Все равно не работает. Пишет не могу открыть файл. Хотя файл создается, все нормально. А вот при повторном запуске все нормально, ошибок нет. Как лечить ? Спасибо! 0

mimicria return (true); 1977 / 1112 / 221 Регистрация: 19.04.2011 Сообщений: 2,346
	22.11.2012, 10:25
	Я уже привёл код выше. Выкиньте FileCreate, он не нужен. 1

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	22.11.2012, 10:52
	Абсолютно верно! Но товарищ просил указать на ошибку... . Если файл сразу закрыть, то получится файл нулевой длины (без наполнения). Но система позволяет "загрузить" из него текст или записать в него текст посредством LoadFromFile и SaveToFile. 1

@GrukhvinEV 25 / 25 / 2 Регистрация: 08.11.2011 Сообщений: 284
	22.11.2012, 10:55 [ТС]
	Спасибо большое. Начинающий я, тяжеловато пока логику видеть. Все получилось, работает! 0