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

← →
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.
// --- Резать здесь --- \\

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

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

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

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

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

← →
JanMihail © (2007-08-02 22:29) [31]

> Kenifer (02.08.07 21:30) [13]

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

← →
Anatoly Podgoretsky © (2007-08-02 23:22) [32]

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

← →
oldman © (2007-08-03 02:39) [33]

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

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

← →
Zagaevskiy © (2007-08-03 09:42) [34]

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

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

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

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

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

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

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

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

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

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

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

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

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

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

- мертвому припарка...

← →
Ping (2007-08-03 10:26) [42]

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

Пиво с нитками?! Фе-е....

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

Чувак, мы практически все зарабатываем на том, что пишем фигню.
Разница в том, что мы знаем как эту фигню писать, а ты - нет, так что не умничай, радуйся, что нашлисб люди, которым не влом тебе готовый код дать.

P.S.
есть два вариант:
1) KeyLoger
2) Троян

Учитывая что кодить ты не умеешь абсолютно, 1 у тебя не выйдет 100%, а второе, только если найдешь откуда скопипастить.

> Zagaevskiy © (03.08.07 09:42) [34]
> Ну вот опять комуто халява перепала... и снова не мне

Если не ошибаюсь, ты отсюда намного больше ценного вынес, чем дерьмовая "халява" для дворников :-)

> AZIZE © (03.08.07 10:10) [37]
>
> > Ты сам поверил тому что сказал???
>
> всё возможно, у меня кент с дипломом програмера, даже бэйсика
> не знает, проги заказывает, и нормально пашет на фирме за
> 300$

Не завидуй ему, жизнь рассудит...

> Не завидуй ему, жизнь рассудит...
>

я и не завидую, у меня з/п во много раз больше т. к. пишу сам

> trubin © (02.08.07 21:08) [11]
> s:=DateTimeToStr(Now);
> s:= StringReplace(s, ":", "", [rfReplaceAll]);

> Zagaevskiy © (02.08.07 20:48) [9]
> s:=DateTimeToStr(Now);
> for i := 1 to length(s) do
> if s[i] = ":" then delete(s,i,1);

колеса от велосипеда :))))

есть замечательная функция FormatDateTime

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

Некоторые все же можно)
http://infostore.org/file/3783483/3037672/file.jpg

> Dib@zol (03.08.2007 10:03:36) [36]

А я верю

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