сумма

[crindlok]

Здравствуйте. Есть 3 Edit'a. В первом сумма, во втором дата и в третьем время. Сейчас по клику на кнопку создается строка с данными из этих трех значений, вида 06/02/13 в 10-30 на сумму 1000.00 отправлено. Ну итак каждый раз дописывается новая строка.

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

Помогите пожалуйста с реализацией, я не в силах :(

[crindlok]

Попробую писать это все в эксель, если есть какие-нибудь напутствия прошу ответить :)

[lxa85]

Исходники в студию.
Вообще, скорей всего придется перейти на некоторый форматированный ввод/вывод.
Например csv (http://ru.wikipedia.org/wiki/CSV).
Да, так наверно будет проще всего.
Пример работы (http://www.delphisources.ru/pages/faq/base/csv_files_parsing.html)
Видео на YouTube (http://www.youtube.com/watch?v=M5oGX9YIM-8)

[crindlok]

procedure TForm1.Button2Click(Sender: TObject);
var
report, date, time, price : string;
report_conf : textfile;
begin
date := Edit1.Text;
time := Edit2.Text;
price := Edit3.Text;
report := time + ' ' + date + ' на сумму ' + price + ' отправлен';

if FileExists('report.txt') then
begin
AssignFile(report_conf,'report.txt');
Append(report_conf);
writeln(report_conf,report);
Flush(report_conf);
CloseFile(report_conf);
end
else
begin
AssignFile(report_conf,'report.txt');
Rewrite(report_conf);
writeln(report_conf,report);
CloseFile(report_conf);
end

end;

В итоге мне нужно получать что-то вроде файла 06.02.13.txt с содержанием вида:

06.02.13 12:30 на сумму 1000.00 отправлен
06.02.13 12:35 на сумму 500.00 отправлен
06.02.13 13:30 на сумму 400.00 отправлен

Итого 06.02.13 отправлено на сумму 1900.00

Ну итак для каждого числа...

Вот я что на счет этого думаю, берем название файла из переменной date, далее если файл не существует - создаем, пишем строку time + ' ' + date + ' на сумму ' + price + ' отправлен'; и на следующей строке пишем итого Итого отправлено на сумму price. Если существует, то считываем сумму из последней строки (где итого) прибавляем к ней текущую price, а перед этой строки записываем time + ' ' + date + ' на сумму ' + price + ' отправлен'.

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



ИЛИ же как-то все это в эксель отправлять, что даже было бы удобней, почитал сейцчас работу с эксель на делфи, не совсем все понятно и не придумал пока как оформить шаблон экселевский куда все писаться будет, саму структуру.
Эксель круто, лучше бы в него, но первый вариант тоже подойдет

[crindlok]

UPD

Сам себе отвечаю, буду пробовать отправлять в эксель, план работы придумал))

[novashdima]

Как-то надо было создать программу для обработки TSV (http://ru.wikipedia.org/wiki/TSV).
Ну я создал таблицу, все данные хранил в базе данных используя движок BDE.
Так как я не знал, какого содержания будут данные (их много и они не однотипные и там вперемешку данные разных типов), то я загружал файл в файловый поток, оттуда их загружал в стринглист, заменив tab, которым отделены данные на пробел и потом из стринглиста подгружал это все в базу данных и выводил на таблице на форме.
У тебя же задача намного легче, ты знаешь входные данные, поэтому тебе надо только создать таблицу с тремя полями, в первое вставляешь TDateTimePicker для даты, во второе TTimePicker для даты, а третье стандартная строка. (а можешь и не вставлять компоненты, а так и оставить стандартные поля, только тогда тебе надо будет анализировать правильность ввода данных пользователем). Сгенерировать конечную строку уже можно будет без проблем.

Для упрощения:
На форму кидаешь DbGrid, в него будут вносится данные. DbGrid-у в качестве входных данных прописываешь DataSource, а DataSource в качестве DataSet-а прописываешь ClientDataSet, а потом пишешь что-то вроде:

ClientDataSet.Edit;
DbGrid.DataSource.DataSet.Post;
if not SaveDialog.Execute then exit;
AssignFile(UnitFile, SaveDialog.FileName+'.tsv');
{I-}
Rewrite(UnitFile);
try
ClientDataSet.Edit;
Data2:=TStringList.Create;
Data2.IndexOf(temp); //temp = твои данные одной строкой, можно вытащить как угодно, хотя бы DbGrid.ToString, DBGrid.DataSource.ToString, DBGrid.DataSource.DataSet.ToString...
dbGrid.DataSource.DataSet.Edit;
for I := 0 to Data.Count - 1 do
ClientDataSet.Fields[i].Value:=dbGrid.Fields[i].Value;
ClientDataSet.First;
for I := 0 to DbGrid.DataSource.DataSet.RecordCount - 1 do
begin
s:='';
for ii := 0 to Data.Count - 1 do
try
NullStrictConvert:=true;
if ClientDataSet.Fields[ii].Value=NULL then break;
if s<>'' then S:=S+#9+ClientDataSet.Fields[ii].Value
else S:=ClientDataSet.Fields[ii].Value;
except
NullStrictConvert:=false;
if s<>'' then S:=S+#9+ClientDataSet.Fields[ii].Value
else S:=ClientDataSet.Fields[ii].Value;
end;
Data2.Text:=s;
Data2.Text:=StringReplace(Data2.Text,#13,'',[rfReplaceAll]);
if i<>DbGrid.DataSource.DataSet.RecordCount-1 then Write(UnitFile, Data2.Text);
ClientDataSet.Next;
end;
CloseFile(UnitFile);
finally
SaveDialog.Free;
end;
{I+}