Диалог сохранения файла для сохранения txt из массива чисел
Я бы сохранил свои 2 массива целых чисел и чисел с плавающей запятой соответственно в файл .txt "стиля csv", используя TSaveTextFileDialog. Я пытаюсь сделать это в C++ Builder с приложением Windows VCL. Это моя попытка:
__fastcall TForm6::TForm6(TComponent* Owner)
: TForm(Owner)
{
saveTxtDlg = new TSaveTextFileDialog(this);
TStrings* encodings = new TStringList();
encodings->AddObject("UTF8", TEncoding::UTF8);
saveTxtDlg->Encodings->Assign(encodings);
saveTxtDlg->Filter = "Text files (*.txt)|*.TXT";
}
void __fastcall TForm6::Button2Click(TObject *Sender)
{
if (saveTxtDlg->Execute(this->Handle))
{
String filename = saveTxtDlg->FileName + ".txt";
int encIndex = saveTxtDlg->EncodingIndex;
TEncoding* enc = dynamic_cast<TEncoding*>
(saveTxtDlg->Encodings->Objects[encIndex]);
int x[] = {1, 2, 3, 4, 5};
float y[] = {10.1, 20.5, 30.8, 40.7, 50.2};
for (int i = 0; i < 5; i++) {
std::string s = std::to_string(x[i]) + "," + std::to_string(y[i]);
s.SaveToFile(filename, enc);
}
}
}
Но строка не имеет члена для «SaveToFile». Как я могу решить, пожалуйста? Заранее спасибо.
1 ответ
Решение
Диалог просто дает вам имена файлов, которые выбрал пользователь. Вы несете ответственность за фактическое открытие этих файлов и запись в них ваших данных по мере необходимости.
Например, взгляните на такие вещи, как TStringList::SaveToFile()
, TFile::WriteAllText()
/WriteAllLines()
, TStreamWriter::Write()
/WriteLine()
, так далее.
Попробуйте что-то вроде этого:
void __fastcall TForm6::Button2Click(TObject *Sender)
{
if (saveTxtDlg->Execute(this->Handle))
{
String filename = saveTxtDlg->FileName;
int encIndex = saveTxtDlg->EncodingIndex;
TEncoding* enc = static_cast<TEncoding*>(saveTxtDlg->Encodings->Objects[encIndex]);
int x[] = {1, 2, 3, 4, 5};
float y[] = {10.1, 20.5, 30.8, 40.7, 50.2};
TStringList *txt = new TStringList;
for (int i = 0; i < 5; ++i) {
String s = String(x[i]) + _D(",") + String(y[i]);
txt->Add(s);
}
txt->SaveToFile(filename, enc);
delete txt;
}
}
Альтернативно:
#include <System.IOUtils.hpp>
void __fastcall TForm6::Button2Click(TObject *Sender)
{
if (saveTxtDlg->Execute(this->Handle))
{
String filename = saveTxtDlg->FileName;
int encIndex = saveTxtDlg->EncodingIndex;
TEncoding* enc = static_cast<TEncoding*>(saveTxtDlg->Encodings->Objects[encIndex]);
int x[] = {1, 2, 3, 4, 5};
float y[] = {10.1, 20.5, 30.8, 40.7, 50.2};
TStringDynArray txt;
txt.Length = 5;
for (int i = 0; i < 5; ++i) {
String s = String(x[i]) + _D(",") + String(y[i]);
txt[i] = s;
}
TFile::WriteAllLines(filename, txt, enc);
}
}
Альтернативно:
void __fastcall TForm6::Button2Click(TObject *Sender)
{
if (saveTxtDlg->Execute(this->Handle))
{
String filename = saveTxtDlg->FileName;
int encIndex = saveTxtDlg->EncodingIndex;
TEncoding* enc = static_cast<TEncoding*>(saveTxtDlg->Encodings->Objects[encIndex]);
int x[] = {1, 2, 3, 4, 5};
float y[] = {10.1, 20.5, 30.8, 40.7, 50.2};
TStreamWriter *txt = new TStreamWriter(filename, false, enc);
for (int i = 0; i < 5; ++i) {
String s = String(x[i]) + _D(",") + String(y[i]);
txt->WriteLine(s);
}
txt->Flush();
delete txt;
}
}