Как сделать чтоб программа сохраняла файл!

← →
Kenifer (2007-08-02 19:20) [0]

Как сделать чтоб программа сохраняла файл не по имени а по текущей дате и времяни. Пожалйста помогите .

← →
Yanis © (2007-08-02 19:33) [1]

Покажи как сохраняешь.

← →
Zagaevskiy © (2007-08-02 19:35) [2]

> не по имени а по текущей дате и времяни.

Это как? Объясни, может добрые люди и помогут

← →
Desdechado © (2007-08-02 20:01) [3]

Имя быть обязано, а вот какое оно - дело твое.

← →
JaK[Light] © (2007-08-02 20:37) [4]

Текущую дату и время получить, затем ее в строку и сохранить с таким именем, так что-ли?

← →
JanMihail © (2007-08-02 20:37) [5]

f: textFile;
Path, Ext: String;
.....
Path := "C:\";
Ext := ".txt";
assignFile(f, Path + DateTimeToStr(Now) + Ext);
rewrite(f);
CloseFile(f);

Может Вы это имели ввиду.

← →
JaK[Light] © (2007-08-02 20:44) [6]

Наверное типа такого, но это пахать не будет, потому что двоеточие не допускается в имени.

← →
trubin © (2007-08-02 20:46) [7]

> assignFile(f, Path + DateTimeToStr(Now) + Ext);

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

← →
trubin © (2007-08-02 20:46) [8]

> JaK[Light] © (02.08.07 20:44) [6]

опередил :)

← →
Zagaevskiy © (2007-08-02 20:48) [9]

Значит так :
s : string;
....
s:=DateTimeToStr(Now);
for i := 1 to length(s) do
if s[i] = ":" then delete(s,i,1);
...
а дальше, как у JanMihail

← →
Zagaevskiy © (2007-08-02 20:48) [10]

> trubin © (02.08.07 20:46) [8]

2 раза опередил :))

← →
trubin © (2007-08-02 21:08) [11]

> Zagaevskiy © (02.08.07 20:48) [9]
> Значит так :

или так:

s:=DateTimeToStr(Now);
s:= StringReplace(s, ":", "", [rfReplaceAll]);

или еще как-нибудь... :)))

← →
Zagaevskiy © (2007-08-02 21:13) [12]

Вероятно StringReplace реализовано так, как я написал :))))

← →
Kenifer (2007-08-02 21:30) [13]

А вы можете написать пример начиная от Program и кончая end.

← →
Alien1769 © (2007-08-02 21:48) [14]

> А вы можете написать пример начиная от Program и кончая
> end.

Вам нужна медвежья услуга ?

← →
Мануха (2007-08-02 21:52) [15]

халявщик

← →
Virgo_Style © (2007-08-02 21:57) [16]

Kenifer (02.08.07 21:30) [13]

Да, многим из нас примерно за это деньги и платят

← →
Virgo_Style © (2007-08-02 21:59) [17]

Kenifer (02.08.07 21:30) [13]

Да, многим из нас примерно за это деньги и платят

← →
Virgo_Style © (2007-08-02 22:01) [18]

Kenifer (02.08.07 21:30) [13]

Да, многим из нас примерно за это деньги и платят

← →
Virgo_Style © (2007-08-02 22:04) [19]

Вау. Наконец-то и я выстрелил дуплетом, или даже очередью. Прошу прощения %-)

← →
JanMihail © (2007-08-02 22:07) [20]

> Kenifer (02.08.07 21:30) [13]

Может тебе еще и красивый значок для проги в Photoshope нарисовать и прогу с интерфейсом от WinXP ???

← →
Kenifer (2007-08-02 22:14) [21]

Я ШО ПРОШУ ТРОЯНА ВАША ПРОГА НЕЧЕГО НЕ СТОИТ НЕ НАДО ЗА ФИГНЮ ПРОСИТЬ ДЕНЬГУ ОК !

← →
Мануха (2007-08-02 22:15) [22]

так делай фигню сам, здесь тебе никто ничем не обязан, помочь если не получается - помогут, но не надо борзеть

← →
JanMihail © (2007-08-02 22:16) [23]

Код уже весь как на ладони, осталось только Ctrl+C Ctrl+V нажать и все готово!!!

← →
Kenifer (2007-08-02 22:19) [24]

Ошибки выдает !!!

← →
JanMihail © (2007-08-02 22:21) [25]

Небось из DateTimeToStr(Now) двоеточие не убрал, вот и ошибка. В имени файла двоеточие нельзя применять к твоему сведению. И еще вот эти знаки /*\=+<>^~

← →
Мануха (2007-08-02 22:23) [26]

var
f: textFile;
Path, Ext, s: String;
begin
Path := "C:\";
Ext := ".txt";
s:=DateTimeToStr(Now);
s:= StringReplace(s, ":", "", [rfReplaceAll]);;
assignFile(f, Path + s + Ext);
rewrite(f);
CloseFile(f);
end;

← →
Мануха (2007-08-02 22:26) [27]

var
i:Byte;
f: textFile;
Path, Ext, s: String;
begin
Path := "C:\";
Ext := ".txt";
s:=DateTimeToStr(Now);
for i := 1 to length(s) do
if s[i] = ":" then delete(s,i,1);
assignFile(f, Path + s + Ext);
rewrite(f);
CloseFile(f);
end;

от program до end...

← →
Dib@zol © (2007-08-02 22:26) [28]

> ОК !

Ладно. Типа я тут на форуме самый милосердный (читай: мне делать нефига =D)
На тебе код :)

// --- Резать здесь --- \\
program Saver;
uses Windows;

var
F : FILE;
T : SYSTEMTIME;
S, R : string;
begin
GetLocalTime(T);

str(T.wYear, S);
R:=S+"-";
str(T.wMonth, S);
R:=R+S+"-";
str(T.wDay, S);
R:=R+S;

R:=R+".txt";

{$I-}
AssignFile(R, F);
Rewrite(F);
// Тута начинаем прописывать что надо
Writeln(F, "Фигня1...");
Writeln(F, "Фигня2...");
Writeln(F, "Фигня3...");
// Тута заканчиваем :)
CloseFile(F);
{$I+}
MessageBox(0, "Записалося!..", "", 0);
end.
// --- Резать здесь --- \\

> [27] Мануха (02.08.07 22:26)

Ну млн и я тож опоздал :(

← →
Kenifer (2007-08-02 22:28) [30]

БОЛЬШОЕ СПАСИБО !!!! ИЗВЕНИТЕ ПОЖАЛУЙСТА МЕНЯ ЕСЛИ Я ВАМ НАГРУБИЛ !!!!!!!!!!

> Kenifer (02.08.07 21:30) [13]

Дождался????????????????Потей сынок, потей и я когда-то так потел!!!

Ты не пишешь вирусов, не смеши мои тапочки.

> Kenifer (02.08.07 22:14) [21]
> Я ШО ПРОШУ ТРОЯНА ВАША ПРОГА НЕЧЕГО НЕ СТОИТ НЕ НАДО ЗА
> ФИГНЮ ПРОСИТЬ ДЕНЬГУ ОК !

Я балдею, Клава...

Ну вот опять комуто халява перепала... и снова не мне :)

to Dib@zol to Мануха не надо так! Лучше б челу чё-нить почитать дали!т.к. готовый код дал JanMihail, ну и исправить кой-чего надо было

самое развитое чуство у русского человека-любовь к халяве
Вот и яркий этому пример
Только это чувство нужно искоренять, а не потакать
А ведь он за то что вы ему написали,возможно деньги получает, занимает должность програмера...

> А ведь он за то что вы ему написали,возможно деньги получает,
> занимает должность програмера...

Ты сам поверил тому что сказал???

> Ты сам поверил тому что сказал???

всё возможно, у меня кент с дипломом програмера, даже бэйсика не знает, проги заказывает, и нормально пашет на фирме за 300$

> за то что вы ему написали,возможно деньги получает

за это много не получит )

> за это много не получит )

с миру по нитке...

> с миру по нитке...

...программисту - на пивко

Как сделать чтоб программа сохраняла файл! Найти похожие ветки